WinSock И POST

@alex_1nsk · Регистрация: 28.05.2013

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

CСобственно вопрос. как правильно генерировать запрос к серверу.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Command3_Click()
        Winsock1.RemoteHost = 192.192.1.1
        Winsock1.RemotePort = 80
        Winsock1.Connect
End Sub
 
Private Sub Winsock1_Connect()
Dim sData As String
Dim Param as String
 
            param = "{N""m""(20)}"  'оригинал {N"m"(20)}
 
            sData = sData & "POST /.../..../1.ashx HTTP/1.1" & vbCrLf
            sData = sData & "User-Agent: Opera/9.80 (Windows NT 5.1) Presto/2.12.388 Version/12.15" & vbCrLf
            sData = sData & "Host: 192.192.1.1" & vbCrLf
            sData = sData & "Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif,             image/x-xbitmap, */*;q=0.1" & vbCrLf
            sData = sData & "Accept-Language: ru-RU,ru;q=0.9,en;q=0.8" & vbCrLf
            'sData = sData & "Accept -Encoding: gzip , deflate" & vbCrLf  'если раскоментировать строчку вылетает ошибка 400
            sData = sData & "Referer: http://.....com/.../001.swf" & vbCrLf
            sData = sData & "Connection: Keep -Alive" & vbCrLf
            sData = sData & "Content-Length: 17" & vbCrLf
            sData = sData & "Content-type: Content=text/html; charset=us-ascii" & vbCrLf
            sData = sData & "locale -Name: RU -RU" & vbCrLf
            sData = sData & "server -method: All.Refresh" & vbCrLf
            sData = sData & "client-ver: 401" & vbCrLf & vbCrLf
            sData = sData & s & vbCrLf
            sData=sData & param 'если так отправлять запрос без параметра то сервер просто не отвечает
 
 
txtRequest.Text = sData
Winsock1.SendData sData
 
End Sub

Если отправлять без параметра сервер не отвечает, если добавляю параметр выдает ошибку. И с сжатием тоже непонятно.

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
HTTP/1.1 400 Bad Request
Content-Type: text/html; charset=us-ascii
Server: Microsoft-HTTPAPI/2.0
Date: Wed, 29 May 2013 06:42:50 GMT
Connection: close
Content-Length: 339
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>Bad Request</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=us-ascii"></HEAD>
<BODY><h2>Bad Request - Invalid Header</h2>
<hr><p>HTTP Error 400. The request has an invalid header name.</p>
</BODY></HTML>

ВОТ ЧТО ДЕЛАЮ НЕ ТАК.. ???

Добавлено через 19 часов 33 минуты
Что ни кто с winsoсk не работал ?

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Опции темы