#RequireAdmin
#include <File.au3>
#include <Array.au3>
HotKeySet("{ESC}", "Terminate")
Global $Paused
HotKeySet("{z}", "TogglePause")
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"', 1143, 20)
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($aLogins[$i] & "," & $aPasswords[$i], 1143, 0)
Sleep(1000)
FileWriteLine($hFile, $aLogins[$i] & ":" & $aPasswords[$i])
MouseMove(940, 530, 0)
Sleep(6000)
MouseClick("left")
Next
FileClose($hFile) ; после всех циклов записи закрываем файл
