用WinSock怎么连续下载网页

Question

我的代码如下:Private Sub cmdStart_Click()
    Winsock1.RemoteHost = "xxxx.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect
end subPrivate Sub Winsock1_Connect()
    Winsock1.SendData "......"
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData strData, vbString    Open App.Path & "\1.txt" For Output As #1
    Write #1, strData
    Close #1
End Sub这样下载一次是完全没有问题的,但我要怎么下载第二个网页呢?
我如果再用:Winsock1.SendData "......"就会出错

Answer 1

Private Sub Winsock1_close()
winsock1.close
winsock1.connect youhost,port
End Sub
这样就行了

Answer 2

TCP协议是基于连接的协议UDP是基于非连接的协议换句话说，TCP协议如果要更换目的服务器的地址，那么就要先close连接后再设置好后重新打开方可使用，而UDP可以在使用时，任意改变RemoteHost和RemotePort属性，同时始终保持绑定在同一个Localport上

Answer 3

恩.可以用winsock数组来实现咯