QQClient.ServerIP = "192.168.1.1" '指定服务器IP地址
QQClient.ServerPort = 52177 '指定服务器 登录端口
QQClient.UserName = "生产部.李桂兰"
QQClient.Password = "888"
If QQClient.Start() = True '如果登录成功
msgbox("服务已启动")
Else '如果登录失败,显示服务器返回错误信息
msgbox("服务没有启动")
End If