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
}

url := "http://samp-rp.su/ucp.php?mode=login"
login := "log"
password := "pass"
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("GET", url)
WebRequest.Send()