Private Sub Hs_call()
Winsk1.RemoteHost = "188.188.188.8"
Winsk1.RemotePort = 6666
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Winsock1.Connect
DoEvents
End Sub
以上是winsock的常见的客户端连接,当connect的IP地址存在的时候,握手正常一般只要1-2秒,当connect的IP存在,但握手不正常,返回错误信息的时间也只要2-5秒,但是当所connect的IP不存在,比如192.168.1.6或以上IP在内网不存在,那么返回错误信息的时间就要50秒左右。
问题是怎么缩短IP不存在时的返回时间?50秒也太久了。
Winsk1.RemoteHost = "188.188.188.8"
Winsk1.RemotePort = 6666
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Winsock1.Connect
DoEvents
End Sub
以上是winsock的常见的客户端连接,当connect的IP地址存在的时候,握手正常一般只要1-2秒,当connect的IP存在,但握手不正常,返回错误信息的时间也只要2-5秒,但是当所connect的IP不存在,比如192.168.1.6或以上IP在内网不存在,那么返回错误信息的时间就要50秒左右。
问题是怎么缩短IP不存在时的返回时间?50秒也太久了。
解决方案 »
- 求助:分别取Text1中的数字与字母
- 如何在Word中插入菜单,关联自己的程序(在线等)
- 我是外行 考财会的一个VB编程题目 求代码
- 请问如何对一个date形变量付置?
- 请问在VB的函数中如何传递多维数组?
- 有没有前辈能对VB6.0的Prints对象做一个系统的讲解?
- 谁有vb一天通代码,给我发一下好不好?分数全给你!
- 请教各位大侠一个关于函数的问题
- Datagrid控件出现"缺少更新或刷新的键列信息"的错误
- 散我在另一个问题中没有给的分,别人勿入!
- 帮我解决一下好吗,用ole链接word文档,如何解决word只能显示第一页的问题?
- 请问 有没有办法在一个有模式的窗体下面显示一个无模式窗体!?
里面讲了,你阅读一下应该有帮助
改写你的代码如下:
Private Sub Hs_call()
dim j, iTryTimes as ingteger
Winsk1.RemoteHost = "188.188.188.8"
Winsk1.RemotePort = 6666
If Winsock1.State <> sckClosed Then
Winsock1.Close
End Ifj = 0
iTryTimes =128 '设定试图连接的次数
with Winsk1
Do
DoEvents
If .State = 7 Then Exit Do '如果连上就退出
j = j + 1
If .State <> 6 And j Mod 16 = 0 Then '处于“正在连接”或“关闭”状态
.Close
DoEvents
.RemoteHost = "188.188.188.8"
.RemotePort = 6666
.Protocol = sckTCPProtocol
.Connect
End If
If j > iTryTimes Then Exit Do '
Loop
end withEnd Sub
解决方法:取消服务器DNS反向解析
这和dns有问题吗?