客户端的设置
如果客户端在登录OpenQQ时,不指定用户名和密码,系统就会自动调用内置用户的用户名和密码来登录OpenQQ。
例如:
QQClient.ServerIP
= "127.0.0.1"
QQClient.ServerPort
= 52177
QQClient.UserName
= ""
QQClient.Password
= ""
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
提示:
1、要使上述代码有效,必须事先将QQServer的Buildin属性设置为True。
2、上述代码对于开发者和管理员无效,参考:开发者和管理员的特殊性