Foxtable(狐表)用户栏目专家坐堂 → [求助]qqclient登录错误


  共有1872人关注过本帖树形打印复制链接

主题:[求助]qqclient登录错误

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]qqclient登录错误  发帖心情 Post By:2017/9/24 15:22:00 [只看该作者]

老师,
.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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/24 21:56:00 [只看该作者]


 回到顶部