| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教OPENQQ强制断开后重新连接上线的代码如何写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105234) |
| -- 作者：zhy400137 -- 发布时间：2017/8/15 8:33:00 -- 请教OPENQQ强制断开后重新连接上线的代码如何写？ 我是这样写的，提示正常登录，但聊天窗口打不开，消息也不能发送，谢谢！ QQClient.stop \'------设置QQClint登录参数-------- QQClient.ServerIP = _ServerIP QQClient.ServerPort = _ServerPort QQClient.UserName = _UserGroup & "." & _UserID QQClient.Password = _UserPassword If QQClient.Start() = True \'如果登录成功 Dim msg As String = "恭喜,OpenQQ登录成功!" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 msg = msg & QQClient.ServerMessage End If PopMessage(msg,"提示",PopiconEnum.Infomation,5) e.Form.Close Else \'如果登录失败,显示服务器返回错误信息 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) End If |
| -- 作者：有点甜 -- 发布时间：2017/8/15 8:42:00 -- 提示登录成功后，执行下面代码打开聊天窗口
QQClient.OpenChatWindow
如果是无法发送信息，看看你们是否为好友，而且用户名是否正确。 |
| -- 作者：zhy400137 -- 发布时间：2017/8/15 9:37:00 -- 我现在的问题是，我要点击两次再能正常连接，我想完成的功能是异常掉线后，用户点击重新连接，可以再次上线 QQClient.stop QQClient.ServerIP = _ServerIP QQClient.ServerPort = _ServerPort QQClient.UserName = _UserGroup & "." & _UserID QQClient.Password = _UserPassword If QQClient.Ready = False Then If QQClient.Start() = True \'如果登录成功 Dim msg As String = "恭喜,OpenQQ登录成功!" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 msg = msg & QQClient.ServerMessage End If PopMessage(msg,"提示",PopiconEnum.Infomation,5) e.Form.Close Else \'如果登录失败,显示服务器返回错误信息 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) End If End If QQClient.OpenChatWindow ’测试连接 |
| -- 作者：zhy400137 -- 发布时间：2017/8/15 9:45:00 -- 用户我测试的是被踢出，这个有影响？ |
| -- 作者：有点甜 -- 发布时间：2017/8/15 9:52:00 -- 登录成功以后，如果掉线，就是会重新连接的。
你第一次登录为什么不成功？提示什么？
你如果用foxtable自带的实例，能否正常使用？
|
| -- 作者：zhy400137 -- 发布时间：2017/8/15 9:52:00 -- 我换个请教方法 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100987&skin=0 这个贴子的重新登录的代码，要如何设计？我就是实现离线锁定，用户自己点击重连 |
| -- 作者：zhy400137 -- 发布时间：2017/8/15 9:52:00 -- 谢谢 |
| -- 作者：有点甜 -- 发布时间：2017/8/15 10:28:00 -- QQClient.stop QQClient.ServerIP = _ServerIP QQClient.ServerPort = _ServerPort QQClient.UserName = _UserGroup & "." & _UserID QQClient.Password = _UserPassword For i As Integer = 1 To 5 If QQClient.Ready = False Then If QQClient.Start() = True \'如果登录成功 Dim msg As String = "恭喜,OpenQQ登录成功!" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 msg = msg & QQClient.ServerMessage End If PopMessage(msg,"提示",PopiconEnum.Infomation,5) QQClient.OpenChatWindow \'测试连接 e.Form.Close Else \'如果登录失败,显示服务器返回错误信息 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) End If End If Next |
| -- 作者：有点甜 -- 发布时间：2017/8/15 10:29:00 -- 登录失败提示什么？截图看看。 |