Foxtable(狐表)用户栏目专家坐堂 → 内置聊天器 oppen qq


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

主题:内置聊天器 oppen qq

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


加好友 发短信
等级:婴狐 帖子:35 积分:272 威望:0 精华:0 注册:2021/12/28 17:50:00
内置聊天器 oppen qq  发帖心情 Post By:2022/2/18 16:27:00 [显示全部帖子]

老师我想问一下内置聊天器要满足什么样的条件才能打开呢,我做了个按钮打开不了哈哈哈哈
QQClient.OpenChatWindow() 看那个在线文档有点懵

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


加好友 发短信
等级:婴狐 帖子:35 积分:272 威望:0 精华:0 注册:2021/12/28 17:50:00
  发帖心情 Post By:2022/2/18 16:41:00 [显示全部帖子]

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

  这个是放在哪里 的


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


加好友 发短信
等级:婴狐 帖子:35 积分:272 威望:0 精华:0 注册:2021/12/28 17:50:00
  发帖心情 Post By:2022/2/18 16:46:00 [显示全部帖子]

If QQClient.Ready Then
    QQClient.OpenChatWindow()

End
 If
然后第二张就是这个,我想看看内置聊天的效果而已

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


加好友 发短信
等级:婴狐 帖子:35 积分:272 威望:0 精华:0 注册:2021/12/28 17:50:00
  发帖心情 Post By:2022/2/18 17:01:00 [显示全部帖子]

老师我想问一下您是不是要设置什么的,如图

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


加好友 发短信
等级:婴狐 帖子:35 积分:272 威望:0 精华:0 注册:2021/12/28 17:50:00
  发帖心情 Post By:2022/2/18 17:02:00 [显示全部帖子]

111
图片点击可在新窗口打开查看此主题相关图片如下:截图a1.png
图片点击可在新窗口打开查看

 回到顶部