Malcev, спасибо, хотел вот ещё тему создать, но ничего не выходит, не поможете? Данные от форумного аккаунта реальны, можете использовать, так как ему разрешено создавать темы.
url := "http://samp-rp.su/ucp.php?mode=login"
urltop := "http://samp-rp.su/posting.php?mode=post&f=94"
login := "gdnhdszs"
password := "qwerty1ASD"
top1 := "111"
top2 := "222"
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("GET", url)
WebRequest.Send()
Sid := RegexReplace(WebRequest.getAllResponseHeaders(), "s).*sid=(.+?);.*","$1")
WebRequest.Open("POST", url)
WebRequest.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Data := "username=" login "&password=" password "&sid=" sid "&login="
WebRequest.Send(data)
If Instr(WebRequest.ResponseText, "Вы успешно вошли в систему")
{
MsgBox Залогинились
goto nex
}else{
MsgBox, Неверные данные
return
}
nex:
WebRequest.Open("GET", urltop)
WebRequest.Send()
WebRequest.Open("POST", urltop)
WebRequest.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Data2 := "subject=" top1 "&message=" top2
WebRequest.Send(data2)
If Instr(WebRequest.ResponseText, "Сообщение было успешно отправлено")
{
MsgBox Отправлено
}else{
MsgBox, Ошибка
return
}