Winsock发送问题

Question

用VB创建一个工程,使用Winsock发送Winsock Expert抓取到Cookies的数据包,源码如下:
Private Sub Command1_Click()
Winsock1.RemoteHost = "www.xxxx.com"
Winsock1.RemotePort = 80
Winsock1.Connect  
Command1.Enabled = False
End SubPrivate Sub Command3_Click()
Winsock1.Close
Command1.Enabled = True
End SubPrivate Sub Winsock1_Connect()
Winsock1.SendData Text1.TextEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strtmp As String
Winsock1.GetData strtmp
txtStr.Text = strtmp End Sub发送数据以后txtStr无法接收到响应数据,请问是怎么回事,谢谢了.

Answer 1

在 发送后面加 
Winsock1.SendData Text1.Text
doevents
有问题咨询QQ  17310603注明要问的问题