有关winsock的一个小问题?

Question

我在网上下载了一个 获得web页的原码 如下:
Private Sub cmdconnect_Click()
On Error Resume Next  Winsock1.RemoteHost = txtwebserver.Text
  Winsock1.RemotePort = 80
  Winsock1.Connect
  
End Sub
Private Sub Winsock1_Connect()
On Error Resume Next
  Dim strCommand As String
  Dim strWebPage As String
  
  
  strWebPage = txtlocation.Text
  strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
  strCommand = strCommand + "Accept: */*" + vbCrLf
  strCommand = strCommand + "Accept: text/html" + vbCrLf
  strCommand = strCommand + vbCrLf
  Winsock1.SendData strCommand
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  On Error Resume Next
  Dim webData As String
  
  Winsock1.GetData webData, vbString
  txtWebPage.Text = txtWebPage.Text + webData
  
End Sub为什么我打开运行 第一次输入一个地址可以下载web页 并显示内容 然后我换一个再点连接就不可以了
我抓包 发现再次点的时候根本就没有发送数据,郁闷了.....

Answer 1

你的socket在再次连接之前对Socket的状态做一个判断，如果没有关闭，先关闭Socket，再连接
也就是：
Private Sub cmdconnect_Click()
On Error Resume Next
  if Winsock1.state<>sckClosed then Winsock1.close   Winsock1.RemoteHost = txtwebserver.Text
  Winsock1.RemotePort = 80
  Winsock1.Connect
  
End Sub