我原来的代码没问题(红色),我想让开发者和管理员也能接收发送消息,把红色的代码改成黑色部分的代码,怎么总出错,请老师改一改。
'If QQClient.Ready Then
' QQClient.OpenChatWindow()
'Else
' QQClient.ServerIP = "218.203.157.198"
' QQClient.ServerPort = 52177
' QQClient.UserName =""
'QQClient.Password = ""
' If QQClient.Start() = True
' QQClient.OpenChatWindow()
' Else
' PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
' End If
'End If
If QQClient.Ready Then
MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
QQClient.ServerIP = "218.203.157.198"
QQClient.ServerPort = 52177
If QQClient.Start() = True
QQClient.OpenChatWindow()
End If
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
ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")
popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息
e.Form.Controls("btnChat").Enabled = False
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If