启动客户端
本节的内容可以参考CaseStudy目录下的例子:QQClient.Table
启动客户端的代码很简单:
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
提示:QQClient的Start方法在登录成功后返回True,否则返回False,通过ServerMessage我们可以获得登录失败的原因 ,也可以在登录成功后通过这个属性获取服务器的欢迎信息。
实际使用的时候,通常我们会设计一个窗口,让用户输入服务器地址、端口以及登录用户名和密码: