主题：QQ断线后提示框取消

If QQClient.Ready = False Then

    QQClient.ServerIP = "127.0.0.1"  '指定服务器IP地址

    QQClient.ServerPort = 52177  '指定服务器端口

    QQClient.UserName = "部门.用户" '指定登录用户名

    QQClient.Password = "用户密码"

    If QQClient.Start() = True '如果登录成功

        Dim msg As String =  "恭喜,OpenQQ登录成功!"

        If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

            msg = msg & QQClient.ServerMessage

        End If

        popMessage(msg,"提示",PopiconEnum.Infomation,5) '不需要提示可以去掉

'关闭计时器的代码

    Else '如果登录失败,显示服务器返回错误信息

        PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)'不需要提示可以去掉

    End If

End If