Как!? отправлять GET/POST запросы!?

[lostos]

Здравствуйте, может у кого то есть конкретный пример, как отправлять POST запросы, искходник там, как вообще это лучше всего делать? Заранее спасибо

[alibek]

Чем не устраивает полдесятка примеров, легко находимых поиском по форуму?

[lostos]

Хм... может скинешь пожалуйста ссылки на темы?

[Viper]

А самому то поискать не судьба? С плпинка находится куча примеров.

[lostos]

Да, самому не судьба, хоть подсказали бы какие ключевые слова

P.S ничего немогу найти, есть какой то WinHTTP но непонятно как с ним работать

[Viper]

Ключевые слова? GET, POST. А ответ лежит здесь. В том разделе, с которого и надо начинать любые поиски.

[lostos]

Можно подумать я туда не заглядывал и невидел этот пример, он практически нигде не работает

[Williams]

Можно подумать я туда не заглядывал и невидел этот пример, он практически нигде не работает

И где же именно он у тебя не работает?

[dr.MIG]

Значит используй WinHTTP.
Для GET:

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

Dim http_req As New WinHttpRequest, results As String
http_req.Open "GET", "http://site.ru/script.php"
http_req.Send
     If http_req.Status = 200 Then
          results = http_req.ResponseText
          Debug.Print results
     End If


Для POST:

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

Dim http_req As New WinHttpRequest, results As String
http_req.Open "POST", "http://site.ru/script.php"
http_req.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http_req.Send "param1=val1" 'N.B.!Не забудь значения параметров URLEncod'ировать
     If http_req.Status = 200 Then
          results = http_req.ResponseBody
          Debug.Print results
     End If


[lostos]

А если нужно принять данные, то есть ту страничку которая появилась бы в браузере?

[Хакер]

lostos, пойди куда-нибудь. Почитай про HTTP.

[eldar22]

А где достать компонент WinHTTP&

[tyomitch]

Project -> References -> Microsoft WinHTTP Services
C:\WINDOWS\system32\WINHTTP.dll