开发者登录openQQ后不能发送信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

开发者登录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

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

可以正常登陆？同一台电脑如果改为其它用户就可以？

是的,其余用户不受影响,就是开发者可以登录,但不能发信息,我的服务端是另一个项目

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

这是服务端

开发者是内置的用户，必须保证服务端和客户端的设置是完全一样的：一样的密码，一样的名称，一样的组、角色设置....

另外开发者和管理员主要是开发人员使用的，生产环境建议就不要使用这2个账户了。

主题：开发者登录openQQ后不能发送信息