- 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=147662)
-- 发布时间：2020/3/21 14:57:00
-- 开发者登录openQQ后不能发送信息
开发者登录openQQ后不能发送信息
QQClient.ServerIP = "10.98.30.138"
QQClient.ServerPort = 52177
\'QQClient.UserName = ""
\'QQClient.Password = ""
QQClient.MenuItems = "密码修改"
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
此主题相关图片如下：snipaste_2020-03-21_14-55-36.jpg
此主题相关图片如下：snipaste_2020-03-21_14-55-36.jpg 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
-- 发布时间：2020/3/21 15:13:00
--
可以正常登陆？同一台电脑如果改为其它用户就可以？
-- 发布时间：2020/3/21 15:17:00
--
是的,其余用户不受影响,就是开发者可以登录,但不能发信息,我的服务端是另一个项目
-- 发布时间：2020/3/21 15:31:00
--
QQServer.ServerIp = "10.98.30.138" \'指定IP地址
QQServer.ServerPort = 52177 \'指定登录端口
QQServer.HeartbeatInterval = 30 \'指定心跳时间
QQServer.HeartbeatTimeout = 100 \'指定心跳超时时间
QQServer.PortRange = "32000/53000" \'指定随机端口范围
QQserver.Buildin = True \'启用内置身份验证
If QQServer.Start() = True Then
Dim msg As String = "恭喜,OpenQQ启动成功!"
PopMessage(msg,"提示",PopiconEnum.Infomation,5)
Else
PopMessage("OpenQQ启动失败","提示",PopiconEnum.Error,5)
End If
这是服务端
-- 发布时间：2020/3/21 15:45:00
--
开发者是内置的用户，必须保证服务端和客户端的设置是完全一样的：一样的密码，一样的名称，一样的组、角色设置....
另外开发者和管理员主要是开发人员使用的，生产环境建议就不要使用这2个账户了。