主题：请老师给看看

我原来的代码没问题（红色），我想让开发者和管理员也能接收发送消息，把红色的代码改成黑色部分的代码，怎么总出错，请老师改一改。

 

 

 

'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

 

照抄，报什么错？

 

http://www.foxtable.com/webhelp/scr/3049.htm

 

 

我把这个代码写在菜单的按钮事件中了，可能原来是窗口中的。

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

这种代码QQClient.Start，请写到最后（账号密码设置以后才能start）

 

 

老师，我改成了下面这样，普通用户是正常的，但开发者输入密码后不能打开窗口。显示“未知错误，登录失败”，是不是密码传递有问题呢。

 

If QQClient.Ready Then
    QQClient.OpenChatWindow()
Else
   
    ' MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    '  Return
    'End If
    QQClient.ServerIP = "218.203.157.198"      '指定服务器IP地址
    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 '如果登录成功
        QQClient.OpenChatWindow()
        '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
End If

密码必须写对才行，密码是qqServer的开发者、管理员的密码。

请老师看看代码有没有问题，其它是正常的，我第二次输入密码后显示登录失败，未知错误。这个调不通不调了，想问下老师，我要想打开项目就登录QQ，但不打开QQ窗口，这一段代码应该写在哪个事件中呢？

代码写到LoadUserSetting事件。