Winsock и HTTP соединение.... - VB

Формулировка задачи:

Задача следующая: Создать соединение с web сервером, и послать данные на web страницу... Примерно так:

Dim d As String
Winsock1.Close
Winsock1.Connect "127.0.0.1", 80
Data = "POST /test.asp HTTP/1.1"
 
'..... и так далее, 
 
Winsock1.SendData Data
Winsock1.GetData d

Соединение вроде устанавливается, но при попытке послать данные - ошибка. 'Wrong protocol or connection state...' Что-то я недопонимаю в HTTP протоколе? Подскжите, если кто сталкивался... Решения с использованием компонентов типа HTTPRequest и ему подобным не подходят, мне нужно просто создать соединение, и вручную послать HTTP request...

Решение задачи: «Winsock и HTTP соединение....»

textual
                            Листинг программы 
                        

                            Private Sub connect()
Dim d As String
d = "GET /test.asp HTTP/1.1" & Chr(13) & _
"Accept: */*" & Chr(13) & _
"Accept-Language: ru" & Chr(13) & _
"Connection: Keep-Alive" & Chr(13) & _
"Host: 127.0.0.1" & Chr(13) & _
"User-Agent: Winsock" & Chr(13) & _
"Cookie: user=xxx" & Chr(13) & _
"Accept-Encoding: gzip, deflate" & Chr(13) & Chr(13)
Winsock2.Connect "127.0.0.1", 80
Winsock2.SendData d
End Sub
                        