Здравствуйте, есть код, который отправляет данные на сайт, на php скрипт.
Код:
Код |
---|
Private Sub Command1_Click() Dim http As WinHttpRequest Set http = New WinHttpRequest http.Open "POST", "http://mysite.ru/test.php", False http.SetRequestHeader "User-Agent", "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51" http.SetRequestHeader "Accept-Charset", "UTF-8" http.SetRequestHeader "Cache-Control", "no-cache" http.SetRequestHeader "Keep-Alive", "300" http.SetRequestHeader "Connection", "Keep-Alive" http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" http.Send (["data=324"]) MsgBox (http.ResponseText) End Sub |
Код |
---|
http.Send (["data=324"]) |