StarEdik
Новичок
- Сообщения
- 365
- Репутация
- 4
Привет всем !
Надо, чтоб после запуска скрипта все пункты из Listbox заносились в Блокнот.
Надо, чтоб после запуска скрипта все пункты из Listbox заносились в Блокнот.
Код:
#include <GUIConstantsEx.au3>
$hGUI = GUICreate("Test Script", 300, 200,100,30)
$iList = GUICtrlCreateList("", 20, 20, 260, 160)
GUISetState(@SW_SHOW, $hGUI)
Run(@WindowsDir & "\Notepad.exe")
WinWait("[CLASS:Notepad]")
ControlSetText("[CLASS:Notepad]", "", "Edit1", "New Text Here" & @CRLF & "New Text Here2" & @CRLF &"New Text Here3" & @CRLF )
Sleep(1000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item1|Item2|Item3|Item4|Item5|Item5")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item6|Item7|Item8|Item9|Item10|Item11")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item12|Item13|Item14|Item15|Item16|Item17")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item18|Item19|Item20|Item21|Item22|Item23")
_AdNot()
Sleep(2000)
GUICtrlSetData($iList, "")
GUICtrlSetData($iList, "Item24|Item25|Item26|Item27|Item28|Item29")
_AdNot()
Sleep(2000)
Exit
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _AdNot()
ControlSetText("[CLASS:Notepad]", "", "Edit1", "" )
EndFunc