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

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

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

Люди помогите пожалуйста, можете показать примерный код отправки 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
1
2
3
4
5
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
Winsock1.Protocol = sckTCPProtocol 'Установка протокола
Winsock1.Connect "имя_сервера", 80 'подключение через порт 80 
While Not Winsock1.State = 7 'Ждем, пока подключится.
DoEvents '
Wend '
 
Parametrs="параметр1=значение&параметр2=значение" 'сохраняем параметры в 'переменной

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

Visual Basic
1
2
3
4
5
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
1
2
3
4
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
End Sub

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

Code
1
2
3
4
5
6
7
8
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 в моем примере и будет тебе пост запрос удобный)

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

BlackDanger

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

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

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

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	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 0

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

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

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