winsock关闭连接后能不能马上释放端口？

supertankhzt

winsock调用close方法后，那个本地端口就一直在那占着，等了半天还在，再用这个端口就会出错“地址正在使用”，有没有办法在关闭连接后立即释放端口？

supertankhzt

没人理我？？？

马大哈

我测试了一下,代码如下:

1. Private Sub Command1_Click()
   
2.     Winsock1.Listen
   
3. End Sub
   
4. 
   
5. Private Sub Command2_Click()
   
6.     Winsock1.Close
   
7. End Sub

复制代码

反复交替点击两个按钮,没有出现错误.

使用工具查看,端口也在CLOSE调用后关闭,并没有出现你所说的问题.

注意一下你的VB6是否打了SP6补丁,以及代码中是否有别的机制导致了端口不能使用.

另外,建议你也用上面这个代码在新工程中测试一下,控件只有两个按钮和一个WINSOCK控件,TCP协议,本地端口设置为8000.

马大哈

最近在忙结婚的事,比较少上,HOHO.

supertankhzt

马大哈 发表于 2011-11-23 14:32
我测试了一下,代码如下:反复交替点击两个按钮,没有出现错误.

使用工具查看,端口也在CLOSE调用后关闭,并没 ...

只是监听当然不会，我说的是指定本地端口再去连接另外一台计算机，然后发送数据，发完后关闭连接，可是关闭后端口还在占用着，要等五至十分钟才会自动释放。这段时间我就不能再使用这个本地端口了。
比如
Private Sub Form_Load()
    Winsock1.LocalPort = 3000
    Winsock1.Connect myhost, myport
End Sub
Private Sub Winsock1_Connect()
    Winsock1.SendData mydata
End Sub
Private Sub Winsock1_SendComplete()
    Winsock1.Close                  '调用close方法后端口（3000）不会马上释放
    Winsock1.Connect myhost, myport '再次使用此端口进行连接会报错"10048地址在使用中"我close了为什么它还在使用？
End Sub
同一个本地端口在短时间内没法多次使用吗

马大哈

1. Option Explicit
   
2. 
   
3. Private Const strCmd As String = "GET [THEURL] HTTP/1.1" & vbCrLf & _
   
4.                                  "Connection: close" & vbCrLf & _
   
5.                                  "Host: [THEHOST]" & vbCrLf & _
   
6.                                  "Accept: */*" & vbCrLf & _
   
7.                                  "Pragma: no-cache" & vbCrLf & _
   
8.                                  "Cache-Control: no-cache" & vbCrLf & _
   
9.                                  "Referer: [THEREFURL]" & vbCrLf & _
   
10.                                  "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2)" & vbCrLf & _
    
11.                                  vbCrLf     '最后一行没有命令,仅有一个换行符,表明整个命令字符串的结束.
    
12. 
    
13. Dim SendStr As String
    
14. 
    
15. Private Sub Command1_Click()
    
16.     Winsock1.Close
    
17.     Winsock1.LocalPort = 3000
    
18.     Winsock1.Connect "www.baidu.com", 80
    
19. End Sub
    
20. 
    
21. Private Sub Form_Load()
    
22.     Timer1.Enabled = False
    
23.     Timer1.Interval = 1000
    
24.    
    
25.     SendStr = strCmd
    
26.     SendStr = Replace(SendStr, "[theurl]", "http://www.baidu.com", , , vbTextCompare)     '替换URL
    
27.     SendStr = Replace(SendStr, "[thehost]", "www.baidu.com", , , vbTextCompare)     '替换HOST
    
28.     SendStr = Replace(SendStr, "[therefurl]", "www.baidu.com", , , vbTextCompare)     '替换RefURL
    
29. End Sub
    
30. 
    
31. Private Sub Winsock1_Connect()
    
32.     Winsock1.SendData SendStr
    
33.     Debug.Print "SendData"
    
34. End Sub
    
35. 
    
36. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    
37.     Dim I As String
    
38.    
    
39.     Call Winsock1.GetData(I)
    
40.     Debug.Print I
    
41. End Sub
    
42. 
    
43. Private Sub Winsock1_SendComplete()
    
44.     Timer1.Enabled = True               '在事件处理过程之外再关闭
    
45.     Debug.Print "SendComplete"
    
46. End Sub
    
47. 
    
48. Private Sub Timer1_Timer()
    
49.     Timer1.Enabled = False
    
50.     Call Command1_Click         '由定时器来执行关闭与再执行的任务
    
51. End Sub

复制代码

加个按钮加个定时器.

不能直接在事件处理过程里马上重连.

要退出这个事件过程后,才可以再连,我上面这个代码是使用定时器,经测试可以连续工作三次,然后估计被百度服务器限制了.

supertankhzt

马大哈 发表于 2011-11-24 00:38
加个按钮加个定时器.

不能直接在事件处理过程里马上重连.

问题貌似解决了API——SetTcpEntry函数
我是要做刷票程序，讲究速度不能延时执行，当然延时几秒也是没用的，我已经找到原因了，主动关闭TCP连接的一方，所用端口会进入TIME_WAIT状态，系统默认等待五分钟才释放端口。
这样的话把所有端口用光在五分钟内最多只能建立6万多个连接。
虽然实际达不到这么高，但是处于TIME_WAIT状态端口过多的话电脑就卡了，必须手动释放端口不能等系统自动释放。

马大哈

汗,原来是刷票程序.{:soso_e140:}