- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个:f是什么意思 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189520)
-- 发布时间：2023/12/6 10:43:00
-- 这个:f是什么意思
Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")
e.DataRow("编号") = rt
现在搞差个OPENQQ编码生成，看不懂里面的代码：
Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")
是什么意思
-- 发布时间：2023/12/6 10:55:00
--
这个是自己定义的一个标记，用来区分这个消息是做什么的，比如接收的信息是:f开头，并且是f:结尾的就是用来生成编号的，注意看服务端是怎么判断
3、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码：
Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
-- 发布时间：2023/12/6 14:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:openqq编码.rar |
这些代码看不懂，不知哪出错了，入库表增加行时生成不了单据编码？
-- 发布时间：2023/12/6 14:31:00
--
改了全局代码
-- 发布时间：2023/12/6 14:59:00
--
可以了，多谢，哪很难消化这些代码
-- 发布时间：2023/12/7 17:47:00
--
现在出现了一个问题，就是客户端一会不动时就生成不了编号，要生新登录才行
-- 发布时间：2023/12/7 20:22:00
--
发消息前判断一下OpenQQ是不是掉线了，如果是就登录一下
-- 发布时间：2023/12/10 10:48:00
--
If QQClient.Start() = False Then
Forms("登录窗口").Open()
Else
Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'增加行时，向服务器申请编号
e.DataRow("立帐编码") = rt
End If
这样行不行，
还有就是如何避免OPENQQ不掉线呢
-- 发布时间：2023/12/10 20:44:00
--
保证服务器和客户端之间网络稳定
-- 发布时间：2023/12/11 10:17:00
--
经常出现服务器断网，这个问题怎样处理？