Winsock и авторизация!

[DeMONiZ]

Все таки решил разобраться с Winsock-ом. Вот код мой который почему то на отказ не хочет работать подскажите почему?

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

Dim Data As String

Private Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 0
Winsock1.Connect "www.yandex.ru/", 80
While Not Winsock1.State = 7
DoEvents '
Wend '
Text1.Text = "Ïîäêëþ÷åíèå ïðîøëî óñïåøíî "

Parametrs = "login=1111111111&passwd=11111111"
Winsock1.SendData "POST http://www.yandex.ru/passport?mode=auth&retpath=http: //mail.yandex.ru HTTP/1.1" & vbCrLf
Winsock1.SendData "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Winsock1.SendData "Host: passport.yandex.ru" & vbCrLf
Winsock1.SendData "Content-Length: 29" & vbCrLf & vbCrLf
Winsock1.SendData Parametrs & vbCrLf
End Sub

Private Sub Command2_Click()
Text1.Text = Data
End Sub

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



[DeMONiZ]

C яндексом не разобрался а вот с другим сайтом все работает!

[iGrok]

C яндексом не разобрался а вот с другим сайтом все работает!

Я не уверен, не пробовал и толком не смотрел.
Но есть подозрение, что яндексу не хватает SSL.

[DeMONiZ]

Возможно. Да с яндексом вообще не понятно что куда с каких страниц...

[Хакер]

Если нечто подобное не работает, значит вы где-то накосячили с HTTP-протоколом. И надо либо учить его от и до, либо использовать WinHttp.

[MIT]

Причина неработы проста - ты яндексу хрень шлешь. Поставиь сниффер и посмотри как это делает нормальный браузер.
А так - никаких сложностей, даже SSL там нет.

[DeMONiZ]

Он у меня стоит. Смотрел я что он шлет. В прочем мне не для яндекса все равно надо было, а для чего надо было я уже сделал.

[MIT]

Тогда резонный вопрос, а зачем спрашивал, если не надо?

[DeMONiZ]

Для примера спрашивал.