主题：求助：openqq客户端未登录情况下如何判断服务端是否在运行？

输入账号密码，然后尝试连接咯

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

设置一个默认的通用、共用的账号即可。

而且你qqserver的登陆事件，是可以随意控制的，如果是特定某个用户发送过来的登陆信息，你额外响应放回信息即可。