以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- QQ断线后提示框取消 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81176) |
-- 作者:ljh29206 -- 发布时间:2016/2/20 8:35:00 -- QQ断线后提示框取消 请教如何取消 那个连线的提示框 不出现提示框,但保持断线重连 没找到代码在哪里
|
-- 作者:Hyphen -- 发布时间:2016/2/20 8:49:00 -- 做个计时器,初始状态不启动:http://www.foxtable.com/help/topics/0657.htm 在QQClient 的Disconnected 事件写代码:http://www.foxtable.com/help/topics/2996.htm
If e.Mode = 5 Then MyTimers("计划1").Enabled = True End If 定时器调用登录代码,参考:http://www.foxtable.com/help/topics/2972.htm 代码类似: If QQClient.Ready = False Then QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址 QQClient.ServerPort = 52177 \'指定服务器端口 QQClient.UserName = "部门.用户" \'指定登录用户名 QQClient.Password = "用户密码" If QQClient.Start() = True \'如果登录成功 Dim msg As String = "恭喜,OpenQQ登录成功!" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 msg = msg & QQClient.ServerMessage End If popMessage(msg,"提示",PopiconEnum.Infomation,5) \'不需要提示可以去掉
\'关闭计时器的代码
MyTimers("计划1").Enabled = False Else \'如果登录失败,显示服务器返回错误信息 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)\'不需要提示可以去掉 End If End If |
-- 作者:ljh29206 -- 发布时间:2016/2/20 10:26:00 -- 我们用手提电脑要 经常移动 ,有时会在断网状态下工作, 但软件会保持开启, 我已经按版主的方案 进行连设置了,但右下角这个窗体还是老弹出来 能不能不让这个窗体弹出来 ,但 自动检测到网络后把QQ连上,不做任何提示
|
-- 作者:Hyphen -- 发布时间:2016/2/20 11:09:00 -- 没有办法,每次服务器断线都会出这个提示。 |
-- 作者:大红袍 -- 发布时间:2016/2/21 11:39:00 -- 看看 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77335&skin=0
|