Пытаюсь авторизоваться на сайте
- Код: Выделить всё
Dim strURL As String
Dim strToASP As String
Dim strHeader As String
strHeader = "Host: сайт.com" & vbNewLine & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3" & vbNewLine & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine & _
"Accept-Language: ru" & vbNewLine & _
"Accept-Encoding: gzip,deflate" & vbNewLine & _
"Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
"Keep-Alive:115" & vbNewLine & _
"Referer: https://сайт.com/" & vbNewLine & _
"Content-Type: application/x-www-form-urlencoded" & vbNewLine & _
"Content-Length: 49" & vbNewLine & _
"Connection: keep-alive" & vbNewLine
strToASP = "login=xxxxx&pass=xxxxx"
strURL = "https://сайт.com"
Inet1.Execute strURL, "post", strToASP, strHeader
Но авторизация не происходит в чем проблема?