以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 从openqq的服务端判断客户的computerid (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153351) |
-- 作者:tld -- 发布时间:2020/8/7 23:22:00 -- 从openqq的服务端判断客户的computerid 老师,能不能从openqq的服务端判断上线客户的computerid?或者说,判断新上线的客户从哪台电脑登录 谢谢
[此贴子已经被作者于2020/8/7 23:22:29编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/8/8 9:28:00 -- computerid肯定是不行的,可以获取IP: UserLogged事件 For Each User As QQUser In QQserver.Users Output.Show(User.Name) Output.Show(User.WanIPAddress) Next 或者登陆后,客户端自己把computerid发送给服务端 QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址 QQClient.ServerPort = 52177 \'指定服务器 登录端口 QQClient.UserName = "生产部.李桂兰" QQClient.Password = "888" If QQClient.Start() = True \'如果登录成功 Dim msg As String = "恭喜,OpenQQ登录成功!" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 msg = msg & QQClient.ServerMessage End If QQClient.Send("机器码=" & computerid) PopMessage(msg,"提示",PopiconEnum.Infomation,5) Else \'如果登录失败,显示服务器返回错误信息 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) End If |