其他都注释了，也是一样，后来想了想有一个窗口在测试的时候设置的是自动打开，将其关闭自动打开就OK了。
另外，OpenQQ这边怎么修改呢？
If QQClient.Ready Then
MessageBox.show("MyQQClient已经启动，请先关闭！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
QQClient.ServerIP = "192.168.0.100"
QQClient.ServerPort = "52177"
If user.Type = UserTypeEnum.User Then '如果是普通用户
QQClient.UserName =""
QQClient.Password = ""
Else '如果是开发者或管理员
Dim pwd As String
If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then
QQClient.UserName = User.Name
QQClient.Password = pwd
Else
Return
End If
End If
If QQClient.Start() = True '如果登录成功
'e.Form.Controls("btnChat").Enabled = True
Dim msg As String = "恭喜，OpenQQ登录成功！"
If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
msg = msg & QQClient.ServerMessage
End If
popMessage(msg,"提示",PopiconEnum.Infomation,3)
Else '如果登录失败,显示服务器返回错误信息
'e.Form.Controls("btnChat").Enabled = False
PopMessage("OpenQQ登录失败，原因：" & vbcrlf & QQClient.ServerMessage & "。","提示",PopiconEnum.Error,5)
End If
加好友 
发短信
Post By：2017/11/29 16:29:00 [只看该作者]
