- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 根据帮助，开发者无法登陆OPENqq (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78527)
-- 发布时间：2015/12/10 19:25:00
-- 根据帮助，开发者无法登陆OPENqq
根据帮助，开发者无法登陆OPENqq
配置栏菜单里的代码
If QQClient.Ready Then
MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
QQClient.ServerIP = ZCLSERVERIP
QQClient.ServerPort = 52177
If user.Type = UserTypeEnum.User Then \'如果是普通用户
QQClient.UserName =""
QQClient.Password = ""
Else \'如果是开发者或管理员
Dim pwd As String
If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then
QQClient.UserName = User.Name
QQClient.Password = pwd
Else
Return
End If
End If
If QQClient.Start() = True \'如果登录成功
\' e.Form.Controls("btnChat").Enabled = True
Dim msg As String = "恭喜,OpenQQ登录成功!"
If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
msg = msg & QQClient.ServerMessage
End If
\' ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")
popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else \'如果登录失败,显示服务器返回错误信息
\' e.Form.Controls("btnChat").Enabled = False
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
[此贴子已经被作者于2015/12/10 19:27:56编辑过]
-- 发布时间：2015/12/10 19:25:00
--
111
[此贴子已经被作者于2015/12/10 19:25:30编辑过]
-- 发布时间：2015/12/10 19:28:00
--
正常啊，外部数据表不保存开发者、管理员的信息的。
---------------如果你要处理，就在服务器判断，如果用户是开发者，就特殊处理一下。
-- 发布时间：2015/12/10 19:30:00
--
提示 未知错误
-- 发布时间：2018/6/17 18:30:00
--
你的问题解决了吗？
-- 发布时间：2018/6/17 20:04:00
--
以下是引用nxqtxwz在2018/6/17 18:30:00的发言：
你的问题解决了吗？
你的问题解决了吗？
修改QQServer代码 http://www.foxtable.com/webhelp/scr/3017.htm