- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：openqq客户端未登录情况下如何判断服务端是否在运行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117692)
-- 发布时间：2018/4/17 17:33:00
-- 求助：openqq客户端未登录情况下如何判断服务端是否在运行？
想在登录前做一个这样的判断：在openqq客户端未登录情况下如何判断服务端是否在运行？谢谢。
-- 发布时间：2018/4/17 17:42:00
--
输入账号密码，然后尝试连接咯
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
PopMessage(msg,"提示",PopiconEnum.Infomation,5)
Else \'如果登录失败,显示服务器返回错误信息
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
-- 发布时间：2018/4/17 17:59:00
--
就是不想输入QQ客户端信息才问这个问题的
-- 发布时间：2018/4/17 18:02:00
--
设置一个默认的通用、共用的账号即可。
而且你qqserver的登陆事件，是可以随意控制的，如果是特定某个用户发送过来的登陆信息，你额外响应放回信息即可。
-- 发布时间：2018/4/17 18:32:00
--
只能这样了，谢谢了