Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]open qq 连接问题


  共有2568人关注过本帖树形打印复制链接

主题：[求助]open qq 连接问题
帅哥哟，离线，有人找我吗？
viking
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		[求助]open qq 连接问题  发帖心情 Post By：2016/8/13 2:03:00 [只看该作者]

自己按照帮助测试了一下，出现以下问题：
使用自定义用户
客户端和服务端都在本机
ip：127.0.0.1
ping ip 可以收到数据
已加入mes测试，可以收到登陆用户
已启动server

报错：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.23.1
错误所在事件：项目,Server
详细错误信息：
索引超出了数组界限。


UserLogging中代码和帮助一样


Dim pts() As String = e.UserName.Split(".")

MessageBox.Show(e.UserName)

Dim dr1 As DataRow

dr1 = DataTables("Users").Find("Group = '" & pts(0) & "' And Name = '" & pts(1) & "'")

If dr1 Is Nothing  Then '判断此用户不存在

    e.Message  = "用户名错误!" '返回给登录者的提示信息

    Return

End If

If dr1("Password") <> e.Password Then '如果密码错误

    e.Message  = "登录密码错误!" '返回给登录者的提示信息

    Return

End If

e.Success = True '允许用户登录



求帮助！！！谢谢

[此贴子已经被作者于2016/8/13 16:45:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cbt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：569 积分：4210 威望：0 精华：0 注册：2015/5/13 8:32:00 		  发帖心情 Post By：2016/8/13 7:53:00 [只看该作者]

索引超出了数组界限 这个提示，你试试

 

pts.Length  看看这个，超出了索引，

 

 

Dim pts() As String = e.UserName.Split(".")

MessageBox.Show(e.UserName)

if pts.length <2 then '判断长度

return

end if

Dim dr1 As DataRow

dr1 = DataTables("Users").Find("Group = '" & pts(0) & "' And Name = '" & pts(1) & "'")

If dr1 Is Nothing Then '判断此用户不存在

e.Message = "用户名错误!" '返回给登录者的提示信息

Return

End If

If dr1("Password") <> e.Password Then '如果密码错误

e.Message = "登录密码错误!" '返回给登录者的提示信息

Return

End If

e.Success = True '允许用户登录

 回到顶部
帅哥哟，离线，有人找我吗？
viking
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2016/8/13 16:48:00 [只看该作者]

不报错了，但是还是登录失败：
规定时间内未获服务器响应！

这个pts.length 怎么会小于2？

[此贴子已经被作者于2016/8/13 16:51:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/13 17:01:00 [只看该作者]

客户端登录代码看看

http://www.foxtable.com/webhelp/scr/2972.htm
 回到顶部
帅哥哟，离线，有人找我吗？
viking
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2016/8/13 17:05:00 [只看该作者]

登陆按钮部分代码
全局代码赋值
_UserTname = dr("Tname")
_UserRoles = dr("Roles")
_UserGsbm = dr("Gsbm")
_Userpassword = dr("password")


'以下为实验openQQ测试,需要修改
QQClient.ServerIP = "127.0.0.1"
QQClient.ServerPort = 52177
QQClient.UserName = _UserName
QQClient.Password = _Userpassword
If QQClient.Start() = True
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then
        msg = msg & QQClient.ServerMessage
    End If
    PopMessage(msg,"提示",PopiconEnum.Infomation,5)
Else
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
'以上为实验openQQ测试,需要修改
[此贴子已经被作者于2016/8/13 17:06:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cbt
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：569 积分：4210 威望：0 精华：0 注册：2015/5/13 8:32:00 		  发帖心情 Post By：2016/8/13 21:25:00 [只看该作者]

它默认的是

QQClient.UserName = e.Form.Controls("cmbDepartment").Value & "." & e.Form.Controls("txtUserName").Value '指定登录用户名

用. 来链接 部门 和 登录名，

所以，你那边没有部门，需要修改一下，

 

实在不行，就上传实例

[此贴子已经被作者于2016/8/13 21:39:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/14 12:34:00 [只看该作者]

改一改服务器端的登录代码

 

 

MessageBox.Show(e.UserName)

Dim dr1 As DataRow

dr1 = DataTables("Users").Find("Name = '" & e.UserName & "'")

If dr1 Is Nothing  Then '判断此用户不存在

    e.Message  = "用户名错误!" '返回给登录者的提示信息

    Return

End If

If dr1("Password") <> e.Password Then '如果密码错误

    e.Message  = "登录密码错误!" '返回给登录者的提示信息

    Return

End If


e.Success = True '允许用户登录
 回到顶部
帅哥哟，离线，有人找我吗？
viking
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2016/8/14 21:50:00 [只看该作者]

规定时间内未获得服务器响应！
不报错了，明白报错的原因了，要求服务器查找对应的Group造成的！
但还是没有响应。。。。
[此贴子已经被作者于2016/8/14 21:56:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
viking
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00 		  发帖心情 Post By：2016/8/14 22:34:00 [只看该作者]

问题解决了，代码后面没有清除干净，导致与运行其他代码造成的，删除后恢复正常！可以登录了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询