都是用的帮助的代码
服务器端用一个按钮执行:
以下内容为程序代码:
1 QQServer.ServerIp = "127.0.0.1" '指定IP地址
2 QQServer.ServerPort = 52177 '指定端口
3 QQServer.HeartbeatInterval = 30 '指定心跳时间
4 QQServer.HeartbeatTimeout = 100 '指定心跳超时时间
5 QQserver.Buildin = True '启用内置身份验证
6 QQServer.Start() '启动QQServer
7
客户端用一个按钮执行:
以下内容为程序代码:
1 QQClient.ServerIP = "127.0.0.1"
2 QQClient.ServerPort = 52177
3 QQClient.UserName = ""
4 QQClient.Password = ""
5 If QQClient.Start() = True
6 Dim msg As String = "恭喜,OpenQQ登录成功!"
7 If QQClient.ServerMessage > "" Then
8 msg = msg & QQClient.ServerMessage
9 End If
10 PopMessage(msg,"提示",PopiconEnum.Infomation,5)
11 Else
12 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
13 End If
14
为什么客户端登录的时候POP弹窗显示未知错误