| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- OpenQQ 问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83286) |
| -- 作者：yifan3429 -- 发布时间：2016/4/6 0:15:00 -- OpenQQ 问题 If QQClient.Ready Then MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If QQClient.ServerIP = e.Form.Controls("txtIP").Value \'指定服务器IP地址 QQClient.ServerPort = e.Form.Controls("txtPort").Value \'指定服务器端口 QQClient.UserName = e.Form.Controls("cmbDepartment").Value & "." & e.Form.Controls("txtUserName").Value \'指定登录用户名 QQClient.Password = e.Form.Controls("txtPassword").Value 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 popMessage(msg,"提示",PopiconEnum.Infomation,5) Else \'如果登录失败,显示服务器返回错误信息 e.Form.Controls("btnChat").Enabled = False PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) End If --------------------------- 提示 --------------------------- 菜单中不存在名为"OpenQQ"的项目！ --------------------------- 确定 --------------------------- .NET Framework 版本：2.0.50727.8670 Foxtable 版本：2016.3.27.1 错误所在事件：项目,Connected 详细错误信息： 未设置对象变量或 With 块变量。 .NET Framework 版本：2.0.50727.8670 Foxtable 版本：2016.3.27.1 错误所在事件：启动IMClient 详细错误信息： 已添加了具有相同键的项。 [此贴子已经被作者于2016/4/6 2:08:53编辑过]
|
| -- 作者：Hyphen -- 发布时间：2016/4/6 8:27:00 -- 如果是用狐表示例改的，注意客户端是有一个菜单按钮OpenQQ的，参考下面帮助，更改一下其它事件的代码 http://www.foxtable.com/help/topics/3012.htm |
| -- 作者：大红袍 -- 发布时间：2016/4/6 9:17:00 -- 你服务端添加好友的时候有问题，有同名的好友。
If e.Buddies.Contains(nm)= False Then |