关于QQclient登录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于QQclient登录

共有3230人关注过本帖树形打印复制链接主题：关于QQclient登录

有点蓝

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

加好友

发短信

等级：超级版主帖子：109469 积分：557007 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/26 9:13:00 [显示全部帖子]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

有点蓝

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

加好友

发短信

等级：超级版主帖子：109469 积分：557007 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/26 9:22:00 [显示全部帖子]

什么事件错误？贴出完整代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：109469 积分：557007 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/26 9:28:00 [显示全部帖子]

贴出启动客户端的完整代码：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

有点蓝

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

加好友

发短信

等级：超级版主帖子：109469 积分：557007 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/26 9:36:00 [显示全部帖子]

msgbox(1) ‘看看哪个提示框出不来

QQClient.ServerIP ="192.168.0.11" '指定服务器IP地址
        QQClient.ServerPort ="52177" '指定服务器端口
        QQClient.UserName = _UserGroup & "." & _UserName1 '指定登录用户名
        QQClient.Password =MD5Encrypt(e.Form.Controls("登陆密码").Value)

msgbox(2)
If QQClient.Start() = True '如果登录成功

msgbox(QQClient.Ready)
            Dim msg As String = "系統登錄成功!"
            If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
                msg = msg & QQClient.ServerMessage
            End If

msgbox(msg)
popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息

msgbox(QQClient.ServerMessage)
            ' e.Form.Controls("btnChat").Enabled = False
            PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
        End If

msgbox(3)