客户端的设置

如果客户端在登录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、上述代码对于开发者和管理员无效,参考:开发者和管理员的特殊性


本页地址:http://www.foxtable.com/webhelp/topics/3016.htm