| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]qqclient登录错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107262) |
| -- 作者：blsu33 -- 发布时间：2017/9/24 15:22:00 -- [求助]qqclient登录错误 老师， .NET Framework 版本：2.0.50727.3655 Foxtable 版本：2017.8.19.1 错误所在事件：启动IMClient 详细错误信息： An item with the same key has already been added. 不知道什么原因，包括绿色部分后面的代码出现错误，劳烦给看下。 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 MessageBox.Show(2) Dim msg As String = "恭喜,OpenQQ登录成功!" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 MessageBox.Show(3) msg = msg & QQClient.ServerMessage End If MessageBox.Show(4) popMessage(msg,"提示",PopiconEnum.Infomation,5) Dim s As String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Documents And Settings\\Administrator.LICHUN\\桌面\\QQ\\用户数据.mdb;Persist Security Info=False" If Connections.TryConnect(s) = True Then Connections.Delete("sjy") Connections.Add("test",s) End If e.Form.Close Forms("窗口1").Open() Else \'如果登录失败,显示服务器返回错误信息 e.Form.Controls("btnChat").Enabled = False PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) End If |
| -- 作者：有点甜 -- 发布时间：2017/9/24 21:56:00 -- 添加了同名好友
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103992&skin=0
|