Серый форум — AHK: Авторизация на форуме [WinHttpRequest]

Re: AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (NuboCoder) — Sun, 10 Jul 2016 17:40:26 +0000

Malcev, постараюсь понять, спасибо.

Re: AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (Malcev) — Sun, 10 Jul 2016 14:36:36 +0000

Изучайте:
https://autohotkey.com/boards/viewtopic.php?t=7647

Re: AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (NuboCoder) — Sun, 10 Jul 2016 14:13:19 +0000

В дополнение к моему скрипту. Он должен авторизовываться на форуме, создавать тему и в последствии редактировать её. С IE всё довольно просто, но мне придется использовать только теги, поэтому я боюсь "кликнуть" куда-нибудь не туда и случайно удалить что-то с форума.

Re: AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (Malcev) — Sun, 10 Jul 2016 13:20:42 +0000

А зачем вам?

Re: AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (NuboCoder) — Sun, 10 Jul 2016 12:58:49 +0000

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
}

Re: AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (Malcev) — Sat, 09 Jul 2016 20:28:00 +0000

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()
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 Залогинились

AHK: Авторизация на форуме [WinHttpRequest]

null@example.com (NuboCoder) — Sat, 09 Jul 2016 18:30:56 +0000

Снова здравствуйте. Для начала, необходимо сделать авторизацию на форуме samp-rp.su. Именно через WinHttpRequest, IE меня не устраивает.

Всё, что я писал дальше этого, стыдно даже показывать. Буду благодарен за помощь.

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()