Нужен примерный код отправки GET и POST запросов на сайт, и получение ответа

02.12.2009, 19:04. **Показов** 24374. **Ответов** 12

Author24 — интернет-сервис помощи студентам

Люди помогите пожалуйста, можете показать примерный код отправки GET и POST запросов на сайт, и получение ответа, заранее спасибо!

20.12.2009, 18:25

ну что никто не знает ?

@winkode · 02.03.2012, 23:54

никто не знает?

Eugene22 · 03.03.2012, 00:02

winkode, смотрите класс HttpWebRequest - http://msdn.microsoft.com/ru-r... quest.aspx - у него есть свойство Method, которое и определяет метод запроса, и класс WebRequest - http://msdn.microsoft.com/ru-r... y35bd.aspx

@edward_freedom · 03.03.2012, 00:13

VB.NET

Dim WC As New Net.WebClient
        Dim Strings, Result As String
        Strings = WC.DownloadString("http://google.ru")
        WC.Dispose()
        MsgBox(Strings)

@winkode · 03.03.2012, 00:17

спасибо,мне интересует только POST запросы особенно в VB6.

Eugene22 · 03.03.2012, 00:18

winkode, здесь vb.net, а не vb6

@edward_freedom · 03.03.2012, 00:18

Сообщение от winkode

особенно в VB6

тут не VB6

@RedBox · 03.03.2012, 05:56

winkode,

Visual Basic

Set http = CreateObject("MSXML2.XMLHTTP")
 http.Open "GET", "http://yandex.ru", False
 http.SetRequestHeader "Accept", "text/html"
 http.SetRequestHeader "Accept-Charset", "windows-1251"
 http.SetRequestHeader "Keep-Alive", "300"
 http.SetRequestHeader "Connection", "keep-alive"
 http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 http.Send "name=value&name2=value2"  'Сам запрос
 otvet = http.ResponseText
 Text1.Text = otvet

@winkode · 03.03.2012, 19:39

Сообщение от Eugene22

winkode, здесь vb.net, а не vb6

Это видно,@RedBox там GET а не POST.

@coderxx · 03.03.2012, 21:11

Надо добавить WinSock Control и кнопку. В код формы вставить:

Visual Basic

Winsock1.Protocol = sckTCPProtocol 'Установка протокола
Winsock1.Connect "имя_сервера", 80 'подключение через порт 80 
While Not Winsock1.State = 7 'Ждем, пока подключится.
DoEvents '
Wend '
 
Parametrs="параметр1=значение&параметр2=значение" 'сохраняем параметры в 'переменной

Далее все зависит от того, каким методом передавать. Если через метод POST, то:

Visual Basic

Winsock1.SendData "POST /адрес_скрипта HTTP/1.1" & vbCrLf
Winsock1.SendData "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Winsock1.SendData "Host: имя_сервера" & vbCrLf
Winsock1.SendData "Content-Length: " & len(Parametrs) & vbCrLf & vbCrLf
Winsock1.SendData Parametrs & vbCrLf

Если через метод GET, то:

Visual Basic

1	Winsock1.SendData "GET /адрес_скрипта?" & Parametrs & " HTTP/1.0" & vbCrLf & vbCrLf

Далее сервер запустит скрипт и передаст данные, которые выдаст скрипт, т.е страницу, которая появилась бы в браузере. Если надо принять эти данные, то нужно добавить еще это:

Visual Basic

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
End Sub

В переменной Data будут только что принятые данные, можно их сохранить где-нибудь (например в другой переменной).
Сначала сервер выдаст ответ типа:

Код

HTTP/1.1 200 OK
Server: Microsoft-IIS/5.0
Date: Fri, 22 Feb 2002 11:12:20 GMT
Connection: Keep-Alive
Content-Length: 8
Content-Type: text/html
Set-Cookie: ASPSESSIONIDQGQQQLBQ=DFPBBDBDJOGMHODFDFALACNK; path=/
Cache-control: private

После того, как параметры закончатся, будет пустая строка, а потом страница.
Количество символов будет указано в параметре Content-Length.

@winkode · 03.03.2012, 22:06

Спасибо за адекватный ответ. Нашел исходник

@RedBox · 04.03.2012, 11:17

Дак просто измени GET на POST в моем примере и будет тебе пост запрос удобный)

@winkode 12 / 12 / 1 Регистрация: 01.03.2012 Сообщений: 159
	03.03.2012, 19:39	10
	Сообщение от Eugene22 winkode, здесь vb.net, а не vb6 Это видно,@RedBox там GET а не POST. 0

BlackDanger
		1
	Нужен примерный код отправки GET и POST запросов на сайт, и получение ответа 02.12.2009, 19:04. Показов 24374. Ответов 12 Метки нет (Все метки) Люди помогите пожалуйста, можете показать примерный код отправки GET и POST запросов на сайт, и получение ответа, заранее спасибо!

BlackDanger
	20.12.2009, 18:25	2
	ну что никто не знает ?

@winkode 12 / 12 / 1 Регистрация: 01.03.2012 Сообщений: 159
	02.03.2012, 23:54	3
	никто не знает? 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	03.03.2012, 00:02	4
	winkode, смотрите класс HttpWebRequest - http://msdn.microsoft.com/ru-r... quest.aspx - у него есть свойство Method, которое и определяет метод запроса, и класс WebRequest - http://msdn.microsoft.com/ru-r... y35bd.aspx 0

@winkode 12 / 12 / 1 Регистрация: 01.03.2012 Сообщений: 159
	03.03.2012, 00:17	6
	спасибо,мне интересует только POST запросы особенно в VB6. 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	03.03.2012, 00:18	7
	winkode, здесь vb.net, а не vb6 0

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	03.03.2012, 00:18	8
	Сообщение от winkode особенно в VB6 тут не VB6 0

@RedBox 0 / 0 / 0 Регистрация: 08.10.2011 Сообщений: 38
	04.03.2012, 11:17	13
	Дак просто измени GET на POST в моем примере и будет тебе пост запрос удобный) 0