- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 内置聊天器 oppen qq (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175076)
-- 发布时间：2022/2/18 16:27:00
-- 内置聊天器 oppen qq
老师我想问一下内置聊天器要满足什么样的条件才能打开呢，我做了个按钮打开不了哈哈哈哈
QQClient.OpenChatWindow() 看那个在线文档有点懵
-- 发布时间：2022/2/18 16:34:00
--
什么地方看不懂？
openqq需要开发2个不同的项目：
一个是服务端项目，参考“服务端的设计”这章内容，实例可以看帮助里的“QQServer.Table”，开发有需要先启动服务端程序和QQServer服务
一个是客户端项目，参考“客户端的设计”这章内容，实例可以看帮助里的“QQClint.Table”
-- 发布时间：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
这个是放在哪里 的
-- 发布时间：2022/2/18 16:46:00
--
If QQClient.Ready Then
QQClient.OpenChatWindow()
End If
然后第二张就是这个，我想看看内置聊天的效果而已
-- 发布时间：2022/2/18 16:49:00
--
放到客户端的，可以看“QQClint.Table”里的登录按钮。
打开示例文件，然后对比帮助学习：http://www.foxtable.com/webhelp/topics/2236.htm
-- 发布时间：2022/2/18 17:01:00
--
老师我想问一下您是不是要设置什么的，如图
-- 发布时间：2022/2/18 17:02:00
--
111
此主题相关图片如下：截图a1.png
-- 发布时间：2022/2/18 17:12:00
--
服务端项目做了吗？开启服务端openqq服务了吗？