Помогите связать скрипт с кнопками. Не понимаю как кнопки привязать к действиям. Например, как при нажатии на кнопку
вызвать проводник и выбрать login.txt. Как отобразить лог введенных логин-паролей из файла check.txt. Как задать для скипта введенные координаты в поля
и их выполнить.
Скипт:
Графическая часть:
Код:
$Label1 = GUICtrlCreateLabel("Введите список логинов", 48, 16, 129, 17)
Код:
$Label3 = GUICtrlCreateLabel("Координаты правой стороны поля Login", 24, 160, 207, 17)
Скипт:
Код:
#RequireAdmin
#include <File.au3>
#include <Array.au3>
HotKeySet("{ESC}", "Terminate")
Global $Paused
HotKeySet("{Del}", "TogglePause")
Func TogglePause()
$Paused = Not $Paused
While $Paused
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Dim $aLogins, $aPasswords ;объявляем массивы
;читаем файл в массив
_FileReadToArray('login.txt', $aLogins) ;файл с логинами
_FileReadToArray('pass.txt', $aPasswords);файл с паролями
$hFile = FileOpen("check.txt", 1) ; открываем файл до начала циклов записи
If $hFile = -1 Then
Exit
EndIf
For $i = 1 To $aLogins[0] ; цикл начинается с первого элемента и идет до последнего элемента
WinWait("Lineage II", "") ; количество элементов в массиве при _FileReadToArray('file', $array) хранится в $array[0]
If Not WinActive("Lineage II", "") Then WinActivate("Lineage II", "")
WinWaitActive("Lineage II", "")
Sleep(100)
MouseClick("left", 600, 301, 1, 0)
Sleep(100)
MouseClick("left", 600, 301, 2, 0)
MouseClick("left")
Sleep(500)
MouseClick("left")
Send("{BS 20}")
Sleep(500)
Send($aLogins[$i]);Логин 1
MouseClick("left", 598, 321, 2, 0)
Sleep(600)
MouseClick("left")
Send("{BS 20}")
Send($aPasswords[$i]);Пароль 1
Send("{ENTER}")
Sleep(4000)
Send("{ENTER}"); подтверждение соглашения
Sleep(1000)
Send("{ENTER}")
ToolTip($i & ":" & $aLogins[$i] & "," & $aPasswords[$i], 1050, 0)
Sleep(1000)
FileWriteLine($hFile, $aLogins[$i] & ":" & $aPasswords[$i])
Sleep(6000)
MouseMove(940, 530, 0)
MouseClick("left")
Sleep(100)
MouseMove(635, 360, 0)
MouseClick("left")
Next
FileClose($hFile) ; после всех циклов записи закрываем файл
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\разное\Языки программирования\Autoit\koda_1.7.3.0\Forms\Автологин графика.kxf
$Form1 = GUICreate("Автологин Lineage2", 648, 339, 183, 114)
GUICtrlCreateInput("", 24, 40, 185, 21)
$Label1 = GUICtrlCreateLabel("Введите список логинов", 48, 16, 129, 17)
$Button1 = GUICtrlCreateButton("Логины", 216, 40, 49, 25)
GUICtrlCreateInput("", 25, 105, 185, 21)
$Label2 = GUICtrlCreateLabel("Введите список паролей", 49, 81, 130, 17)
$Button2 = GUICtrlCreateButton("Пароли", 217, 105, 49, 25)
$Label3 = GUICtrlCreateLabel("Координаты правой стороны поля Login", 24, 160, 207, 17)
GUICtrlCreateInput("", 40, 200, 49, 21)
GUICtrlCreateInput("", 168, 200, 49, 21)
$Label4 = GUICtrlCreateLabel("Координаты правой стороны поля Password", 23, 248, 227, 17)
GUICtrlCreateInput("", 39, 288, 49, 21)
GUICtrlCreateInput("", 167, 288, 49, 21)
$Label5 = GUICtrlCreateLabel("Введенные логины-пароли", 376, 8, 140, 17)
GUICtrlCreateEdit("", 304, 40, 305, 273)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###