主题：[求助]OpenQQ 离线触发

老师 您好

  OpenQQ  如果离线时（除关闭项目外），弹出一个对话框，提示用户。

下面的代码出错，离线后不停的在触发Disconnected事件，不停的在弹力出对话框，您看下要怎么弄。是不是思路不对。谢谢

 

Disconnected事件代码如下：

If MessageBox.Show("您的账号在其它地方登录!" & "是否重新登录?","下线提示",MessageBoxButtons.YesNo,MessageBoxIcon.Error) = DialogResult.Yes
    Forms("重新登录").Show
Else
    Syscmd.Project.Exit(True)
End If

客户端异常离线时，禁止操作怎么写，在哪里写？自动连接上后，恢复操作在哪里写，怎么写？

Disconnected 你可以弹出一个模式窗口锁定操作。

 

If Forms("锁定").Opened = False Then

    Forms("锁定").Show

End If

 

这个锁定窗口加上提示，加上按钮退出或重新登录。

mark

老师 这样不行呀  

   关闭系统时，也会弹出窗口，而且点击退出按钮都不行，点退出后不停弹力出此窗口（感觉判断窗口打开没效果一样），一定要点重新登录才能关闭。

 关闭系统的代码你怎么写？你可以加入判断嘛

 

If vars("锁定") = True AndAlso Forms("锁定").Opened = False Then

    Forms("锁定").Show

End If

 

 你的关闭按钮写代码

 

vars("锁定") = False

Syscmd.Project.Exit(True)

 

加了这个全局变量就ok了  谢谢老师

mark