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

\'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

照抄，报什么错？

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的开发者、管理员的密码。