- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- QQclient报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152688)
-- 发布时间：2020/7/18 16:23:00
-- QQclient报错
此主题相关图片如下：截图.png
代码执行到 If QQClient.Start() = True这一句报错，提示菜单中不存在名为“openqq”的项目，可是在菜单中的配置栏存在一个叫openqq的按钮；
另外在菜单的SystemIdle事件增加的代码也提示这个错误，不太清楚怎么改，希望老师能给与提示，谢谢
QQClient.ServerIP = "127.0.0.1" \'指定服务器IP地址
QQClient.ServerPort = 52177 \'指定服务器 登录端口
QQClient.UserName = "生产部.李桂兰"
QQClient.Password = "888"
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
-- 发布时间：2020/7/18 16:40:00
--
添加的按钮的名称或者位置不正确。用到这个菜单的地方重新改一下引用
-- 发布时间：2020/7/18 16:52:00
--
谢谢老师，是因为在系统菜单中做测试的原因