我现在的问题是,我要点击两次再能正常连接,我想完成的功能是异常掉线后,用户点击重新连接,可以再次上线QQClient.stop
QQClient.ServerIP = _ServerIP
QQClient.ServerPort = _ServerPort
QQClient.UserName = _UserGroup & "." & _UserID
QQClient.Password = _UserPassword
If QQClient.Ready = False Then
If QQClient.Start() = True '如果登录成功
Dim msg As String = "恭喜,OpenQQ登录成功!"
If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
msg = msg & QQClient.ServerMessage
End If
PopMessage(msg,"提示",PopiconEnum.Infomation,5)
e.Form.Close
Else '如果登录失败,显示服务器返回错误信息
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
End If
QQClient.OpenChatWindow ’测试连接