Как можно добавит поле Referer в post запрос?

[eldar22]

Вот код
Private Sub Command3_Click()
Dim strURL As String
Dim strToASP As String
strToASP = "name=" + nam.Text & "&email=" + email.Text & "&wm_id=" + wmid.Text & "&wmz_purse=" + wmzpurse.Text & "&login=" + log.Text & "&password=" + password.Text & "&password_repeat=" + passwordrepeat.Text & "&ref=werr" & "&agr=on&mail=on"


strURL = "http://www.ipweb.ru/cgi-bin/reg.cgi"
Inet1.Execute strURL, "POST", strToASP, "Content-Type: application/x-www-form-urlencoded& referer:hjfdjfdjffdfd"


End Sub

Как можно добавит поле Referer в post запрос?

[alibek]

Тебе нужно передать параметр Referer или заголовок Referer?

[Хакер]

Код: Выделить всё

Content-Type: application/x-www-form-urlencoded& referer:hjfdjfdjffdfd"

Это кошмар. Почитай про HTTP и его заголовки.

[eldar22]

Урра нашёл ответ на другом форуме

Код: Выделить всё

Private Sub Command3_Click()
Dim strURL As String
Dim strToASP As String
Dim strHeader As String


strToASP = "name=" + nam.Text & "&email=" + email.Text & "&wm_id=" + wmid.Text & "&wmz_purse=" + wmzpurse.Text & "&login=" + log.Text & "&password=" + password.Text & "&password_repeat=" + passwordrepeat.Text & "&ref=werr" & "&agr=on&mail=on"


strURL = "http://www.site.ru/cgi-bin/reg.cgi"
strHeader = "Content-Type: application/x-www-form-urlencoded" & vbNewLine & _
"connection:keep-alive" & vbNewLine & _
"Referer: http://www.site.ru/" & vbNewLine & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"




Inet1.Execute strURL, "POST", strToASP, strHeader

если кому интересно