以文本方式查看主题
- 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=114657)
|
-- 作者:cd_tdh
-- 发布时间:2018/2/12 14:51:00
-- openQQ登陆失败
之前登陆完全正常今天打开一直失败
此主题相关图片如下:qq截图20180212114917.png
|
-- 作者:有点甜
-- 发布时间:2018/2/12 15:09:00
--
UserLogging事件,改代码
For Each dr2 As DataRow In DataTables("user").select("") Dim nm As String = dr2("部门") & "." & dr2("name") If nm <> e.UserName Then \'如果不是登录者本人 If e.Buddies.Contains(nm)= False Then e.Buddies.Add(nm) End If End If Next
|
-- 作者:cd_tdh
-- 发布时间:2018/2/12 15:21:00
--
老师,还是不对
我是外部表,自定义登陆,登陆成功后通过模拟点击QQClient窗口的登陆按钮来登陆的OPenQQ
|
-- 作者:有点甜
-- 发布时间:2018/2/12 15:24:00
--
贴出你 UserLogging 事件代码
|
-- 作者:cd_tdh
-- 发布时间:2018/2/12 15:29:00
--
For Each dr2 As DataRow In DataTables("账号密码").Select("") Dim nm As String = dr2("部门") & "." & dr2("姓名") If nm <> e.UserName Then If e.Buddies.Contains(nm)= False Then e.Buddies.Add(nm) End If End If Next
|
-- 作者:有点蓝
-- 发布时间:2018/2/12 16:25:00
--
如果是普通开发版,只能添加20个好友,是否超出了?
|
-- 作者:有点甜
-- 发布时间:2018/2/12 16:59:00
--
贴出你QQServer的UserLogging的代码。
|
-- 作者:cd_tdh
-- 发布时间:2018/2/12 17:07:00
--
Dim pts() As String = e.UserName.Split(".") Dim dr1 As DataRow dr1 = DataTables("账号密码").Find("部门 = \'" & pts(0) & "\' And 姓名 = \'" & pts(1) & "\'") If dr1 Is Nothing Then \'判断此用户不存在 e.Message = "用户名错误!" \'返回给登录者的提示信息 Return End If If dr1("密码") <> e.Password Then \'如果密码错误 e.Message = "登录密码错误!" \'返回给登录者的提示信息 Return End If e.Success = True \'允许用户登录 \'添加所有同事为好友 For Each dr2 As DataRow In DataTables("账号密码").DataRows Dim nm As String = dr2("部门") & "." & dr2("姓名") If nm <> e.UserName Then \'如果不是登录者本人 e.Buddies.Add(nm) End If Next
|
-- 作者:cd_tdh
-- 发布时间:2018/2/12 17:11:00
--
以下是引用有点甜在2018/2/12 16:59:00的发言: 贴出你QQServer的UserLogging的代码。
老师好像找到问题了,有两个相同部门,相同姓名的账号,删除一个后就正常了。
|
-- 作者:有点甜
-- 发布时间:2018/2/12 17:18:00
--
以下是引用cd_tdh在2018/2/12 17:11:00的发言:
老师好像找到问题了,有两个相同部门,相同姓名的账号,删除一个后就正常了。
修改你QQServer的UserLogging的代码,如2楼红色代码。
|