#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=P:\mydocs\_delphi\AIDict\aiStream\aiStream.kxf
$Form1_1 = GUICreate("aiStream", 272, 175, 192, 124)
$List1 = GUICtrlCreateList("", 8, 27, 121, 110)
GUICtrlSetData(-1, "Foxit|Google|Word|Yandex|Другой")
$List2 = GUICtrlCreateList("", 136, 27, 129, 110)
GUICtrlSetData(-1, "aiStream|Google|Yandex|Поиск")
$Label1 = GUICtrlCreateLabel("Источник", 41, 8, 52, 17)
$Label2 = GUICtrlCreateLabel("Приемник", 174, 8, 56, 17)
$Button1 = GUICtrlCreateButton("Close All", 96, 144, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=aiStream.ico
#AutoIt3Wrapper_Outfile=aiStream.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <MsgBoxConstants.au3>
#include <Array.au3>
Global $Paused
Opt('GUICoordMode', 0)
HotKeySet('`', 'DoIt')
While 1
$nMsg = GUIGetMsg()
If $nMsg=$List1 Then
; ...
ElseIf $nMsg=$List2 Then
; ...
Elseif $nMsg=$Button1 Then
Exit
EndIf
WEnd
;===
Func DoIt()
; ...
EndFunc