|
地下

楼主 |
发表于 2024-6-17 21:21:15
|
只看该作者
广西壮族自治区南宁市
.版本 2
.支持库 iext
.子程序 接单模式操作
.局部变量 i, 整数型
.局部变量 状态, 文本型
.局部变量 索引, 整数型
.局部变量 商品名, 文本型
.局部变量 账号, 文本型
.局部变量 token, 文本型
.局部变量 pay, 文本型
.局部变量 wxid, 文本型
.局部变量 ip, 文本型
.局部变量 num, 文本型
.局部变量 zffs, 文本型
.局部变量 x, 整数型
.局部变量 spid, 文本型
.局部变量 价格, 文本型
.局部变量 编号, 文本型
.局部变量 提交时间, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 g, 整数型
.局部变量 spmz, 文本型
.局部变量 列, 整数型
.局部变量 h, 整数型
.局部变量 次数, 文本型
.局部变量 局_次数, 整数型, , "0"
现行时间戳 = 时间_取现行时间戳 ()
.如果真 (_启动窗口.超级列表框_工作表单.取表项数 () ≠ 0 且 _启动窗口.超级列表框_插件对接.取表项数 () ≠ 0)
返回 ()
.如果真结束
列 = _启动窗口.超级列表框_插件对接.查找表项 (“6”, , 假, 6)
.如果真 (列 = -1)
列 = _启动窗口.超级列表框_插件对接.查找表项 (“”, , 真, 6)
.如果真结束
.如果真 (列 ≠ -1 且 _启动窗口.超级列表框_工作表单.取表项数 () = 0)
编号 = _启动窗口.超级列表框_插件对接.取标题 (列, 0)
状态 = _启动窗口.超级列表框_插件对接.取标题 (列, 6)
商品名 = 文本_取左边 (_启动窗口.超级列表框_插件对接.取标题 (列, 7), “丨”, , , )
账号 = _启动窗口.超级列表框_插件对接.取标题 (列, 1)
token = _启动窗口.超级列表框_插件对接.取标题 (列, 2)
pay = _启动窗口.超级列表框_插件对接.取标题 (列, 4)
wxid = _启动窗口.超级列表框_插件对接.取标题 (列, 5)
num = _启动窗口.超级列表框_插件对接.取标题 (列, 8)
spid = 文本_取右边 (_启动窗口.超级列表框_插件对接.取标题 (列, 7), “丨”, , , )
价格 = _启动窗口.超级列表框_插件对接.取标题 (列, 9)
提交时间 = _启动窗口.超级列表框_插件对接.取标题 (列, 10)
索引 = _启动窗口.超级列表框_工作表单.插入表项 (, , , , , )
_启动窗口.超级列表框_工作表单.置标题 (索引, 0, 账号)
_启动窗口.超级列表框_工作表单.置标题 (索引, 1, token)
_启动窗口.超级列表框_工作表单.置标题 (索引, 2, spid)
.如果真 (spid = “”)
_启动窗口.超级列表框_插件对接.置标题 (列, 7, “未匹配商品ID”)
_启动窗口.超级列表框_工作表单.全部删除 ()
返回 ()
.如果真结束
.如果 (价格 = “快捷模式”)
_启动窗口.组合框_捡漏模式.现行选中项 = 1
_启动窗口.超级列表框_工作表单.置标题 (索引, 3, 价格)
.如果真 (_启动窗口.编辑框_延迟.内容 = “”)
_启动窗口.编辑框_延迟.内容 = “300”
.如果真结束
.否则
_启动窗口.组合框_捡漏模式.现行选中项 = 0
_启动窗口.超级列表框_工作表单.置标题 (索引, 3, _启动窗口.超级列表框_插件对接.取标题 (列, 9))
.如果真 (_启动窗口.编辑框_延迟.内容 = “”)
_启动窗口.编辑框_延迟.内容 = “500”
.如果真结束
.如果结束
_启动窗口.超级列表框_工作表单.置标题 (索引, 4, “1/10”)
_启动窗口.超级列表框_工作表单.置标题 (索引, 5, pay)
_启动窗口.超级列表框_工作表单.置标题 (索引, 6, num + “/” + “0”)
.如果 (_启动窗口.组合框_支fu方式.内容 = “”)
_启动窗口.超级列表框_工作表单.置标题 (索引, 7, _启动窗口.超级列表框_插件对接.取标题 (列, 11))
.否则
_启动窗口.超级列表框_工作表单.置标题 (索引, 7, _启动窗口.超级列表框_插件对接.取标题 (列, 11))
.如果结束
_启动窗口.超级列表框_工作表单.置标题 (索引, 10, wxid)
_启动窗口.超级列表框_工作表单.置标题 (索引, 11, ip)
_启动窗口.超级列表框_工作表单.置标题 (索引, 12, “开”)
.如果 (商品名 = “自定义”)
_启动窗口.超级列表框_工作表单.置标题 (索引, 13, _启动窗口.编辑框_藏品名称.内容)
.否则
_启动窗口.超级列表框_工作表单.置标题 (索引, 13, 商品名)
.如果结束
_启动窗口.超级列表框_工作表单.置标题 (索引, 14, 提交时间)
_按钮5_被单击 ()
返回 ()
.如果真结束
.如果真 (列 = -1 且 _启动窗口.超级列表框_插件对接.取表项数 () ≠ 0)
.计次循环首 (_启动窗口.超级列表框_插件对接.取表项数 (), h)
状态 = _启动窗口.超级列表框_插件对接.取标题 (h - 1, 6)
.如果真 (寻找文本 (状态, “下单”, , 假) ≠ -1)
次数 = 文本_取右边 (状态, “/”, , , )
加入成员 (局_次数, 到整数 (次数))
.如果真结束
.计次循环尾 ()
数组排序 (局_次数, 真)
.如果真 (取数组成员数 (局_次数) = 0)
返回 ()
.如果真结束
列 = _启动窗口.超级列表框_插件对接.查找表项 (“超限定下单次数/” + 到文本 (局_次数 [1]), , 假, 6)
.如果真 (列 ≠ -1)
编号 = _启动窗口.超级列表框_插件对接.取标题 (列, 0)
状态 = _启动窗口.超级列表框_插件对接.取标题 (列, 6)
商品名 = 文本_取左边 (_启动窗口.超级列表框_插件对接.取标题 (列, 7), “丨”, , , )
账号 = _启动窗口.超级列表框_插件对接.取标题 (列, 1)
token = _启动窗口.超级列表框_插件对接.取标题 (列, 2)
pay = _启动窗口.超级列表框_插件对接.取标题 (列, 4)
wxid = _启动窗口.超级列表框_插件对接.取标题 (列, 5)
num = _启动窗口.超级列表框_插件对接.取标题 (列, 8)
spid = 文本_取右边 (_启动窗口.超级列表框_插件对接.取标题 (列, 7), “丨”, , , )
价格 = _启动窗口.超级列表框_插件对接.取标题 (列, 9)
提交时间 = _启动窗口.超级列表框_插件对接.取标题 (列, 10)
.如果真 (寻找文本 (状态, “下单”, , 假) ≠ -1 且 _启动窗口.超级列表框_工作表单.取表项数 () = 0)
索引 = _启动窗口.超级列表框_工作表单.插入表项 (, , , , , )
_启动窗口.超级列表框_工作表单.置标题 (索引, 0, 账号)
_启动窗口.超级列表框_工作表单.置标题 (索引, 1, token)
_启动窗口.超级列表框_工作表单.置标题 (索引, 2, spid)
.如果真 (spid = “”)
_启动窗口.超级列表框_插件对接.置标题 (列, 6, “未匹配商品ID”)
_启动窗口.超级列表框_工作表单.全部删除 ()
返回 ()
.如果真结束
.如果 (价格 = “快捷模式”)
_启动窗口.组合框_捡漏模式.现行选中项 = 1
_启动窗口.超级列表框_工作表单.置标题 (索引, 3, 价格)
.如果真 (_启动窗口.编辑框_延迟.内容 = “”)
_启动窗口.编辑框_延迟.内容 = “300”
.如果真结束
.否则
_启动窗口.组合框_捡漏模式.现行选中项 = 0
_启动窗口.超级列表框_工作表单.置标题 (索引, 3, _启动窗口.超级列表框_插件对接.取标题 (列, 9))
.如果真 (_启动窗口.编辑框_延迟.内容 = “”)
_启动窗口.编辑框_延迟.内容 = “500”
.如果真结束
.如果结束
_启动窗口.超级列表框_工作表单.置标题 (索引, 4, “1/10”)
_启动窗口.超级列表框_工作表单.置标题 (索引, 5, pay)
_启动窗口.超级列表框_工作表单.置标题 (索引, 6, num + “/” + “0”)
.如果 (_启动窗口.组合框_支fu方式.内容 = “”)
_启动窗口.超级列表框_工作表单.置标题 (索引, 7, _启动窗口.超级列表框_插件对接.取标题 (列, 11))
.否则
_启动窗口.超级列表框_工作表单.置标题 (索引, 7, _启动窗口.超级列表框_插件对接.取标题 (列, 11))
.如果结束
_启动窗口.超级列表框_工作表单.置标题 (索引, 10, wxid)
_启动窗口.超级列表框_工作表单.置标题 (索引, 11, ip)
_启动窗口.超级列表框_工作表单.置标题 (索引, 12, “开”)
_启动窗口.超级列表框_工作表单.置标题 (索引, 13, 商品名)
_启动窗口.超级列表框_工作表单.置标题 (索引, 14, 提交时间)
_按钮5_被单击 ()
返回 ()
.如果真结束
这个是我现在的,一次只能导入一个 |
|