[Окна, Диалоги] автоматическое скрытие выбранных расширений при добавлении torrent-файла

Opt('WinTitleMatchMode', 2)
ControlClick("Добавить новый торрент", "", '[CLASS:Button; INSTANCE:11]') ;Кнопка Снять выбор
ControlCommand ("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]', 'Check' ); Что бы в конце отправился без проблем SPACE
$count = ControlListView("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]', 'GetItemCount')

For $item = 0 To $count - 1
	$column_text = ControlListView("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]', 'GetText', $item, 1)
	$mb = column_text_to_megabytes($column_text)
	;Отметим те, что больше 10 но меньше 30 мегабайт (включая)
	If $mb >= 10 And $mb <= 30 Then
		ControlListView("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]', 'Select', $item)
	EndIf
Next
;Для всех отмеченных отправим пробел
ControlSend("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]', '{SPACE}')

Func column_text_to_megabytes($column_text)
	Local $param = 1
	Select
		Case StringInStr($column_text, 'МБ')
			$param = 1
		Case StringInStr($column_text, 'КБ')
			$param = 1024
		Case StringInStr($column_text, 'Б')
			$param = 1024 * 1024
	EndSelect
	Return Round(Number($column_text) / $param, 1)
EndFunc   ;==>column_text_to_megabytes

;А так можно удалять все, которые не отмечены
#include <GuiListView.au3>
ControlListView("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]', 'SelectInvert')
$hWnd = ControlGetHandle("Добавить новый торрент", "", '[CLASS:SysListView32; INSTANCE:1]')
_GUICtrlListView_DeleteItemsSelected ( $hWnd )

;AutoIt Version: 3.3.12.0

#include <WindowsConstants.au3>
#include <GuiListView.au3>

Opt("GUICloseOnESC", 0)
Opt("GUIOnEventMode", 1)
Opt("WinWaitDelay", 0)
Opt("TrayIconHide", 1)

Global Const $AddTorrentDialogWindow = "[Class:#32770;RegExpTitle:([Aa]dd\s*[Nn]ew\s*[Tt]orrent\s*|[Дд]обав[^\s]+\s*[Нн]ов[^\s]+\s*[Тт]ор[^\s]+\s*)]"
Global Const $idListView = "[CLASS:SysListView32; INSTANCE:1]"
Global Const $processName = "utorrent.exe"
Global Const $bOKinAddNewTorrentWindow = "Button10"
Global Const $FilterFilePath = @ScriptDir & "\filter_ext.txt"

Global $hButton_GUI, $idButton
Global $aOld_ParentPos = -1, $hParent, $hOld_Parent, $hListView
Global $aFilterExt, $aFileList

Global $bWorking = False
Global $bActivate = False

HotKeySet("{ENTER}","_onEnter")

While ProcessWait($processName)
   $bWorking = True
   WinWait($AddTorrentDialogWindow)
   If WinActive($AddTorrentDialogWindow) Then $bActivate = True
   $hParent = WinGetHandle($AddTorrentDialogWindow)
   ;
   If Not IsHWnd($hButton_GUI) Then _ButtonCreate_Proc()
   AdlibRegister("_AdLib_ButtonFollow_Proc", 1)
   ;Working with fresh opened window
   $aFilterExt = _GenFilterArrayFromFile($FilterFilePath)
   $hListView = ControlGetHandle($hParent, "", $idListView)
   ControlDisable($AddTorrentDialogWindow, "", $bOKinAddNewTorrentWindow)
   $aFileList = _GenArrayFromListView($hParent)
   _DeleteFilteredItems($aFileList, $aFilterExt)
   If $bActivate Then
	  WinActivate($AddTorrentDialogWindow)
	  $bActivate = False
   EndIf
   ;
   While WinExists($AddTorrentDialogWindow)
	  Sleep(100)
   WEnd
   If Not ProcessExists($processName) Then Exit
WEnd

Func _ButtonCreate_Proc()
   $hButton_GUI = GUICreate("", 75, 23, -1, -1, $WS_POPUP, $WS_EX_TOPMOST+$WS_EX_TOOLWINDOW)
   $idButton = GUICtrlCreateButton("OK", 0, 0, 75, 23)
   GUICtrlSetOnEvent(-1, "_Button_Event")
   ;
   GUISetState(@SW_SHOW, $hButton_GUI)
EndFunc   ;==>_ButtonCreate_Proc

Func _AdLib_ButtonFollow_Proc()
   Local $iBorder_SizeX, $iBorder_SizeYh, $iX, $iY
   ;Hiding floating button
   If (Not ProcessExists($processName)) And $bWorking Then Exit
   If $hParent <> -1 And Not WinExists($hParent) Then
	  GUISetState(@SW_HIDE, $hButton_GUI)
	  $hParent = -1
   ElseIf $hParent = -1 And WinExists($AddTorrentDialogWindow) Then
	  GUISetState(@SW_SHOW, $hButton_GUI)
	  $hParent = WinGetHandle($AddTorrentDialogWindow)
   ElseIf $hParent = -1 Then
	  Return
   EndIf
   ;
   $aParentPos = WinGetPos($hParent)
   $aParentClientSize = WinGetClientSize($hParent)
   If Not IsArray($aParentPos) Then Return
   ;
   If Not WinActive($hParent) And Not WinActive($hButton_GUI) Then
	  $aParentPos[0] = -3200
	  $aParentPos[1] = -3200
   EndIf
   ;Calculate floating button position
   If $aOld_ParentPos = -1 Or $aOld_ParentPos[0] <> $aParentPos[0] Or $aOld_ParentPos[1] <> $aParentPos[1] Or $aOld_ParentPos[2] <> $aParentPos[2] Then
	  $aOld_ParentPos = $aParentPos
	  $iBorder_SizeX = ($aParentPos[2] - $aParentClientSize[0]) / 2
	  $iBorder_SizeYh = ($aParentPos[3] - $aParentClientSize[1]) - $iBorder_SizeX
	  ;
	  $aButtonRelativePos = ControlGetPos($hParent, "", $bOKinAddNewTorrentWindow)
	  $iX = ($aParentPos[0] + $aButtonRelativePos[0]) + $iBorder_SizeX
	  $iY = ($aParentPos[1] + $aButtonRelativePos[1]) + $iBorder_SizeYh
	  ;Moving floating button
	  WinMove($hButton_GUI, "", $iX, $iY)
   EndIf
EndFunc   ;==>_AdLib_ButtonFollow_Proc

Func _Button_Event()
   _UpdateListSelectionInArray($hParent, $aFileList)
   _UpdateListViewFromArray($aFileList)
   ControlClick($AddTorrentDialogWindow, "", $bOKinAddNewTorrentWindow, "main")
EndFunc   ;==>_Button_Event

Func _onEnter()
   If WinActive($AddTorrentDialogWindow) And StringCompare(StringLeft(ControlGetFocus($AddTorrentDialogWindow, ""), 6), "Button") Then
	  _Button_Event()
   Else
	  HotKeySet("{ENTER}")
	  Send("{ENTER}")
	  HotKeySet("{ENTER}","_OnEnter")
   EndIf
EndFunc   ;==>_onEnter()

#Region Functions to work with ListView and Filters
Func _GenFilterArrayFromFile($sFileName)
   Local $aArray = FileReadToArray($sFileName)
   If Not IsArray($aArray) Then Exit
   Return $aArray
EndFunc   ;==>_GenFilterArrayFromFile

Func _GenArrayFromListView($hWnd)
   Local $aArray[ControlListView($hWnd, "", $idListView, "GetItemCount")][3]
   ;0 - file name, 1 - file size (as in ListView), 2 - checked / deleted state (0 - checked, 1 - unchecked, 2 - deleted)
   For $i = 0 To UBound($aArray) - 1
	  $aArray[$i][0] = ControlListView($hWnd, "", $idListView, "GetText", $i, 0)
	  $aArray[$i][1] = ControlListView($hWnd, "", $idListView, "GetText", $i, 1)
	  $aArray[$i][2] = (_GUICtrlListView_GetItemChecked($hListView, $i)) ? 0 : 1
   Next
   ;
   Return $aArray
EndFunc   ;==>_GenArrayFromListView

Func _DeleteFilteredItems(ByRef $aFilename, ByRef $aFilterExt)
   Local $aFiltered[1][3]	; 0 - index, 1 - file name, 2 - file size
   Local $i, $j
   ; Filter by array with extensions
   For $i = 0 To UBound($aFilename) - 1
	  For $j = 0 To UBound($aFilterExt) - 1
		 If StringCompare(StringRight($aFilename[$i][0], StringLen($aFilterExt[$j]) + 1), "." & $aFilterExt[$j]) = 0 Then
			$aFilename[$i][2] = 2
			ExitLoop
		 EndIf
	  Next
   Next
   ; Deleting items in ListView
   _GUICtrlListView_BeginUpdate($hListView)
   For $i = UBound($aFilename) - 1 To 0 Step -1
	  If $aFilename[$i][2] = 2 Then _GUICtrlListView_DeleteItem($hListView, $i)
   Next
   _GUICtrlListView_EndUpdate($hListView)
EndFunc   ;==>_DeleteFilteredItems

Func _UpdateListViewFromArray(ByRef $aItemList)
   Local $newIndex = 0
   ;
   _GUICtrlListView_BeginUpdate($hListView)
   _GUICtrlListView_DeleteAllItems($hListView)
   For $i = 0 To UBound($aItemList) - 1
	  $newIndex = _GUICtrlListView_AddItem($hListView, $aItemList[$i][0])
	  _GUICtrlListView_AddSubItem($hListView, $newIndex, $aItemList[$i][1], 1)
	  If $aItemList[$i][2] = 0 Then _GUICtrlListView_SetItemChecked($hListView, $newIndex, True)
   Next
   _GUICtrlListView_EndUpdate($hListView)
EndFunc   ;==>_UpdateListViewFromArray

Func _UpdateListSelectionInArray($hWnd, ByRef $aArray)
   Local $sFind = ""
   Local $VisibleLines = ControlListView($hWnd, "", $idListView, "GetItemCount")
   If $VisibleLines = 0 Then Return
   ;
   Local $k = 0
   For $i = 0 To $VisibleLines - 1
	  $sFind = ControlListView($hWnd, "", $idListView, "GetText", $i, 0)
	  For $j = $k To UBound($aArray)
		 If StringCompare($aArray[$j][0], $sFind) = 0 Then
			$aArray[$j][2] = (_GUICtrlListView_GetItemChecked($hListView, $i)) ? 0 : 1
			$k = $j
			ExitLoop
		 EndIf
	  Next
   Next
   ;
   Return
EndFunc   ;==>_UpdateListSelectionInArray
#EndRegion

[Нн]ов[^\s]+\s*

$hButton_GUI = GUICreate("", 75, 23, -1, -1, $WS_POPUP, $WS_EX_TOPMOST+$WS_EX_TOOLWINDOW)
   $idButton = GUICtrlCreateButton("OK", 0, 0, 75, 23)

$hButton_GUI = GUICreate("", 0, 0, -1, -1, $WS_POPUP, $WS_EX_TOPMOST+$WS_EX_TOOLWINDOW)
   $idButton = GUICtrlCreateButton("OK", 0, 0, 0, 0)

_GuiCtrlMakeTrans(-1,100)