专家坐堂-如何登陆软件时，顺便一起登陆OPENQQFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何登陆软件时，顺便一起登陆OPENQQ  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145574)

--  作者：漂亮美眉vszh
--  发布时间：2020/1/31 13:54:00
--  如何登陆软件时，顺便一起登陆OPENQQ

老师：1.将登陆用户时，输入用户名和密码，再确定内加入登陆OPENQQ代码，登陆不成功；
2，将代码加入打开项目后执行，项目事件内，也登陆不了

--  作者：漂亮美眉vszh
--  发布时间：2020/1/31 13:55:00
--
If QQClient.Ready = False Then
    MessageBox.show("登陆时自动启动OPENQQ测试","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    QQClient.ServerIP = "127.0.0.1"
    QQClient.ServerPort = "52177"
    QQClient.UserName = _UserGroup & "." & _UserName

--  作者：漂亮美眉vszh
--  发布时间：2020/1/31 13:56:00
--
QQClient.Password = dr("Password")

--  作者：漂亮美眉vszh
--  发布时间：2020/1/31 13:57:00
--

代码不准贴，说违反规定，但基本意思就是这样的，把这句加到哪都错，都没法登陆，必须手工再点一次登陆才行

--  作者：有点蓝
--  发布时间：2020/1/31 14:01:00
--
做个例子发上来。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632

--  作者：漂亮美眉vszh
--  发布时间：2020/2/5 19:29:00
--

我找到原因了，在服务器OPENQQ中，监视器事件UserLogging中，没有获取到 e.Password，弹出弹窗为空，显示登录密码错误，所以没有登陆成功
Dim dr As DataRow
dr = DataTables("Users").SQLFind("Name = \'" & pts(1) & "\'")
Dim st As String = pts(0)
If dr Is Nothing Then \'判断此用户不存在
    e.Message = "用户名错误!" \'返回给登录者的提示信息
    Return
End If
MessageBox.Show(dr("Password") & "    " & e.Password)
If dr("Password") <> e.Password Then \'如果密码错误
    e.Message = "登录密码错误!" \'返回给登录者的提示信息
    Return
End If

--  作者：有点蓝
--  发布时间：2020/2/6 10:55:00
--
启动的时候没有给密码赋值？

QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址
QQClient.ServerPort = 52177  \'指定服务器登录端口
QQClient.UserName = "生产部.李桂兰"
QQClient.Password = "888"