主题：如何让客户端openQQ重连30秒后，不再尝试重连而关闭程序？像QQ尝试60秒失败后变灰头像离线

在disconnected事件里，加了

messagebox.show(e.mode)

我自己电脑的客户端，我禁用了本地连接，软件就已经弹窗提示 1，确定以后，然后狐表开始尝试重连openQQ。服务器端设置的心跳超时是30秒，但是一直都没有看到客户端超过30秒后提示 3

我想要的效果是，网络断了（例如客户机器长期不动要进入睡眠状态了），然后狐表开始重连openQQ，重连30秒后，确定是心跳超时死了，就提示3，那我就可以通过判断这状态，执行 syscmd.project.exit()。我要客户端知道自己超时死亡后，自动关闭程序。请问怎么做到？就好比QQ，刚断线的时候会尝试重连60秒，连不上了，就会彻底变成灰色头像，离线状态，不再尝试。现在的openQQ，客户端断线了会一直尝试重连，一直尝试，死也不断气。。。

顶顶~

你一台电脑，刚好就是测试不到本地连接断开的这个情况~

按照mode 3的情况，理论上应该只有 服务器端会知道，看它的原话'服务器在规定时间内容内没有收到用户的心跳信号" ，客户端是发送心跳信号，服务器端是接受心跳信号。服务器也会给客户端发送心跳信号？

客户端貌似只知道发，一直发发发，客户端不能设置发超时，自己干掉自己

我帮你测试，5分钟后我回复

求参考代码求参考代码~

我的服务器是有防火墙，不能直接ping，用不了timeout的功能，只能用tryhost。但是tryhost又没有timeout的功能，我想写在disconnect事件里，断开连接30秒后执行tryhost，连接不上就关闭程序。怎么用代码设置30秒后才执行呢？

我爬帖找到延时的代码，大红袍老师写的

Dim LastTime As Date = Date.now
Do until (Date.Now - LastTime).TotalSeconds >= 2
    Application.doevents
Loop
msgbox("2秒后看到")

那我写的代码如下

效果是断线后，先是停住2秒（此时客户端并没有尝试重连），然后弹出msgbox，然后openqq 的PopMessage弹出来，重连。

但是我想要的效果是  断线后，尝试重连，重连尝试2秒后，弹出msgbox

而且还有一个问题，就是我关闭软件的时候，一样会是先停住2秒，然后弹出msgbox，然后才能关闭，我一开始都以为软件无端端死了，突然才想起来是这个延时惹的祸。明显用户体验不行

请问有什么好的解决方法？

这个真的是正解！问题解决

全部代码里定义一个整数变量

public TryConnectTimes  as integer = 0

在主窗口的timetick事件

If TryConnectHost("www.baidu.com") = False Then
    TryConnectTimes = TryConnectTimes+1
Else
    TryConnectTimes = 0
End If

If TryConnectTimes = 5 Then
    MessageBox.show("软件与服务器失去连接超过30秒,请重新打开")
    syscmd.project.Exit()
End If

timetick设置6000毫秒