Winsock. Опять непойми что:(((

[Bov]

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


Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.Connect "www.microsoft.com/index.html", 80
While Not Winsock1.State = 7
DoEvents '
Wend
Parametrs = ""
Winsock1.SendData "GET /www.microsoft.com/index.html" & Parametrs & " HTTP/1.0" & vbCrLf & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
Print Data
End Sub


надо что бы Date вернуло код ошибки (404, 403 и т.д.).. она почему то то ниче не возвращает, то всенгда 404. сорри ещё куда урл то нужно писать, я туда пишу???.. сильно не пинайте плз!

[Demonx]

Winsock1.Connect "www.microsoft.com/index.html", 80

???

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

Winsock1.Connect "www.microsoft.com", 80

[Хакер]

Bov
Это не код ошибки. Это код статуса. В случае отсутсвия ошибки, он будет равен 200 (или 206), а не 0, как ты предполагаешь. А запрос, и коннект-стринг - полный бред.

Ты почитай FAQ, и сравни со своим.

[Bov]

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

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

Parametrs="параметр1=значение&параметр2=значение" 'сохраняем параметры в 'переменной

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

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, то:

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

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

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

Точно также... вот ка мне получить его этот статус?....
GET /адрес_скрипта? - что это за адрес скрипта?

[Хакер]

http://ru.wikipedia.org/wiki/HTTP