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

此主题相关图片如下：qq截图20210326083556.png

我有在软件中加入QQclient,项目发布后客户端登录提示上面的错误

1：没有发布前没有此问题

2：直接跳在这里，提示失败，没有地方可以排查

Else '如果登录失败,显示服务器返回错误信息
' e.Form.Controls("btnChat").Enabled = False
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

此主题相关图片如下：qq截图20210326092320.png

此主题相关图片如下：qq截图20210326092304.png

dr("登錄次數") = dr("登錄次數") + 1
        dr("最後登錄時間") = Date.Now
        dr.Save
        ' DataTables(e.Form.Name & "_table1").Save
        _UserName = dlzh
        _UserName1=dr("真實姓名")
        _erpuser=dr("ERP帳號")
        _UserGroup=dr("所屬部門")

        If QQClient.Ready Then
            MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If

        QQClient.ServerIP ="192.168.0.11" '指定服务器IP地址
        QQClient.ServerPort ="52177" '指定服务器端口
        QQClient.UserName = _UserGroup & "." & _UserName1 '指定登录用户名
        QQClient.Password =MD5Encrypt(e.Form.Controls("登陆密码").Value)
        If QQClient.Start() = True '如果登录成功
            Dim msg As String = "系統登錄成功!"
            If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
                msg = msg & QQClient.ServerMessage
            End If
            popMessage(msg,"提示",PopiconEnum.Infomation,5)
        Else '如果登录失败,显示服务器返回错误信息
            ' e.Form.Controls("btnChat").Enabled = False
            PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
        End If

        _tim=Date.Now '登录时间
        MainTable = Tables("main")
        Forms("主界面1").show
        dlmm=e.Form.Controls("登陆密码").text
        If e.Form.Controls("记住密码").checked=True
            Registry.SetValue("HKEY_CURRENT_USER\Software\sdsys","_user",dlzh)
            Registry.SetValue("HKEY_CURRENT_USER\Software\sdsys","_psd",dlmm)
        Else
            Registry.SetValue("HKEY_CURRENT_USER\Software\sdsys","_user","")
            Registry.SetValue("HKEY_CURRENT_USER\Software\sdsys","_psd","")
        End If

        StatusBar.Message1 = "版本号:20201119001 网络版"
        StatusBar.Message3 = "授权用户:东莞伸東電子有限公司 | 系统设计: 資訊部联系QQ:18114872 联系电话:6129"
        '' baseMainform.Text = _gsm & "进销存管理系统单机标准版"
        '' Forms("主界面").show
        e.Form.close()

没有一个提示框出来

        'If QQClient.Ready Then
            'MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            'Return
        'End If

'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 '如果登录成功
            'Dim msg As String = "系統登錄成功!"
            'If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
                'msg = msg & QQClient.ServerMessage
            'End If
            'popMessage(msg,"提示",PopiconEnum.Infomation,5)
'msgbox(msg)
        'Else '如果登录失败,显示服务器返回错误信息
            '' e.Form.Controls("btnChat").Enabled = False
            'PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
        'End If
'msgbox(3)

这一段去掉就是正常的

msgbox(2)

到这里就不行

msgbox(msg)，这个不会跳出来

测试后，就这一个姓名不可能登录，其余登录正常

主题：关于QQclient登录