| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何登陆软件时，顺便一起登陆OPENQQ (http://www.foxtable.com/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" |