Конференция VBStreets

**Dimon007** » 29.08.2007 (Ср) 21:36

Вот код:

Код: Выделить всё: Private Sub Command1_Click() ws1.Protocol = sckTCPProtocol ws1.Connect "http://www.yandex.ru", 80 While Not ws1.State = 7 DoEvents ' Wend ' Text1.Text = "Ïîäêëþ÷èëèñü!" & vbCrLf & vbCrLf ws1.SendData "GET /index.html HTTP/1.0" & vbCrLf & vbCrLf End Sub

Если подключаться к яндексу, то он подключает, а если к примеру, к mail.ru, то нет. В браузере всё, конечно открывается.

**GSerg** » 29.08.2007 (Ср) 21:49

Это, наверное, потому, что по адресу http://www.mail.ru/index.html расположено 404. Что курил открывающий это 404 браузер?

**Dimon007** » 29.08.2007 (Ср) 21:59

Не, браузер не курящий) WS вообще не соединяется с сервером, вот тут:

ws1.Connect "http://www.yandex.ru", 80

А запросы - это отдельная история

**GSerg** » 29.08.2007 (Ср) 22:06

А.
Ну да.
Нефиг хттп указывать при коннекте.
И порт в 0 сбрасывай.
И события юзай, а не это.

Код: Выделить всё: Option Explicit Private Sub Command1_Click() ws1.Protocol = sckTCPProtocol ws1.LocalPort = 0 ws1.Connect "www.mail.ru", 80 End Sub Private Sub ws1_Connect() MsgBox "!" ws1.Close End Sub

**Dimon007** » 29.08.2007 (Ср) 22:43

спасибо, помогло

**Хакер** » 29.08.2007 (Ср) 22:58

GSerg писал(а):И порт в 0 сбрасывай.

Для чего?

**GSerg** » 29.08.2007 (Ср) 23:07

**Хакер** » 29.08.2007 (Ср) 23:11

После прочтения всех сообщений, был прочитан ещё раз четвёртый пост и было установлено, что я в первый раз его невнимательно прочёл.

**udpn** » 31.08.2007 (Пт) 19:16

2GSerg спасибо, как раз по моей теме )

WinSock к некоторым сайтам коннектится, а к некоторым - нет(