Winsock 为什么得不到服务器的响应

Question

Private Sub Command1_Click()'发送请求
   Winsock1.SendData Text1.Text
End Sub
Private Sub Form_Load()'连接服务器
    Winsock1.RemoteHost = "dev-svr"
    Winsock1.RemotePort = 80
    Winsock1.Connect
    Text1.Text = "GET http://dev-svr/comp/index.html HTTP/1.1" + vbCrLf 
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim strData As String
   Winsock1.GetData strData
   Text2.Text = strData
End Sub
（功能：是通过Winsock连接服务器，按照http的协议，发送请求给服务器（打开一个网业），得到该网业的源文件）
连接是成功了的
问题：1、不知道发送请求的格式是否正确
      2、如果正确但是为什么得不到服务器的响应
希望大家给出解决办法
分不够再加！！！！

Answer 1

已经可以发送了，但是得到的信息提示有错误，即源文件返回不正确
    Winsock1.RemoteHost = "sina.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect    
    strWeBPaGe = "Get " + "http://www.sina.com/" + " HttP/1.1" + vbCrLf + "accePt: */*" + vbCrLf + "accePt: te£øt/Html" + vbCrLf + vbCrLf
    Text1.Text = strWeBPaGe
帮忙看一下格式有什么不正确的！！！