请教OPENQQ强制断开后重新连接上线的代码如何写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教OPENQQ强制断开后重新连接上线的代码如何写？

共有1706人关注过本帖树形打印复制链接主题：请教OPENQQ强制断开后重新连接上线的代码如何写？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/15 8:42:00 [显示全部帖子]

提示登录成功后，执行下面代码打开聊天窗口

QQClient.OpenChatWindow

如果是无法发送信息，看看你们是否为好友，而且用户名是否正确。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/15 9:52:00 [显示全部帖子]

登录成功以后，如果掉线，就是会重新连接的。

你第一次登录为什么不成功？提示什么？

你如果用foxtable自带的实例，能否正常使用？

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/15 10:29:00 [显示全部帖子]

登录失败提示什么？截图看看。

下一主题 >> << 上一主题

主题：请教OPENQQ强制断开后重新连接上线的代码如何写？