пример на языке PureBasic:
Код |
---|
InitNetwork()
Connect = OpenNetworkConnection("ip_adres_sayta", 80)
If Connect
;Формируем POST запрос
com$ = "POST /stranica_logina_na_sayte HTTP/1.0" + Chr(13) + Chr(10)
com$ = com$ + "Host: site.ru" + Chr(13) + Chr(10)
com$ = com$ + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1) Gecko/20090624 Firefox/3.5" + Chr(13) + Chr(10)
com$ = com$ + "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" + Chr(13) + Chr(10)
com$ = com$ + "Accept-Language: ru,en-us;q=0.7,en;q=0.3" + Chr(13) + Chr(10)
com$ = com$ + "Accept-Encoding: gzip,deflate" + Chr(13) + Chr(10)
com$ = com$ + "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" + Chr(13) + Chr(10)
com$ = com$ + "Keep-Alive: 300" + Chr(13) + Chr(10)
com$ = com$ + "Connection: keep-alive" + Chr(13) + Chr(10)
com$ = com$ + "Referer: http://adres_otkuda_prishli/" + Chr(13) + Chr(10)
com$ = com$ + "Cookie: income=1" + Chr(13) + Chr(10)
com$ = com$ + "Content-Type: application/x-www-form-urlencoded" + Chr(13) + Chr(10)
com$ = com$ + "Content-Length: 22" + Chr(13) + Chr(10)
com$ = com$ + Chr(13) + Chr(10)
com$ = com$ + "login=123&password=321"
;Отсылаем POST данные
SendNetworkData(Connect, @com$, Len(com$))
;Ждем конца отсылки (тестовое время)
Delay(1000)
;Забираем ответ от сервера
result$ = Space(14500)
ReceiveNetworkData(Connect, @result$, 14500)
;Показываем ответ
Debug result$
Else
End
EndIf |