手机版
发布产品
”, ) .如果 (取数组成员数 (云段落数组) ＞ 1) msg.content ＝ 替换随机内容 (msg.content, “【云段落】”, 云段落数组) .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 ' 云段落替换结束------------------ msg.content ＝ 子文本替换 (msg.content, “【标题】”, msg.title, , , 真) 核心提示 ＝ 子文本替换 (核心提示, “【标题】”, msg.title, , , 真) msg.subject ＝ 替换固定内容 (subject, “【标题】”, msg.title) ' 内容替换 msg.content ＝ 替换固定内容 (msg.content, “【标题】”, msg.title) .如果 (取数组成员数 (段落1数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, “,”, , , 真) str ＝ 子文本替换 (str, “.”, “,”, , , 真) temp ＝ “,” .判断 (单选框_assignSymbol.选中) temp ＝ 编辑框_assignSymbol.内容 .默认 temp ＝ #换行符 .判断结束 sentenceArr ＝ 分割文本 (str, temp, ) ' 段落1 .如果真 (单选框_userdefinedSliceParagrph1.选中) 段落1数组 ＝ 分割文本 (编辑框_paragraph1.内容, 编辑框_separatorParagraph1.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph2.选中) 段落2数组 ＝ 分割文本 (编辑框_paragraph2.内容, 编辑框_separatorParagraph2.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph3.选中) 段落3数组 ＝ 分割文本 (编辑框_paragraph3.内容, 编辑框_separatorParagraph3.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph4.选中) 段落4数组 ＝ 分割文本 (编辑框_paragraph4.内容, 编辑框_separatorParagraph4.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph5.选中) 段落5数组 ＝ 分割文本 (编辑框_paragraph5.内容, 编辑框_separatorParagraph5.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph6.选中) 段落6数组 ＝ 分割文本 (编辑框_paragraph6.内容, 编辑框_separatorParagraph6.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph7.选中) 段落7数组 ＝ 分割文本 (编辑框_paragraph7.内容, 编辑框_separatorParagraph7.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph8.选中) 段落8数组 ＝ 分割文本 (编辑框_paragraph8.内容, 编辑框_separatorParagraph8.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph9.选中) 段落9数组 ＝ 分割文本 (编辑框_paragraph9.内容, 编辑框_separatorParagraph9.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph10.选中) 段落10数组 ＝ 分割文本 (编辑框_paragraph10.内容, 编辑框_separatorParagraph10.内容, ) .如果真结束 输出调试文本 (编辑框_paragraph1.内容, 编辑框_separatorParagraph1.内容) 调试输出 (取数组成员数 (段落1数组)) 延时 (3000) all ＝ 取数组成员数 (sentenceArr) .如果真 (all ＜ 1) 加入成员 (sentenceArr, “”) .如果真结束 ' 主变量数组 mainVariateArr ＝ 分割文本 (编辑框_mainVariate.内容, #换行符, ) .如果真 (取数组成员数 (mainVariateArr) ＜ 1) 加入成员 (mainVariateArr, “”) .如果真结束 ' 变量1数组 Variate1Arr ＝ 分割文本 (编辑框_Variate1.内容, #换行符, ) .如果真 (取数组成员数 (Variate1Arr) ＜ 1) 加入成员 (Variate1Arr, “”) .如果真结束 ' 变量1数组 Variate2Arr ＝ 分割文本 (编辑框_Variate2.内容, #换行符, ) .如果真 (取数组成员数 (Variate2Arr) ＜ 1) 加入成员 (Variate2Arr, “”) .如果真结束 ' 变量3数组 Variate3Arr ＝ 分割文本 (编辑框_Variate3.内容, #换行符, ) .如果真 (取数组成员数 (Variate3Arr) ＜ 1) 加入成员 (Variate3Arr, “”) .如果真结束 ' 随机链接数组 random
”, ) .如果 (取数组成员数 (云段落数组) ＞ 1) msg.content ＝ 替换随机内容 (msg.content, “【云段落】”, 云段落数组) .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 ' 云段落替换结束------------------ msg.content ＝ 子文本替换 (msg.content, “【标题】”, msg.title, , , 真) 核心提示 ＝ 子文本替换 (核心提示, “【标题】”, msg.title, , , 真) msg.subject ＝ 替换固定内容 (subject, “【标题】”, msg.title) ' 内容替换 msg.content ＝ 替换固定内容 (msg.content, “【标题】”, msg.title) .如果 (取数组成员数 (段落1数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, #错误图标, , ) 返回 () .如果真结束 调试输出 (“设置图片”) delaytime1 ＝ 到整数 (编辑框_intervalStart.内容) delaytime2 ＝ 到整数 (编辑框_intervalEnd.内容) ' 句子设置 str ＝ 编辑框_sentenceSet.内容 ' 3,句子设置 .判断开始 (单选框_accordingPeriodCommas.选中) str ＝ 子文本替换 (str, “，”, “,”, , , 真) str ＝ 子文本替换 (str, “”, 段落1数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, #错误图标, , ) 返回 () .如果真结束 调试输出 (“设置图片”) delaytime1 ＝ 到整数 (编辑框_intervalStart.内容) delaytime2 ＝ 到整数 (编辑框_intervalEnd.内容) ' 句子设置 str ＝ 编辑框_sentenceSet.内容 ' 3,句子设置 .判断开始 (单选框_accordingPeriodCommas.选中) str ＝ 子文本替换 (str, “，”, “,”, , , 真) str ＝ 子文本替换 (str, “”, 编辑框_paragraph1.内容) .如果结束 输出调试文本 (“段落1数组----” ＋ 到文本 (取数组成员数 (段落1数组))) .如果 (取数组成员数 (段落2数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “请点击停止发布后，重新设置图片”, 段落2数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, #错误图标, , ) 返回 () .如果真结束 调试输出 (“设置图片”) delaytime1 ＝ 到整数 (编辑框_intervalStart.内容) delaytime2 ＝ 到整数 (编辑框_intervalEnd.内容) ' 句子设置 str ＝ 编辑框_sentenceSet.内容 ' 3,句子设置 .判断开始 (单选框_accordingPeriodCommas.选中) str ＝ 子文本替换 (str, “，”, “,”, , , 真) str ＝ 子文本替换 (str, “”, 编辑框_paragraph2.内容) .如果结束 .如果 (取数组成员数 (段落3数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落3数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph3.内容) .如果结束 .如果 (取数组成员数 (段落4数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落4数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph4.内容) .如果结束 .如果 (取数组成员数 (段落5数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落5数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph5.内容) .如果结束 .如果 (取数组成员数 (段落6数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落6数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph6.内容) .如果结束 .如果 (取数组成员数 (段落7数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落7数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph7.内容) .如果结束 .如果 (取数组成员数 (段落8数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落8数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph8.内容) .如果结束 .如果 (取数组成员数 (段落9数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落9数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph9.内容) .如果结束 .如果 (取数组成员数 (段落10数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落10数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph10.内容) .如果结束 ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph4.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph5.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph6.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph7.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph8.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph9.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph10.内容) msg.content ＝ 替换固定内容 (msg.content, “2019”, 到文本 (取年份 (到时间 (取现行时间 ())))) msg.content ＝ 替换固定内容 (msg.content, “2”, 到文本 (取月份 (到时间 (取现行时间 ())))) msg.content ＝ 替换固定内容 (msg.content, “16”, 到文本 (取日 (到时间 (取现行时间 ())))) msg.content ＝ 替换随机内容 (msg.content, “ 根据美团闪购的数据，自2015年以来鲜花订单始终处于高速增长的态势，其中2016年开始出现爆发性增长，2018年上半年环比增幅达到124%。鲜花电商的发展，尤其是闪购等本地化电商的出现，将鲜花购买的门槛一再降低，不仅提升了礼品鲜花的销量，同时还带动了“悦己”需求市场，推动鲜花属性从节日需求商品向日常消费品过渡。”, sentenceArr) msg.content ＝ 替换随机内容 (msg.content, “薄皮扁桃”, mainVariateArr) msg.content ＝ 替换随机内容 (msg.content, “价格”, Variate1Arr) msg.content ＝ 替换随机内容 (msg.content, “”, Variate2Arr) msg.content ＝ 替换随机内容 (msg.content, “”, Variate3Arr) msg.content ＝ 替换随机内容 (msg.content, “;;;”, random
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) ' 
”, “
”, #引号 ＋ 内容图片 ＋ #引号, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “”, #换行符 ＋ 内容图片 ＋ #换行符, 1, 1, 真)
' 删除成员 (temparr, 图片位置, )
.判断循环尾 ()
' 延时 (30000000)
调试输出 (msg.content)
' 延时 (111111)
ArrToRadomNewArr (key数组, , 5, msg.key, )
ArrToRadomNewArr (tempImageArr, , 5, msg.imageTextArr)
' ArrToRadomNewArr (imageArr, , 1, msg.image)
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.如果真 (选择框_每条信息都过滤.选中)
msg.content ＝ 过滤文本中敏感词 (msg.content, 分割文本 (编辑框_forbidWords.内容, #换行符, ))
.如果真结束
' 内容文本处理
' msg.content ＝ 子文本替换 (msg.content, “<”, “<”, , , 真)
' msg.content ＝ 子文本替换 (msg.content, “>”, “>”, , , 真)
' boolpublish ＝ ProductAdd (msg)
.判断开始 (单选框_产品发布.选中 ＝ 真)
boolpublish ＝ ProductAdd (msg)
.判断 (单选框_供应发布.选中 ＝ 真)
boolpublish ＝ SupplyAdd (msg)
.判断 (单选框_新闻发布.选中 ＝ 真)
boolpublish ＝ NewsAdd (msg)
.默认
.判断结束
' boolpublish ＝ 真
.如果 (boolpublish)
状态条1.置文本 (2, “发布成功”)
超级列表框1.置标题 (n, 2, “发布成功”)
编辑框_log.加入文本 (“发布成功” ＋ #换行符)
.否则
超级列表框1.置标题 (n, 2, “发布失败:” ＋ msg.ret)
状态条1.置文本 (2, “发布失败:” ＋ msg.ret)
编辑框_log.加入文本 (“发布失败:” ＋ msg.ret ＋ #换行符)
.如果结束
n ＝ n ＋ 1
u ＝ 取随机数 (delaytime1, delaytime2)
s1 ＝ 状态条1.取文本 (2)
suc ＝ suc ＋ 1
.如果真 (suc ≥ limit)
' ========验证次数开始=========
.如果真 (次数 ≤ 30) ' 次数小于等于30，且达到限制数后(前面已经被限制50条)，停止发布
跳出循环 ()
.如果真结束
' ========验证次数结束=========
.如果真 (选择框_sendNum.选中)
跳出循环 ()
.如果真结束
.如果真结束
.计次循环* (u, i)
状态条1.置文本 (2, s1 ＋ “ 间隔等待中···” ＋ 到文本 (u － i))
延时 (1000)
.计次循环尾 ()
.判断循环尾 ()
状态条1.置文本 (2, “任务完成”)
编辑框_log.加入文本 (“任务完成” ＋ #换行符)
.如果真 (选择框_sendsutdown.选中)
关闭系统 (1, 真)
.如果真结束
.子程序 _按钮_pauseSend_被单击
按钮_pauseSend.禁止 ＝ 真
SuspendThread (threadHandle)
延迟 (100)
按钮_recoverSend.禁止 ＝ 假
状态条1.置文本 (2, “暂停中···”)
编辑框_log.加入文本 (“暂停中···” ＋ #换行符)
.子程序 _按钮_recoverSend_被单击
按钮_recoverSend.禁止 ＝ 真
ResumeThread (threadHandle)
按钮_pauseSend.禁止 ＝ 假
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.子程序 _按钮_allSelec_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
超级列表框1.置状态图片 (i － 1, 1)
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_invertSelect_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
.如果 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
超级列表框1.置状态图片 (i － 1, 0)
.否则
超级列表框1.置状态图片 (i － 1, 1)
.如果结束
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_deleteSelected_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
调试输出 (i)
超级列表框1.删除表项 (i － 1)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮_deleteSuccess_被单击
.局部变量 i, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (寻找文本 (超级列表框1.取标题 (i, 2), “发布成功”, , 假) ≠ -1)
超级列表框1.删除表项 (i)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮79_被单击
超级列表框1.删除表项 (0)
.子程序 _按钮_inputTitle_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.如果真 (通用对话框1.打开 ())
strarr ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环* (取数组成员数 (strarr), n)
.如果真 (strarr [n] ≠ “”)
num ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框1.置标题 (num, 1, strarr [n])
.如果真结束
.计次循环尾 ()
状态条1.置文本 (2, “导入完成”)
.如果真结束
.子程序 _按钮80_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.局部变量 ret, 文本型
' 超级列表框_保存表项x (超级列表框1, , )
' 状态条1.置文本 (1, “标题保存成功”)
.如果真 (通用对话框1.打开 ())
.计次循环* (超级列表框1.取表项数 (), n)
ret ＝ ret ＋ 超级列表框1.取标题 (n, 1) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (ret))
状态条1.置文本 (2, “导出完成”)
.如果真结束
.子程序 _按钮_StartCelect_被单击
.局部变量 n, 整数型
' 按钮23.禁止 ＝ 真
.如果 (按钮_StartCelect.标题 ＝ “开始采集”)
' 按钮23.标题 ＝ “停止采集”
' 按钮19.禁止 ＝ 假
' 按钮5.禁止 ＝ 真
启动线程 (&采集线程, n, threadHandle_s)
.否则
按钮_StartCelect.标题 ＝ “开始采集”
按钮_pauseCelect.禁止 ＝ 真
按钮5.禁止 ＝ 真
强制结束线程 (threadHandle_s)
.如果结束
按钮_pauseCelect.禁止 ＝ 假
.子程序 采集线程
.参数 n, 整数型
.局部变量 start, 整数型
.局部变量 end, 整数型
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 temp, 文本型
.局部变量 id, 文本型
.局部变量 title, 文本型
.局部变量 state, 文本型
.局部变量 num, 整数型
.局部变量 bool, 逻辑型
start ＝ 到整数 (编辑框_pageStart.内容)
end ＝ 到整数 (编辑框_pageEnd.内容)
.循环判断* ()
状态条1.置文本 (2, “当前页/结束页：” ＋ 到文本 (start) ＋ “/” ＋ 到文本 (end))
url ＝ “https://my.cn.china.cn/manage.php?op=SellInfoListNew&auth=” ＋ ClassMsg.auth ＋ “&page=” ＋ 到文本 (start)
bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, )
str ＝ 到文本 (bin)
调试输出 (str)
bool ＝ 假
寻找文本 (str, “data-config='{text:”, , 假)
.判断循环* (寻找文本 (str, “data-config='{text:”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “data-config='{text:”, “}”)
str ＝ 子文本替换 (str, “data-config='{text:”, “”, 1, 1, 真)
title ＝ 文本_取出中间文本 (temp, “'”, “'”)
id ＝ 文本_取出中间文本 (temp, “,url:'”, “'”)
状态条1.置文本 (1, title)
.如果真 (id ≠ “” 且 title ≠ “”)
.如果真 (超级列表框2.查找表项 (id, , , 2) ＝ -1)
bool ＝ 真
num ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框2.置标题 (num, 1, title)
超级列表框2.置标题 (num, 2, id)
超级列表框2.置标题 (num, 3, state)
.如果真结束
.如果真结束
.判断循环尾 ()
start ＝ start ＋ 1
.循环判断尾 (bool)
状态条1.置文本 (2, “采集完成”)
.子程序 _按钮_pauseCelect_被单击
按钮_pauseCelect.禁止 ＝ 真
SuspendThread (threadHandle_s)
状态条1.置文本 (2, “采集已暂停···”)
按钮5.禁止 ＝ 假
.子程序 _按钮_allSelect1_被单击
.局部变量 all, 整数型
.局部变量 n, 整数型
all ＝ 超级列表框2.取表项数 ()
.计次循环* (all, n)
.如果真 (超级列表框2.取当前状态图片 (n － 1) ＝ 0)
超级列表框2.置状态图片 (n － 1, 1)
.如果真结束
.计次循环尾 ()
.子程序 _按钮5_被单击
.子程序 保存模版配置
.局部变量 计次, 整数型
.局部变量 文本内容, 文本型
.局部变量 文件号, 文本型
.局部变量 保存文本, 文本型
.局部变量 文本数据, 整数型
文件号 ＝ 取运行目录 () ＋ “\data\templates.txt”
.计次循环* (选择列表框1.取项目数 (), 计次)
文本内容 ＝ 选择列表框1.取项目文本 (计次 － 1)
文本数据 ＝ 选择列表框1.取项目数值 (计次 － 1)
保存文本 ＝ 保存文本 ＋ 文本内容 ＋ “|” ＋ 到文本 (文本数据) ＋ #换行符
.计次循环尾 ()
调试输出 (保存文本)
写到文件 (文件号, 到字节集 (保存文本))
.子程序 _按钮_templateDelSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (“------” ＋ 到文本 (i))
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
选择列表框1.删除项目 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, 项目文本, )
.如果真结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 getContentsArr, 逻辑型
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
.局部变量 content, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
清除数组 (contentsArr)
.计次循环* (项目数, i)
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
content ＝ 通过项目文本获取待发content (项目文本)
加入成员 (contentsArr, content)
.如果真结束
.计次循环尾 ()
.如果 (取数组成员数 (contentsArr) ≥ 1)
返回 (真)
.否则
返回 (假)
.如果结束
.子程序 _按钮_templateAllSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (选择列表框1.取项目文本 (i － 1))
选择列表框1.选中项目 (i － 1, 真)
.计次循环尾 ()
.子程序 _按钮_templateInvertSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
.如果 (选择列表框1.是否被选中 (i － 1))
选择列表框1.选中项目 (i － 1, 假)
.否则
选择列表框1.选中项目 (i － 1, 真)
.如果结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 _按钮_refreshTemplate_被单击
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 _按钮_saveTemplate_被单击
.局部变量 templateContent, 文本型
.局部变量 templateName, 文本型
templateName ＝ 编辑框_templateName.内容
.如果真 (templateName ＝ “”)
信息框 (“请填写模版名称！”, 0, , )
返回 ()
.如果真结束
templateContent ＝ 获取template文本 ()
.如果真 (templateContent ＝ “”)
信息框 (“模版内容不能为空！”, 0, , )
返回 ()
.如果真结束
选择列表框1.加入项目 (templateName, )
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, templateName, 子文本替换 (templateContent, #换行符, “{huanhang}”, , , 真))
执行”, ) .如果 (取数组成员数 (云段落数组) ＞ 1) msg.content ＝ 替换随机内容 (msg.content, “【云段落】”, 云段落数组) .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 ' 云段落替换结束------------------ msg.content ＝ 子文本替换 (msg.content, “【标题】”, msg.title, , , 真) 核心提示 ＝ 子文本替换 (核心提示, “【标题】”, msg.title, , , 真) msg.subject ＝ 替换固定内容 (subject, “【标题】”, msg.title) ' 内容替换 msg.content ＝ 替换固定内容 (msg.content, “【标题】”, msg.title) .如果 (取数组成员数 (段落1数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “【段落1】”, 段落1数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “【段落1】”, 编辑框_paragraph1.内容) .如果结束 输出调试文本 (“段落1数组----” ＋ 到文本 (取数组成员数 (段落1数组))) .如果 (取数组成员数 (段落2数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “请点击停止发布后，重新设置图片”, 段落2数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, #错误图标, , ) 返回 () .如果真结束 调试输出 (“设置图片”) delaytime1 ＝ 到整数 (编辑框_intervalStart.内容) delaytime2 ＝ 到整数 (编辑框_intervalEnd.内容) ' 句子设置 str ＝ 编辑框_sentenceSet.内容 ' 3,句子设置 .判断开始 (单选框_accordingPeriodCommas.选中) str ＝ 子文本替换 (str, “，”, “,”, , , 真) str ＝ 子文本替换 (str, “”, 编辑框_paragraph2.内容) .如果结束 .如果 (取数组成员数 (段落3数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落3数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph3.内容) .如果结束 .如果 (取数组成员数 (段落4数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落4数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph4.内容) .如果结束 .如果 (取数组成员数 (段落5数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落5数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph5.内容) .如果结束 .如果 (取数组成员数 (段落6数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落6数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph6.内容) .如果结束 .如果 (取数组成员数 (段落7数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落7数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph7.内容) .如果结束 .如果 (取数组成员数 (段落8数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落8数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph8.内容) .如果结束 .如果 (取数组成员数 (段落9数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落9数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph9.内容) .如果结束 .如果 (取数组成员数 (段落10数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落10数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph10.内容) .如果结束 ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph4.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph5.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph6.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph7.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph8.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph9.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph10.内容) msg.content ＝ 替换固定内容 (msg.content, “2019”, 到文本 (取年份 (到时间 (取现行时间 ())))) msg.content ＝ 替换固定内容 (msg.content, “2”, 到文本 (取月份 (到时间 (取现行时间 ())))) msg.content ＝ 替换固定内容 (msg.content, “16”, 到文本 (取日 (到时间 (取现行时间 ())))) msg.content ＝ 替换随机内容 (msg.content, “”, sentenceArr) msg.content ＝ 替换随机内容 (msg.content, “扁桃”, mainVariateArr) msg.content ＝ 替换随机内容 (msg.content, “基地”, Variate1Arr) msg.content ＝ 替换随机内容 (msg.content, “”, Variate2Arr) msg.content ＝ 替换随机内容 (msg.content, “”, Variate3Arr) msg.content ＝ 替换随机内容 (msg.content, “'''”, random
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) ' ”, “”, #引号 ＋ 内容图片 ＋ #引号, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “”, #换行符 ＋ 内容图片 ＋ #换行符, 1, 1, 真)
' 删除成员 (temparr, 图片位置, )
.判断循环尾 ()
' 延时 (30000000)
调试输出 (msg.content)
' 延时 (111111)
ArrToRadomNewArr (key数组, , 5, msg.key, )
ArrToRadomNewArr (tempImageArr, , 5, msg.imageTextArr)
' ArrToRadomNewArr (imageArr, , 1, msg.image)
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.如果真 (选择框_每条信息都过滤.选中)
msg.content ＝ 过滤文本中敏感词 (msg.content, 分割文本 (编辑框_forbidWords.内容, #换行符, ))
.如果真结束
' 内容文本处理
' msg.content ＝ 子文本替换 (msg.content, “<”, “<”, , , 真)
' msg.content ＝ 子文本替换 (msg.content, “>”, “>”, , , 真)
' boolpublish ＝ ProductAdd (msg)
.判断开始 (单选框_产品发布.选中 ＝ 真)
boolpublish ＝ ProductAdd (msg)
.判断 (单选框_供应发布.选中 ＝ 真)
boolpublish ＝ SupplyAdd (msg)
.判断 (单选框_新闻发布.选中 ＝ 真)
boolpublish ＝ NewsAdd (msg)
.默认
.判断结束
' boolpublish ＝ 真
.如果 (boolpublish)
状态条1.置文本 (2, “发布成功”)
超级列表框1.置标题 (n, 2, “发布成功”)
编辑框_log.加入文本 (“发布成功” ＋ #换行符)
.否则
超级列表框1.置标题 (n, 2, “发布失败:” ＋ msg.ret)
状态条1.置文本 (2, “发布失败:” ＋ msg.ret)
编辑框_log.加入文本 (“发布失败:” ＋ msg.ret ＋ #换行符)
.如果结束
n ＝ n ＋ 1
u ＝ 取随机数 (delaytime1, delaytime2)
s1 ＝ 状态条1.取文本 (2)
suc ＝ suc ＋ 1
.如果真 (suc ≥ limit)
' ========验证次数开始=========
.如果真 (次数 ≤ 30) ' 次数小于等于30，且达到限制数后(前面已经被限制50条)，停止发布
跳出循环 ()
.如果真结束
' ========验证次数结束=========
.如果真 (选择框_sendNum.选中)
跳出循环 ()
.如果真结束
.如果真结束
.计次循环* (u, i)
状态条1.置文本 (2, s1 ＋ “ 间隔等待中···” ＋ 到文本 (u － i))
延时 (1000)
.计次循环尾 ()
.判断循环尾 ()
状态条1.置文本 (2, “任务完成”)
编辑框_log.加入文本 (“任务完成” ＋ #换行符)
.如果真 (选择框_sendsutdown.选中)
关闭系统 (1, 真)
.如果真结束
.子程序 _按钮_pauseSend_被单击
按钮_pauseSend.禁止 ＝ 真
SuspendThread (threadHandle)
延迟 (100)
按钮_recoverSend.禁止 ＝ 假
状态条1.置文本 (2, “暂停中···”)
编辑框_log.加入文本 (“暂停中···” ＋ #换行符)
.子程序 _按钮_recoverSend_被单击
按钮_recoverSend.禁止 ＝ 真
ResumeThread (threadHandle)
按钮_pauseSend.禁止 ＝ 假
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.子程序 _按钮_allSelec_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
超级列表框1.置状态图片 (i － 1, 1)
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_invertSelect_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
.如果 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
超级列表框1.置状态图片 (i － 1, 0)
.否则
超级列表框1.置状态图片 (i － 1, 1)
.如果结束
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_deleteSelected_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
调试输出 (i)
超级列表框1.删除表项 (i － 1)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮_deleteSuccess_被单击
.局部变量 i, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (寻找文本 (超级列表框1.取标题 (i, 2), “发布成功”, , 假) ≠ -1)
超级列表框1.删除表项 (i)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮79_被单击
超级列表框1.删除表项 (0)
.子程序 _按钮_inputTitle_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.如果真 (通用对话框1.打开 ())
strarr ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环* (取数组成员数 (strarr), n)
.如果真 (strarr [n] ≠ “”)
num ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框1.置标题 (num, 1, strarr [n])
.如果真结束
.计次循环尾 ()
状态条1.置文本 (2, “导入完成”)
.如果真结束
.子程序 _按钮80_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.局部变量 ret, 文本型
' 超级列表框_保存表项x (超级列表框1, , )
' 状态条1.置文本 (1, “标题保存成功”)
.如果真 (通用对话框1.打开 ())
.计次循环* (超级列表框1.取表项数 (), n)
ret ＝ ret ＋ 超级列表框1.取标题 (n, 1) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (ret))
状态条1.置文本 (2, “导出完成”)
.如果真结束
.子程序 _按钮_StartCelect_被单击
.局部变量 n, 整数型
' 按钮23.禁止 ＝ 真
.如果 (按钮_StartCelect.标题 ＝ “开始采集”)
' 按钮23.标题 ＝ “停止采集”
' 按钮19.禁止 ＝ 假
' 按钮5.禁止 ＝ 真
启动线程 (&采集线程, n, threadHandle_s)
.否则
按钮_StartCelect.标题 ＝ “开始采集”
按钮_pauseCelect.禁止 ＝ 真
按钮5.禁止 ＝ 真
强制结束线程 (threadHandle_s)
.如果结束
按钮_pauseCelect.禁止 ＝ 假
.子程序 采集线程
.参数 n, 整数型
.局部变量 start, 整数型
.局部变量 end, 整数型
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 temp, 文本型
.局部变量 id, 文本型
.局部变量 title, 文本型
.局部变量 state, 文本型
.局部变量 num, 整数型
.局部变量 bool, 逻辑型
start ＝ 到整数 (编辑框_pageStart.内容)
end ＝ 到整数 (编辑框_pageEnd.内容)
.循环判断* ()
状态条1.置文本 (2, “当前页/结束页：” ＋ 到文本 (start) ＋ “/” ＋ 到文本 (end))
url ＝ “https://my.cn.china.cn/manage.php?op=SellInfoListNew&auth=” ＋ ClassMsg.auth ＋ “&page=” ＋ 到文本 (start)
bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, )
str ＝ 到文本 (bin)
调试输出 (str)
bool ＝ 假
寻找文本 (str, “data-config='{text:”, , 假)
.判断循环* (寻找文本 (str, “data-config='{text:”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “data-config='{text:”, “}”)
str ＝ 子文本替换 (str, “data-config='{text:”, “”, 1, 1, 真)
title ＝ 文本_取出中间文本 (temp, “'”, “'”)
id ＝ 文本_取出中间文本 (temp, “,url:'”, “'”)
状态条1.置文本 (1, title)
.如果真 (id ≠ “” 且 title ≠ “”)
.如果真 (超级列表框2.查找表项 (id, , , 2) ＝ -1)
bool ＝ 真
num ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框2.置标题 (num, 1, title)
超级列表框2.置标题 (num, 2, id)
超级列表框2.置标题 (num, 3, state)
.如果真结束
.如果真结束
.判断循环尾 ()
start ＝ start ＋ 1
.循环判断尾 (bool)
状态条1.置文本 (2, “采集完成”)
.子程序 _按钮_pauseCelect_被单击
按钮_pauseCelect.禁止 ＝ 真
SuspendThread (threadHandle_s)
状态条1.置文本 (2, “采集已暂停···”)
按钮5.禁止 ＝ 假
.子程序 _按钮_allSelect1_被单击
.局部变量 all, 整数型
.局部变量 n, 整数型
all ＝ 超级列表框2.取表项数 ()
.计次循环* (all, n)
.如果真 (超级列表框2.取当前状态图片 (n － 1) ＝ 0)
超级列表框2.置状态图片 (n － 1, 1)
.如果真结束
.计次循环尾 ()
.子程序 _按钮5_被单击
.子程序 保存模版配置
.局部变量 计次, 整数型
.局部变量 文本内容, 文本型
.局部变量 文件号, 文本型
.局部变量 保存文本, 文本型
.局部变量 文本数据, 整数型
文件号 ＝ 取运行目录 () ＋ “\data\templates.txt”
.计次循环* (选择列表框1.取项目数 (), 计次)
文本内容 ＝ 选择列表框1.取项目文本 (计次 － 1)
文本数据 ＝ 选择列表框1.取项目数值 (计次 － 1)
保存文本 ＝ 保存文本 ＋ 文本内容 ＋ “|” ＋ 到文本 (文本数据) ＋ #换行符
.计次循环尾 ()
调试输出 (保存文本)
写到文件 (文件号, 到字节集 (保存文本))
.子程序 _按钮_templateDelSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (“------” ＋ 到文本 (i))
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
选择列表框1.删除项目 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, 项目文本, )
.如果真结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 getContentsArr, 逻辑型
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
.局部变量 content, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
清除数组 (contentsArr)
.计次循环* (项目数, i)
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
content ＝ 通过项目文本获取待发content (项目文本)
加入成员 (contentsArr, content)
.如果真结束
.计次循环尾 ()
.如果 (取数组成员数 (contentsArr) ≥ 1)
返回 (真)
.否则
返回 (假)
.如果结束
.子程序 _按钮_templateAllSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (选择列表框1.取项目文本 (i － 1))
选择列表框1.选中项目 (i － 1, 真)
.计次循环尾 ()
.子程序 _按钮_templateInvertSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
.如果 (选择列表框1.是否被选中 (i － 1))
选择列表框1.选中项目 (i － 1, 假)
.否则
选择列表框1.选中项目 (i － 1, 真)
.如果结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 _按钮_refreshTemplate_被单击
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 _按钮_saveTemplate_被单击
.局部变量 templateContent, 文本型
.局部变量 templateName, 文本型
templateName ＝ 编辑框_templateName.内容
.如果真 (templateName ＝ “”)
信息框 (“请填写模版名称！”, 0, , )
返回 ()
.如果真结束
templateContent ＝ 获取template文本 ()
.如果真 (templateContent ＝ “”)
信息框 (“模版内容不能为空！”, 0, , )
返回 ()
.如果真结束
选择列表框1.加入项目 (templateName, )
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, templateName, 子文本替换 (templateContent, #换行符, “{huanhang}”, , , 真))
执行”, ) .如果 (取数组成员数 (云段落数组) ＞ 1) msg.content ＝ 替换随机内容 (msg.content, “【云段落】”, 云段落数组) .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 ' 云段落替换结束------------------ msg.content ＝ 子文本替换 (msg.content, “【标题】”, msg.title, , , 真) 核心提示 ＝ 子文本替换 (核心提示, “【标题】”, msg.title, , , 真) msg.subject ＝ 替换固定内容 (subject, “【标题】”, msg.title) ' 内容替换 msg.content ＝ 替换固定内容 (msg.content, “【标题】”, msg.title) .如果 (取数组成员数 (段落1数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “【段落1】”, 段落1数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “【段落1】”, 编辑框_paragraph1.内容) .如果结束 输出调试文本 (“段落1数组----” ＋ 到文本 (取数组成员数 (段落1数组))) .如果 (取数组成员数 (段落2数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, “,”, , , 真) str ＝ 子文本替换 (str, “.”, “,”, , , 真) temp ＝ “,” .判断 (单选框_assignSymbol.选中) temp ＝ 编辑框_assignSymbol.内容 .默认 temp ＝ #换行符 .判断结束 sentenceArr ＝ 分割文本 (str, temp, ) ' 段落1 .如果真 (单选框_userdefinedSliceParagrph1.选中) 段落1数组 ＝ 分割文本 (编辑框_paragraph1.内容, 编辑框_separatorParagraph1.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph2.选中) 段落2数组 ＝ 分割文本 (编辑框_paragraph2.内容, 编辑框_separatorParagraph2.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph3.选中) 段落3数组 ＝ 分割文本 (编辑框_paragraph3.内容, 编辑框_separatorParagraph3.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph4.选中) 段落4数组 ＝ 分割文本 (编辑框_paragraph4.内容, 编辑框_separatorParagraph4.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph5.选中) 段落5数组 ＝ 分割文本 (编辑框_paragraph5.内容, 编辑框_separatorParagraph5.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph6.选中) 段落6数组 ＝ 分割文本 (编辑框_paragraph6.内容, 编辑框_separatorParagraph6.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph7.选中) 段落7数组 ＝ 分割文本 (编辑框_paragraph7.内容, 编辑框_separatorParagraph7.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph8.选中) 段落8数组 ＝ 分割文本 (编辑框_paragraph8.内容, 编辑框_separatorParagraph8.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph9.选中) 段落9数组 ＝ 分割文本 (编辑框_paragraph9.内容, 编辑框_separatorParagraph9.内容, ) .如果真结束 .如果真 (单选框_userdefinedSliceParagrph10.选中) 段落10数组 ＝ 分割文本 (编辑框_paragraph10.内容, 编辑框_separatorParagraph10.内容, ) .如果真结束 输出调试文本 (编辑框_paragraph1.内容, 编辑框_separatorParagraph1.内容) 调试输出 (取数组成员数 (段落1数组)) 延时 (3000) all ＝ 取数组成员数 (sentenceArr) .如果真 (all ＜ 1) 加入成员 (sentenceArr, “”) .如果真结束 ' 主变量数组 mainVariateArr ＝ 分割文本 (编辑框_mainVariate.内容, #换行符, ) .如果真 (取数组成员数 (mainVariateArr) ＜ 1) 加入成员 (mainVariateArr, “”) .如果真结束 ' 变量1数组 Variate1Arr ＝ 分割文本 (编辑框_Variate1.内容, #换行符, ) .如果真 (取数组成员数 (Variate1Arr) ＜ 1) 加入成员 (Variate1Arr, “”) .如果真结束 ' 变量1数组 Variate2Arr ＝ 分割文本 (编辑框_Variate2.内容, #换行符, ) .如果真 (取数组成员数 (Variate2Arr) ＜ 1) 加入成员 (Variate2Arr, “”) .如果真结束 ' 变量3数组 Variate3Arr ＝ 分割文本 (编辑框_Variate3.内容, #换行符, ) .如果真 (取数组成员数 (Variate3Arr) ＜ 1) 加入成员 (Variate3Arr, “”) .如果真结束 ' 随机链接数组 random
”, ) .如果 (取数组成员数 (云段落数组) ＞ 1) msg.content ＝ 替换随机内容 (msg.content, “【云段落】”, 云段落数组) .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 .否则 msg.content ＝ 子文本替换 (msg.content, “【云段落】”, “”, , , 真) .如果结束 ' 云段落替换结束------------------ msg.content ＝ 子文本替换 (msg.content, “【标题】”, msg.title, , , 真) 核心提示 ＝ 子文本替换 (核心提示, “【标题】”, msg.title, , , 真) msg.subject ＝ 替换固定内容 (subject, “【标题】”, msg.title) ' 内容替换 msg.content ＝ 替换固定内容 (msg.content, “【标题】”, msg.title) .如果 (取数组成员数 (段落1数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “【段落1】”, 段落1数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “【段落1】”, 编辑框_paragraph1.内容) .如果结束 输出调试文本 (“段落1数组----” ＋ 到文本 (取数组成员数 (段落1数组))) .如果 (取数组成员数 (段落2数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, #错误图标, , ) 返回 () .如果真结束 key数组 ＝ 分割文本 (编辑框_key.内容, #换行符, ) ' 2,设置关键词 ' 机电之家无关键词 .如果真 (取数组成员数 (key数组) ＜ 3) 信息框 (“请*少写入3个关键词”, 段落2数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, #错误图标, , ) 返回 () .如果真结束 调试输出 (“设置图片”) delaytime1 ＝ 到整数 (编辑框_intervalStart.内容) delaytime2 ＝ 到整数 (编辑框_intervalEnd.内容) ' 句子设置 str ＝ 编辑框_sentenceSet.内容 ' 3,句子设置 .判断开始 (单选框_accordingPeriodCommas.选中) str ＝ 子文本替换 (str, “，”, “,”, , , 真) str ＝ 子文本替换 (str, “”, 编辑框_paragraph2.内容) .如果结束 .如果 (取数组成员数 (段落3数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落3数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph3.内容) .如果结束 .如果 (取数组成员数 (段落4数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落4数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph4.内容) .如果结束 .如果 (取数组成员数 (段落5数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落5数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph5.内容) .如果结束 .如果 (取数组成员数 (段落6数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落6数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph6.内容) .如果结束 .如果 (取数组成员数 (段落7数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落7数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph7.内容) .如果结束 .如果 (取数组成员数 (段落8数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落8数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph8.内容) .如果结束 .如果 (取数组成员数 (段落9数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落9数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph9.内容) .如果结束 .如果 (取数组成员数 (段落10数组) ＞ 0) msg.content ＝ 替换随机内容 (msg.content, “”, 段落10数组) .否则 msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph10.内容) .如果结束 ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph4.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph5.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph6.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph7.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph8.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph9.内容) ' msg.content ＝ 替换固定内容 (msg.content, “”, 编辑框_paragraph10.内容) msg.content ＝ 替换固定内容 (msg.content, “2019”, 到文本 (取年份 (到时间 (取现行时间 ())))) msg.content ＝ 替换固定内容 (msg.content, “2”, 到文本 (取月份 (到时间 (取现行时间 ())))) msg.content ＝ 替换固定内容 (msg.content, “16”, 到文本 (取日 (到时间 (取现行时间 ())))) msg.content ＝ 替换随机内容 (msg.content, “”, sentenceArr) msg.content ＝ 替换随机内容 (msg.content, “巴旦木授粉树”, mainVariateArr) msg.content ＝ 替换随机内容 (msg.content, “怎么样”, Variate1Arr) msg.content ＝ 替换随机内容 (msg.content, “”, Variate2Arr) msg.content ＝ 替换随机内容 (msg.content, “”, Variate3Arr) msg.content ＝ 替换随机内容 (msg.content, “;;;”, random
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) ' ”, “”, #引号 ＋ 内容图片 ＋ #引号, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “”, #换行符 ＋ 内容图片 ＋ #换行符, 1, 1, 真)
' 删除成员 (temparr, 图片位置, )
.判断循环尾 ()
' 延时 (30000000)
调试输出 (msg.content)
' 延时 (111111)
ArrToRadomNewArr (key数组, , 5, msg.key, )
ArrToRadomNewArr (tempImageArr, , 5, msg.imageTextArr)
' ArrToRadomNewArr (imageArr, , 1, msg.image)
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.如果真 (选择框_每条信息都过滤.选中)
msg.content ＝ 过滤文本中敏感词 (msg.content, 分割文本 (编辑框_forbidWords.内容, #换行符, ))
.如果真结束
' 内容文本处理
' msg.content ＝ 子文本替换 (msg.content, “<”, “<”, , , 真)
' msg.content ＝ 子文本替换 (msg.content, “>”, “>”, , , 真)
' boolpublish ＝ ProductAdd (msg)
.判断开始 (单选框_产品发布.选中 ＝ 真)
boolpublish ＝ ProductAdd (msg)
.判断 (单选框_供应发布.选中 ＝ 真)
boolpublish ＝ SupplyAdd (msg)
.判断 (单选框_新闻发布.选中 ＝ 真)
boolpublish ＝ NewsAdd (msg)
.默认
.判断结束
' boolpublish ＝ 真
.如果 (boolpublish)
状态条1.置文本 (2, “发布成功”)
超级列表框1.置标题 (n, 2, “发布成功”)
编辑框_log.加入文本 (“发布成功” ＋ #换行符)
.否则
超级列表框1.置标题 (n, 2, “发布失败:” ＋ msg.ret)
状态条1.置文本 (2, “发布失败:” ＋ msg.ret)
编辑框_log.加入文本 (“发布失败:” ＋ msg.ret ＋ #换行符)
.如果结束
n ＝ n ＋ 1
u ＝ 取随机数 (delaytime1, delaytime2)
s1 ＝ 状态条1.取文本 (2)
suc ＝ suc ＋ 1
.如果真 (suc ≥ limit)
' ========验证次数开始=========
.如果真 (次数 ≤ 30) ' 次数小于等于30，且达到限制数后(前面已经被限制50条)，停止发布
跳出循环 ()
.如果真结束
' ========验证次数结束=========
.如果真 (选择框_sendNum.选中)
跳出循环 ()
.如果真结束
.如果真结束
.计次循环* (u, i)
状态条1.置文本 (2, s1 ＋ “ 间隔等待中···” ＋ 到文本 (u － i))
延时 (1000)
.计次循环尾 ()
.判断循环尾 ()
状态条1.置文本 (2, “任务完成”)
编辑框_log.加入文本 (“任务完成” ＋ #换行符)
.如果真 (选择框_sendsutdown.选中)
关闭系统 (1, 真)
.如果真结束
.子程序 _按钮_pauseSend_被单击
按钮_pauseSend.禁止 ＝ 真
SuspendThread (threadHandle)
延迟 (100)
按钮_recoverSend.禁止 ＝ 假
状态条1.置文本 (2, “暂停中···”)
编辑框_log.加入文本 (“暂停中···” ＋ #换行符)
.子程序 _按钮_recoverSend_被单击
按钮_recoverSend.禁止 ＝ 真
ResumeThread (threadHandle)
按钮_pauseSend.禁止 ＝ 假
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.子程序 _按钮_allSelec_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
超级列表框1.置状态图片 (i － 1, 1)
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_invertSelect_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
.如果 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
超级列表框1.置状态图片 (i － 1, 0)
.否则
超级列表框1.置状态图片 (i － 1, 1)
.如果结束
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_deleteSelected_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
调试输出 (i)
超级列表框1.删除表项 (i － 1)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮_deleteSuccess_被单击
.局部变量 i, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (寻找文本 (超级列表框1.取标题 (i, 2), “发布成功”, , 假) ≠ -1)
超级列表框1.删除表项 (i)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮79_被单击
超级列表框1.删除表项 (0)
.子程序 _按钮_inputTitle_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.如果真 (通用对话框1.打开 ())
strarr ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环* (取数组成员数 (strarr), n)
.如果真 (strarr [n] ≠ “”)
num ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框1.置标题 (num, 1, strarr [n])
.如果真结束
.计次循环尾 ()
状态条1.置文本 (2, “导入完成”)
.如果真结束
.子程序 _按钮80_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.局部变量 ret, 文本型
' 超级列表框_保存表项x (超级列表框1, , )
' 状态条1.置文本 (1, “标题保存成功”)
.如果真 (通用对话框1.打开 ())
.计次循环* (超级列表框1.取表项数 (), n)
ret ＝ ret ＋ 超级列表框1.取标题 (n, 1) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (ret))
状态条1.置文本 (2, “导出完成”)
.如果真结束
.子程序 _按钮_StartCelect_被单击
.局部变量 n, 整数型
' 按钮23.禁止 ＝ 真
.如果 (按钮_StartCelect.标题 ＝ “开始采集”)
' 按钮23.标题 ＝ “停止采集”
' 按钮19.禁止 ＝ 假
' 按钮5.禁止 ＝ 真
启动线程 (&采集线程, n, threadHandle_s)
.否则
按钮_StartCelect.标题 ＝ “开始采集”
按钮_pauseCelect.禁止 ＝ 真
按钮5.禁止 ＝ 真
强制结束线程 (threadHandle_s)
.如果结束
按钮_pauseCelect.禁止 ＝ 假
.子程序 采集线程
.参数 n, 整数型
.局部变量 start, 整数型
.局部变量 end, 整数型
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 temp, 文本型
.局部变量 id, 文本型
.局部变量 title, 文本型
.局部变量 state, 文本型
.局部变量 num, 整数型
.局部变量 bool, 逻辑型
start ＝ 到整数 (编辑框_pageStart.内容)
end ＝ 到整数 (编辑框_pageEnd.内容)
.循环判断* ()
状态条1.置文本 (2, “当前页/结束页：” ＋ 到文本 (start) ＋ “/” ＋ 到文本 (end))
url ＝ “https://my.cn.china.cn/manage.php?op=SellInfoListNew&auth=” ＋ ClassMsg.auth ＋ “&page=” ＋ 到文本 (start)
bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, )
str ＝ 到文本 (bin)
调试输出 (str)
bool ＝ 假
寻找文本 (str, “data-config='{text:”, , 假)
.判断循环* (寻找文本 (str, “data-config='{text:”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “data-config='{text:”, “}”)
str ＝ 子文本替换 (str, “data-config='{text:”, “”, 1, 1, 真)
title ＝ 文本_取出中间文本 (temp, “'”, “'”)
id ＝ 文本_取出中间文本 (temp, “,url:'”, “'”)
状态条1.置文本 (1, title)
.如果真 (id ≠ “” 且 title ≠ “”)
.如果真 (超级列表框2.查找表项 (id, , , 2) ＝ -1)
bool ＝ 真
num ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框2.置标题 (num, 1, title)
超级列表框2.置标题 (num, 2, id)
超级列表框2.置标题 (num, 3, state)
.如果真结束
.如果真结束
.判断循环尾 ()
start ＝ start ＋ 1
.循环判断尾 (bool)
状态条1.置文本 (2, “采集完成”)
.子程序 _按钮_pauseCelect_被单击
按钮_pauseCelect.禁止 ＝ 真
SuspendThread (threadHandle_s)
状态条1.置文本 (2, “采集已暂停···”)
按钮5.禁止 ＝ 假
.子程序 _按钮_allSelect1_被单击
.局部变量 all, 整数型
.局部变量 n, 整数型
all ＝ 超级列表框2.取表项数 ()
.计次循环* (all, n)
.如果真 (超级列表框2.取当前状态图片 (n － 1) ＝ 0)
超级列表框2.置状态图片 (n － 1, 1)
.如果真结束
.计次循环尾 ()
.子程序 _按钮5_被单击
.子程序 保存模版配置
.局部变量 计次, 整数型
.局部变量 文本内容, 文本型
.局部变量 文件号, 文本型
.局部变量 保存文本, 文本型
.局部变量 文本数据, 整数型
文件号 ＝ 取运行目录 () ＋ “\data\templates.txt”
.计次循环* (选择列表框1.取项目数 (), 计次)
文本内容 ＝ 选择列表框1.取项目文本 (计次 － 1)
文本数据 ＝ 选择列表框1.取项目数值 (计次 － 1)
保存文本 ＝ 保存文本 ＋ 文本内容 ＋ “|” ＋ 到文本 (文本数据) ＋ #换行符
.计次循环尾 ()
调试输出 (保存文本)
写到文件 (文件号, 到字节集 (保存文本))
.子程序 _按钮_templateDelSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (“------” ＋ 到文本 (i))
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
选择列表框1.删除项目 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, 项目文本, )
.如果真结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 getContentsArr, 逻辑型
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
.局部变量 content, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
清除数组 (contentsArr)
.计次循环* (项目数, i)
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
content ＝ 通过项目文本获取待发content (项目文本)
加入成员 (contentsArr, content)
.如果真结束
.计次循环尾 ()
.如果 (取数组成员数 (contentsArr) ≥ 1)
返回 (真)
.否则
返回 (假)
.如果结束
.子程序 _按钮_templateAllSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (选择列表框1.取项目文本 (i － 1))
选择列表框1.选中项目 (i － 1, 真)
.计次循环尾 ()
.子程序 _按钮_templateInvertSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
.如果 (选择列表框1.是否被选中 (i － 1))
选择列表框1.选中项目 (i － 1, 假)
.否则
选择列表框1.选中项目 (i － 1, 真)
.如果结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 _按钮_refreshTemplate_被单击
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 _按钮_saveTemplate_被单击
.局部变量 templateContent, 文本型
.局部变量 templateName, 文本型
templateName ＝ 编辑框_templateName.内容
.如果真 (templateName ＝ “”)
信息框 (“请填写模版名称！”, 0, , )
返回 ()
.如果真结束
templateContent ＝ 获取template文本 ()
.如果真 (templateContent ＝ “”)
信息框 (“模版内容不能为空！”, 0, , )
返回 ()
.如果真结束
选择列表框1.加入项目 (templateName, )
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, templateName, 子文本替换 (templateContent, #换行符, “{huanhang}”, , , 真))
执行”, ) 数组成员数 ＝ 取数组成员数 (云段落数组) 置随机数种子 () 置随机数种子 (取随机数 (1, 10000)) 随机数 ＝ 取随机数 (1, 数组成员数) 调试输出 (云段落数组 [随机数]) ' content ＝ 子文本替换 (content, 被替换文本, varArr [随机数], 1, 1, 真) .否则 .如果结束 .子程序 获取随机云段落, 文本型 .参数 慧聪网关键词, 文本型 .局部变量 云段落数组, 文本型, , "0" .局部变量 数组成员数, 整数型 .局部变量 随机数, 整数型 状态条1.置文本 (2, “正在获取云段落.....”) .如果 (全局_云段落 ≠ “”) 云段落数组 ＝ 分割文本 (全局_云段落, “
”, ) 数组成员数 ＝ 取数组成员数 (云段落数组) .如果 (数组成员数 ＞ 0) 置随机数种子 () 置随机数种子 (取随机数 (1, 10000)) 随机数 ＝ 取随机数 (1, 数组成员数) 调试输出 (云段落数组 [随机数]) 状态条1.置文本 (2, “获取云段落完成”) 返回 (云段落数组 [随机数]) .否则 返回 (“未获取到云段落，请重试”) .如果结束 ' content ＝ 子文本替换 (content, 被替换文本, varArr [随机数], 1, 1, 真) .否则 全局_云段落 ＝ getSententsWithKeyWor (“https://s.hc360.com/?w=” ＋ 慧聪网关键词 ＋ “&mc=news”) 云段落数组 ＝ 分割文本 (全局_云段落, “
”, ) 数组成员数 ＝ 取数组成员数 (云段落数组) 调试输出 (数组成员数) .如果 (数组成员数 ＞ 0) 置随机数种子 () 置随机数种子 (取随机数 (1, 10000)) 随机数 ＝ 取随机数 (1, 数组成员数) 调试输出 (云段落数组 [随机数]) 状态条1.置文本 (2, “获取云段落完成”) 返回 (云段落数组 [随机数]) .否则 返回 (“未获取到云段落，请重试”) .如果结束 ' content ＝ 子文本替换 (content, 被替换文本, varArr [随机数], 1, 1, 真) .如果结束 .子程序 _按钮_测试云段落_被单击 启动线程 (&测试云段落线程, , ) .子程序 测试云段落线程 .局部变量 树形框选中项文本, 文本型 树形框选中项文本 ＝ 获取树形框选中项文本 () .如果 (树形框选中项文本 ＝ “”) 信息框 (“请选中分类”, 0, , ) .否则 编辑框_测试云段落.内容 ＝ 获取随机云段落 (树形框选中项文本) .如果结束 .子程序 获取树形框选中项文本, 文本型 .局部变量 i, 整数型 .局部变量 retstr, 文本型 .计次循环* (树型框1.取项目数 (), i) .如果真 (树型框1.取检查框状态 (i) ＝ 1) 调试输出 (树型框1.取项目文本 (i)) retstr ＝ 树型框1.取项目文本 (i) .如果真结束 .计次循环尾 () 返回 (retstr) .子程序 保存树形框配置 .局部变量 选中项, 整数型 .局部变量 i, 整数型 .局部变量 retstr, 文本型 .计次循环* (树型框1.取项目数 (), i) .如果真 (树型框1.取检查框状态 (i) ＝ 1) 调试输出 (树型框1.取项目文本 (i)) 选中项 ＝ i .如果真结束 .计次循环尾 () 写配置项 (取运行目录 () ＋ “\Editer\用户信息.ini”, “树形框”, “选中”, 到文本 (选中项)) .子程序 _按钮37_被单击 读取树形框配置 () .子程序 读取树形框配置 .局部变量 选中项, 文本型 .局部变量 i, 整数型 .局部变量 retstr, 文本型 .计次循环* (树型框1.取项目数 (), i) 树型框1.置检查框状态 (i, 0, ) .计次循环尾 () 选中项 ＝ 读配置项 (取运行目录 () ＋ “\Editer\用户信息.ini”, “树形框”, “选中”, ) 树型框1.置检查框状态 (到整数 (选中项), 1, ) .子程序 _按钮_allSelect2_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 表项数 ＝ 超级列表框4.取表项数 () .计次循环* (表项数, i) 超级列表框4.置状态图片 (i － 1, 1) 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () .子程序 _按钮_invertSelect1_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 表项数 ＝ 超级列表框4.取表项数 () .计次循环* (表项数, i) .如果 (超级列表框4.取当前状态图片 (i － 1) ＝ 1) 超级列表框4.置状态图片 (i － 1, 0) .否则 超级列表框4.置状态图片 (i － 1, 1) .如果结束 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () .子程序 _按钮_deleteSelected1_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 i ＝ 超级列表框4.取表项数 () .判断循环* (i ＞ 0) .如果真 (超级列表框4.取当前状态图片 (i － 1) ＝ 1) 调试输出 (i) 超级列表框4.删除表项 (i － 1) .如果真结束 i ＝ i － 1 .判断循环尾 () .子程序 _按钮_clearlangword_被单击 超级列表框4.全部删除 () .子程序 _按钮_打乱_被单击 打乱顺序超级列表 () .子程序 打乱顺序超级列表 .局部变量 内容, 文本型, , "0" .局部变量 返回的文本, 文本型 .局部变量 数, 整数型 .局部变量 i, 整数型 .局部变量 文本, 文本型 .局部变量 num, 整数型 .局部变量 表项数, 整数型 .局部变量 计次, 整数型 表项数 ＝ 超级列表框4.取表项数 () .计次循环* (表项数, i) .' 如果 (超级列表框4.取当前状态图片 (i － 1) ＝ 1) ' 超级列表框4.置状态图片 (i － 1, 0) .否则 ' 超级列表框4.置状态图片 (i － 1, 1) .如果结束 文本 ＝ 文本 ＋ 超级列表框4.取标题 (i － 1, 1) ＋ #换行符 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () 超级列表框4.全部删除 () 内容 ＝ 分割文本 (文本, #换行符, ) .计次循环* (取数组成员数 (内容), ) 置随机数种子 () 数 ＝ 取随机数 (1, 取数组成员数 (内容)) num ＝ 超级列表框4.插入表项 (, , , , , ) 超级列表框4.置标题 (num, 0, 到文本 (num ＋ 1)) 超级列表框4.置标题 (num, 1, 内容 [数]) ' 返回的文本 ＝ 返回的文本 ＋ 内容 [数] ＋ #换行符 删除成员 (内容, 数, 1) .计次循环尾 () .子程序 _按钮2_被单击 开始裂变 () .子程序 开始裂变 .局部变量 内容, 文本型, , "0" .局部变量 返回的文本, 文本型 .局部变量 数, 整数型 .局部变量 i, 整数型 .局部变量 文本, 文本型 .局部变量 num, 整数型 .局部变量 表项数, 整数型 .局部变量 计次, 整数型 .局部变量 重组后的内容, 文本型 表项数 ＝ 超级列表框4.取表项数 () .计次循环* (表项数, i) .如果真 (超级列表框4.取当前状态图片 (i － 1) ＝ 1) 文本 ＝ 文本 ＋ 超级列表框4.取标题 (i － 1, 1) ＋ #换行符 .如果真结束 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () 内容 ＝ 分割文本 (文本, #换行符, ) .计次循环* (取数组成员数 (内容), ) 置随机数种子 () 数 ＝ 取随机数 (1, 取数组成员数 (内容)) 重组后的内容 ＝ 内容 [数] 删除成员 (内容, 数, 1) 置随机数种子 () 数 ＝ 取随机数 (1, 取数组成员数 (内容)) 重组后的内容 ＝ 重组后的内容 ＋ 编辑框_连接符号.内容 ＋ 内容 [数] 删除成员 (内容, 数, 1) num ＝ 超级列表框5.插入表项 (, , , , , ) 超级列表框5.置标题 (num, 0, 到文本 (num ＋ 1)) 超级列表框5.置标题 (num, 1, 重组后的内容) ' 返回的文本 ＝ 返回的文本 ＋ 内容 [数] ＋ #换行符 .如果真 (取数组成员数 (内容) ＜ 2) 跳出循环 () .如果真结束 .计次循环尾 () .子程序 _按钮_allSelect3_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 表项数 ＝ 超级列表框5.取表项数 () .计次循环* (表项数, i) 超级列表框5.置状态图片 (i － 1, 1) 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () .子程序 _按钮_invertSelect2_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 表项数 ＝ 超级列表框5.取表项数 () .计次循环* (表项数, i) .如果 (超级列表框5.取当前状态图片 (i － 1) ＝ 1) 超级列表框5.置状态图片 (i － 1, 0) .否则 超级列表框5.置状态图片 (i － 1, 1) .如果结束 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () .子程序 _按钮_deleteSelected2_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 i ＝ 超级列表框5.取表项数 () .判断循环* (i ＞ 0) .如果真 (超级列表框5.取当前状态图片 (i － 1) ＝ 1) 调试输出 (i) 超级列表框5.删除表项 (i － 1) .如果真结束 i ＝ i － 1 .判断循环尾 () .子程序 _按钮_clearlangword1_被单击 超级列表框5.全部删除 () .子程序 _按钮_jionList_被单击 .局部变量 表项数, 整数型 .局部变量 i, 整数型 .局部变量 计次, 整数型 .局部变量 num, 整数型 表项数 ＝ 超级列表框5.取表项数 () .计次循环* (表项数, i) .如果 (超级列表框5.取当前状态图片 (i － 1) ＝ 1) num ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (num, 0, 到文本 (num ＋ 1)) 超级列表框1.置标题 (num, 1, 超级列表框5.取标题 (i － 1, 1)) ' 超级列表框1.置标题 (num, 3, id) .否则 .如果结束 计次 ＝ 计次 ＋ 1 .如果真 (计次 ≥ 表项数) 跳出循环 () .如果真结束 .计次循环尾 () 状态条1.置文本 (2, “加入待发列表完成”) .子程序 _高级选择夹3_子夹被改变 调试输出 (高级选择夹3.现行子夹) .如果真 (高级选择夹3.现行子夹 ＝ 2) .如果 (高级会员) 高级选择夹4.现行子夹 ＝ 1 .否则 信息框 (“您的会员级别不能使用此功能，请升级您的会员”, 0, , ) 高级选择夹4.现行子夹 ＝ 0 .如果结束 .如果真结束 .如果真 (高级选择夹3.现行子夹 ＝ 0 或 高级选择夹3.现行子夹 ＝ 1) 高级选择夹4.现行子夹 ＝ 0 .如果真结束 .子程序 _高级选择夹4_子夹被改变 .如果真 (高级选择夹4.现行子夹 ＝ 1) .如果 (高级会员) 高级选择夹4.现行子夹 ＝ 1 .否则 信息框 (“您的会员级别不能使用此功能，请升级您的会员”, 0, , ) 高级选择夹4.现行子夹 ＝ 0 .如果结束 .如果真结束 .子程序 _按钮_权重查询_被单击 .局部变量 URL, 文本型 .局部变量 bin, 字节集 .局部变量 str, 文本型 .局部变量 baidupc, 文本型 .局部变量 baidu, 文本型 .局部变量 num, 整数型 .局部变量 sm, 文本型 .局部变量 so360pc, 文本型 .局部变量 so360mobile, 文本型 .局部变量 body, 文本型 URL ＝ “https://rank.chinaz.com/ajaxseo.aspx?t=rankall&on=1&type=undefined&callback=jQuery111309190697173613068_1526610813369” body ＝ “host=qihuiwang.com” bin ＝ 网页_访问_对象 (URL, 1, body, , , , , ) str ＝ 到文本 (bin) ' str ＝ 编码_URL解码_超快 (str, 真) str ＝ 子文本替换 (str, #引号, “'”, , , 真) 编辑框_errorCoupleBack.内容 ＝ str baidupc ＝ 文本_取出中间文本 (str, “'baidupc'”, “}”, , ) baidu ＝ 文本_取出中间文本 (str, “'baidu'”, “}”, , ) so360pc ＝ 文本_取出中间文本 (str, “so360pc'”, “}”, , ) so360mobile ＝ 文本_取出中间文本 (str, “so360mobile'”, “}”, , ) sm ＝ 文本_取出中间文本 (str, “'sm'”, “}”, , ) 调试输出 (str, baidupc, baidu) showBR权重 (“百度PC”, baidupc) showBR权重 (“百度移动”, baidu) showBR权重 (“360PC”, so360pc) showBR权重 (“360移动”, so360mobile) showBR权重 (“神马”, sm) .子程序 showBR权重 .参数 引擎, 文本型 .参数 baidupc, 文本型 .局部变量 num, 整数型 num ＝ 超级列表框6.插入表项 (, , , , , ) 超级列表框6.置标题 (num, 0, 引擎) 超级列表框6.置标题 (num, 1, 文本_取出中间文本 (baidupc, “br':”, “,”, , )) 超级列表框6.置标题 (num, 2, 文本_取出中间文本 (baidupc, “uvcount':”, “,”, , )) ' 超级列表框6.置标题 (num, 1, 文本_取出中间文本 (baidupc, “br':”, “'”, , )) 超级列表框6.置标题 (num, 3, 文本_取出中间文本 (baidupc, “'kwcount':”, “,”, , )) 超级列表框6.置标题 (num, 4, 文本_取出中间文本 (baidupc, “,'page1kwcount':”, “,”, , )) 超级列表框6.置标题 (num, 5, 文本_取出中间文本 (baidupc, “,'page2kwcount':”, “,”, , )) 超级列表框6.置标题 (num, 6, 文本_取出中间文本 (baidupc, “,'page3kwcount':”, “,”, , )) 超级列表框6.置标题 (num, 7, 文本_取出中间文本 (baidupc, “,'page4kwcount':”, “,”, , )) 超级列表框6.置标题 (num, 8, 文本_取出中间文本 (baidupc, “,'page5kwcount':”, “,”, , )) .子程序 _按钮_查询您的收录_被单击 启动线程 (&查询收录线程, , ) .子程序 查询收录线程 .局部变量 现行时间戳, 整数型 .局部变量 日, 文本型 .局部变量 周, 文本型 .局部变量 月, 文本型 .局部变量 年, 文本型 现行时间戳 ＝ 到整数 (时间_取现行时间戳 (真)) 日 ＝ “stf=” ＋ 到文本 (现行时间戳 － 86400) ＋ “,” ＋ 到文本 (现行时间戳) ＋ “|stftype=1” 周 ＝ “stf=” ＋ 到文本 (现行时间戳 － 604800) ＋ “,” ＋ 到文本 (现行时间戳) ＋ “|stftype=1” 月 ＝ “stf=” ＋ 到文本 (现行时间戳 － 2592000) ＋ “,” ＋ 到文本 (现行时间戳) ＋ “|stftype=1” 年 ＝ “stf=” ＋ 到文本 (现行时间戳 － 31536000) ＋ “,” ＋ 到文本 (现行时间戳) ＋ “|stftype=1” 百度查询 (“site: qihuiwang.com ” ＋ 编辑框_特征码.内容, 日, “一天内收录”) 百度查询 (“site: qihuiwang.com ” ＋ 编辑框_特征码.内容, 周, “一周内收录”) 百度查询 (“site: qihuiwang.com ” ＋ 编辑框_特征码.内容, 月, “一月内收录”) 百度查询 (“site: qihuiwang.com ” ＋ 编辑框_特征码.内容, 年, “一年内收录”) .子程序 百度查询 .参数 关键词1, 文本型 .参数 日期, 文本型 .参数 时间标识, 文本型 .局部变量 url, 文本型 .局部变量 bin, 字节集 .局部变量 str, 文本型 .局部变量 temp, 文本型 .局部变量 value, 文本型 .局部变量 name, 文本型 .局部变量 百度链接网址, 文本型 .局部变量 日期和简介, 文本型 .局部变量 真实网址, 文本型 .局部变量 rsv_t, 文本型 .局部变量 rsv_pq, 文本型 .局部变量 rqlang, 文本型 .局部变量 百度快照, 文本型 .局部变量 待显示网址, 文本型 .局部变量 临时表项, 整数型 .局部变量 特征码, 文本型 .局部变量 特征码数组, 文本型, , "0" .局部变量 计次, 整数型 .局部变量 si, 文本型 .局部变量 页数, 整数型 .局部变量 别名, 文本型 .局部变量 尾页, 文本型 url ＝ “https://www.baidu.com/” bin ＝ 网页_访问_对象 (url) str ＝ 到文本 (bin) str ＝ 编码_URL解码_超快 (str, 真) str ＝ 子文本替换 (str, #引号, “'”, , , 真) rsv_t ＝ 文本_取出中间文本 (str, “name='rsv_t' value='”, “'”, ) rsv_pq ＝ 文本_取出中间文本 (str, “name='rsv_pq' value='”, “'”, ) rqlang ＝ 文本_取出中间文本 (str, “name='rqlang' value='”, “'”, ) si ＝ 文本_取出中间文本 (关键词1, “site:”, “/”, , ) url ＝ “https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&rsv_idx=1&tn=baidu&wd=” ＋ 编码_URL编码 (关键词1, 真, 真) ＋ “&rsv_pq=” ＋ rsv_pq ＋ “&rsv_t=” ＋ rsv_t ＋ “&rqlang=” ＋ rqlang ＋ “&rsv_enter=1&pn=” ＋ “750” ＋ “&gpc=” ＋ 日期 ＋ “&tfflag=1&si=” ＋ si ＋ “&ct=2097152&rsv_srlang=cn&sl_lang=cn&rsv_rq=cn&bs=” ＋ 编码_URL编码 (关键词1, 真, 真) ＋ “&rsv_jmp=fail” ' url ＝ “https://www.baidu.com/s?ie=utf-8&mod=1&isbd=1&isid=b8dfec370000acd6&ie=utf-8&f=8&rsv_bp=1&rsv_idx=1&tn=baidu&wd=site%3Awww.fbkc.net%2F&ct=2097152&si=www.fbkc.net%2F&oq=site%253Awww.fbkc.net%252F&rsv_pq=bcd283ed0000af3b&rsv_t=45f7ppONY3Beo66kt5bJ6AG6GVAb3DINW0F%2BawYvJ1yH0DfF4H6CyHdiMCA&rqlang=cn&rsv_enter=0&gpc=stf%3D1515772800%2C1515859198%7Cstftype%3D2&tfflag=1&rsv_srlang=cn&sl_lang=cn&rsv_rq=cn&bs=site%3Awww.fbkc.net%2F&rsv_sid=undefined&_ss=1&clist=a1f879c8cd2d9e87&hsug=&f4s=1&csor=18&_cr1=39070” bin ＝ 网页_访问_对象 (url) str ＝ 到文本 (bin) ' 7 str ＝ 编码_URL解码_超快 (str, 真) str ＝ 子文本替换 (str, #引号, “'”, , , 真) 尾页 ＝ 文本_取出中间文本 (str, “”, “”, , ) .如果真 (尾页 ＝ “”) 尾页 ＝ “1” .如果真结束 调试输出 (3) 临时表项 ＝ 超级列表框7.插入表项 (, , , , , ) 超级列表框7.置标题 (临时表项, 0, 时间标识) 超级列表框7.置标题 (临时表项, 1, “查询到” ＋ 尾页 ＋ “页”) 超级列表框7.置标题 (临时表项, 2, url) 调试输出 (时间_取现行时间戳 (真), 日期, si, 页数, 尾页, url) .子程序 _图片框_code_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 图片框_code.图片 ＝ GetViery (ClassMsg) .子程序 _组合框3_列表项被选择 .局部变量 url, 文本型 .局部变量 body, 文本型 .局部变量 str, 文本型 .局部变量 id, 文本型 .局部变量 bin, 字节集 str ＝ 组合框3.取项目文本 (组合框3.现行选中项) id ＝ 文本_取右边 (str, “|”) url ＝ “https://jdzjinterface.jdzj.com/api/FlFilterInter?callback=jQuery1123033932757917808354_1526525582984&Cid=3&Caid=” ＋ id ＋ “&_=1526525583019” bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, , , , , , , , , ) str ＝ 到文本单引号 (bin, 真) ' ,{'id':'678','name':'牵引机'} str ＝ 编码_usc2到ansi (str) 添加category到组合框 (str, 组合框26, “{”, “}”, “name':'”, “'”, “id':'”, “'”) 调试输出 (id, str) .子程序 _按钮_更新固定分类_被单击 更新固定分类 () .子程序 更新固定分类 .局部变量 str, 文本型 .局部变量 temp, 文本型 .局部变量 name, 文本型 .局部变量 value, 文本型 .局部变量 strarr, 文本型, , "0" 组合框8.清空 () 组合框9.清空 () 组合框10.清空 () 组合框11.清空 () 组合框12.清空 () 组合框13.清空 () 组合框14.清空 () 组合框15.清空 () 组合框16.清空 () str ＝ #常量4 .判断循环* (寻找文本 (str, “value”, , 假) ≠ -1) temp ＝ 文本_取出中间文本 (str, “value”, “/OPTION>”) str ＝ 子文本替换 (str, “value”, “”, 1, 1, 真) name ＝ 文本_取出中间文本 (temp, “>”, “<”) value ＝ 文本_取出中间文本 (temp, “=”, “>”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框8.加入项目 (name ＋ “|” ＋ value, ) 组合框11.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .判断循环尾 () 组合框16.加入项目 (“提供|1”, ) 组合框16.加入项目 (“不提供|0”, ) str ＝ #常量5 .判断循环* (寻找文本 (str, “value”, , 假) ≠ -1) temp ＝ 文本_取出中间文本 (str, “value”, “INPUT”) str ＝ 子文本替换 (str, “value”, “”, 1, 1, 真) name ＝ 删全部空 (文本_取出中间文本 (temp, “>”, “<”)) value ＝ 文本_取出中间文本 (temp, “=”, “ ”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框12.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .判断循环尾 () str ＝ #常量6 .判断循环* (寻找文本 (str, “value”, , 假) ≠ -1) temp ＝ 文本_取出中间文本 (str, “value”, “INPUT”) str ＝ 子文本替换 (str, “value”, “”, 1, 1, 真) name ＝ 删全部空 (文本_取出中间文本 (temp, “>”, “<”)) value ＝ 文本_取出中间文本 (temp, “=”, “ ”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框13.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .判断循环尾 () str ＝ #常量7 .判断循环* (寻找文本 (str, “value”, , 假) ≠ -1) temp ＝ 文本_取出中间文本 (str, “value”, “INPUT”) str ＝ 子文本替换 (str, “value”, “”, 1, 1, 真) name ＝ 删全部空 (文本_取出中间文本 (temp, “>”, “<”)) value ＝ 文本_取出中间文本 (temp, “=”, “ ”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框14.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .判断循环尾 () str ＝ #常量8 .判断循环* (寻找文本 (str, “value”, , 假) ≠ -1) temp ＝ 文本_取出中间文本 (str, “value”, “INPUT”) str ＝ 子文本替换 (str, “value”, “”, 1, 1, 真) name ＝ 删全部空 (文本_取出中间文本 (temp, “>”, “<”)) value ＝ 文本_取出中间文本 (temp, “=”, “ ”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框15.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .判断循环尾 () 组合框8.现行选中项 ＝ 1 组合框9.现行选中项 ＝ 1 组合框10.现行选中项 ＝ 1 组合框11.现行选中项 ＝ 1 组合框12.现行选中项 ＝ 1 组合框13.现行选中项 ＝ 1 组合框14.现行选中项 ＝ 1 组合框15.现行选中项 ＝ 1 组合框16.现行选中项 ＝ 1 .子程序 _组合框8_列表项被选择 .局部变量 id, 文本型 .局部变量 strarr, 文本型, , "0" .局部变量 temp, 文本型 .局部变量 name, 文本型 .局部变量 value, 文本型 .局部变量 all, 整数型 .局部变量 i, 整数型 id ＝ 文本_取右边 (组合框8.取项目文本 (组合框8.现行选中项), “|”) 组合框9.清空 () strarr ＝ 分割文本 (#常量9, #换行符, ) all ＝ 取数组成员数 (strarr) .计次循环* (all, i) .如果真 (寻找文本 (strarr [i], “','” ＋ id ＋ “','”, , 假) ≠ -1) name ＝ 文本_取出中间文本 (strarr [i], “new Array('”, “'”) value ＝ 文本_取右边 (strarr [i], “','”) value ＝ 文本_取左边 (value, “'”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框9.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .如果真结束 .计次循环尾 () 组合框9.现行选中项 ＝ 1 .子程序 _组合框11_列表项被选择 .局部变量 id, 文本型 .局部变量 strarr, 文本型, , "0" .局部变量 temp, 文本型 .局部变量 name, 文本型 .局部变量 value, 文本型 .局部变量 all, 整数型 .局部变量 i, 整数型 id ＝ 文本_取右边 (组合框11.取项目文本 (组合框11.现行选中项), “|”) 组合框10.清空 () strarr ＝ 分割文本 (#常量9, #换行符, ) all ＝ 取数组成员数 (strarr) .计次循环* (all, i) .如果真 (寻找文本 (strarr [i], “','” ＋ id ＋ “','”, , 假) ≠ -1) name ＝ 文本_取出中间文本 (strarr [i], “new Array('”, “'”) value ＝ 文本_取右边 (strarr [i], “','”) value ＝ 文本_取左边 (value, “'”) .如果真 (name ≠ “” 且 value ≠ “”) 组合框10.加入项目 (name ＋ “|” ＋ value, ) .如果真结束 .如果真结束 .计次循环尾 () 组合框10.现行选中项 ＝ 1 .子程序 _编辑框_code_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果 (键代码 ＝ #回车键) _按钮_login_被单击 () .否则 .如果结束 .子程序 _组合框23_列表项被选择 .局部变量 id, 文本型 .局部变量 url, 文本型 .局部变量 bin, 字节集 .局部变量 session, 文本型 .局部变量 str, 文本型 .局部变量 body, 文本型 id ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, ) url ＝ “https://jdzjinterface.jdzj.com/api/FlFilterInter?callback=jQuery1123042332050412654254_1518334446773&Cid=2&Caid=” ＋ id ＋ “&_=1518334446774” bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, session, “Referer: https://” ＋ ClassMsg.domain ＋ “.jdzj.com/mall/product/cpadd/” ＋ #换行符 ＋ “X-HttpWatch-RID: 45083-10054”, , , , ) str ＝ 到文本单引号 (bin, 假) str ＝ 编码_usc2到ansi (str) ' {'id':'3735','name':'低压附件'} 添加category到组合框 (str, 组合框24, “{'id'”, “}”, “name':'”, “'”, “'”, “'”) ' 编辑框45.内容 ＝ str 输出调试文本 (id) .子程序 _组合框24_列表项被选择 .局部变量 id, 文本型 .局部变量 url, 文本型 .局部变量 bin, 字节集 .局部变量 session, 文本型 .局部变量 str, 文本型 id ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, ) ' url ＝ “https://jdzjinterface.jdzj.com/api/FlFilterInter?callback=jQuery1123042332050412654254_1518334446773&Cid=2&Caid=” ＋ id ＋ “&_=1518334446774” url ＝ “https://jdzjinterface.jdzj.com/api/FlFilterInter?callback=jQuery1123042332050412654254_1518334446773&Cid=3&Caid=” ＋ id ＋ “&_=1518334446778” bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, session, “Referer: https://” ＋ ClassMsg.domain ＋ “.jdzj.com/mall/product/cpadd/” ＋ #换行符 ＋ “X-HttpWatch-RID: 45083-10054”, , , , ) str ＝ 到文本单引号 (bin, 假) str ＝ 编码_usc2到ansi (str) ' {'id':'3735','name':'低压附件'} 添加category到组合框 (str, 组合框25, “{'id'”, “}”, “name':'”, “'”, “'”, “'”) 输出调试文本 (id) .子程序 _组合框25_列表项被选择 .局部变量 id1, 文本型 .局部变量 url, 文本型 .局部变量 bin, 字节集 .局部变量 session, 文本型 .局部变量 str, 文本型 .局部变量 id2, 文本型 .局部变量 id3, 文本型 .局部变量 body, 文本型 id1 ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, ) id2 ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, ) id3 ＝ 文本_取右边 (组合框25.取项目文本 (组合框25.现行选中项), “|”, ) url ＝ “https://” ＋ ClassMsg.domain ＋ “.jdzj.com/mall/product/ajax_cs/” body ＝ “one=” ＋ id1 ＋ “&two=” ＋ id2 ＋ “&three=” ＋ id3 bin ＝ 网页_访问_对象 (url, 1, body, ClassMsg.cookies, session, “Referer: https://” ＋ ClassMsg.domain ＋ “.jdzj.com/mall/product/cpadd/” ＋ #换行符 ＋ “X-HttpWatch-RID: 45083-10054” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded; charset=UTF-8”, , , , ) str ＝ 到文本单引号 (bin, 真) 取属性 (str) 输出调试文本 (body, str) .子程序 取属性 .参数 str, 文本型 .局部变量 url, 文本型 .局部变量 bin, 字节集 .局部变量 body, 文本型 .局部变量 strarr, 文本型, , "0" .局部变量 n, 整数型 .局部变量 name, 文本型 .局部变量 value, 文本型 .局部变量 temp, 文本型 .局部变量 value2, 文本型, , , 参数 .局部变量 name2, 文本型, , , 参数 .局部变量 temp2, 文本型 .局部变量 str2, 文本型 .局部变量 i, 整数型 .局部变量 tempQian, 文本型 .局部变量 tempHou, 文本型 .计次循环* (高级表格1.行数 － 1, i) 高级表格1.删除行 (0) .计次循环尾 () tempQian ＝ “admin_form_list” ' tempHou ＝ “class='tb-help' data-role='Hint' style='display” tempHou ＝ “/>
')”)
.子程序 _按钮_insertVar1_被单击
执行
”, #换行符 ＋ 内容图片 ＋ #换行符, 1, 1, 真)
' 删除成员 (temparr, 图片位置, )
.判断循环尾 ()
' 延时 (30000000)
调试输出 (msg.content)
' 延时 (111111)
ArrToRadomNewArr (key数组, , 5, msg.key, )
ArrToRadomNewArr (tempImageArr, , 5, msg.imageTextArr)
' ArrToRadomNewArr (imageArr, , 1, msg.image)
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.如果真 (选择框_每条信息都过滤.选中)
msg.content ＝ 过滤文本中敏感词 (msg.content, 分割文本 (编辑框_forbidWords.内容, #换行符, ))
.如果真结束
' 内容文本处理
' msg.content ＝ 子文本替换 (msg.content, “<”, “<”, , , 真)
' msg.content ＝ 子文本替换 (msg.content, “>”, “>”, , , 真)
' boolpublish ＝ ProductAdd (msg)
.判断开始 (单选框_产品发布.选中 ＝ 真)
boolpublish ＝ ProductAdd (msg)
.判断 (单选框_供应发布.选中 ＝ 真)
boolpublish ＝ SupplyAdd (msg)
.判断 (单选框_新闻发布.选中 ＝ 真)
boolpublish ＝ NewsAdd (msg)
.默认
.判断结束
' boolpublish ＝ 真
.如果 (boolpublish)
状态条1.置文本 (2, “发布成功”)
超级列表框1.置标题 (n, 2, “发布成功”)
编辑框_log.加入文本 (“发布成功” ＋ #换行符)
.否则
超级列表框1.置标题 (n, 2, “发布失败:” ＋ msg.ret)
状态条1.置文本 (2, “发布失败:” ＋ msg.ret)
编辑框_log.加入文本 (“发布失败:” ＋ msg.ret ＋ #换行符)
.如果结束
n ＝ n ＋ 1
u ＝ 取随机数 (delaytime1, delaytime2)
s1 ＝ 状态条1.取文本 (2)
suc ＝ suc ＋ 1
.如果真 (suc ≥ limit)
' ========验证次数开始=========
.如果真 (次数 ≤ 30) ' 次数小于等于30，且达到限制数后(前面已经被限制50条)，停止发布
跳出循环 ()
.如果真结束
' ========验证次数结束=========
.如果真 (选择框_sendNum.选中)
跳出循环 ()
.如果真结束
.如果真结束
.计次循环* (u, i)
状态条1.置文本 (2, s1 ＋ “ 间隔等待中···” ＋ 到文本 (u － i))
延时 (1000)
.计次循环尾 ()
.判断循环尾 ()
状态条1.置文本 (2, “任务完成”)
编辑框_log.加入文本 (“任务完成” ＋ #换行符)
.如果真 (选择框_sendsutdown.选中)
关闭系统 (1, 真)
.如果真结束
.子程序 _按钮_pauseSend_被单击
按钮_pauseSend.禁止 ＝ 真
SuspendThread (threadHandle)
延迟 (100)
按钮_recoverSend.禁止 ＝ 假
状态条1.置文本 (2, “暂停中···”)
编辑框_log.加入文本 (“暂停中···” ＋ #换行符)
.子程序 _按钮_recoverSend_被单击
按钮_recoverSend.禁止 ＝ 真
ResumeThread (threadHandle)
按钮_pauseSend.禁止 ＝ 假
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.子程序 _按钮_allSelect_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
超级列表框1.置状态图片 (i － 1, 1)
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_invertSelect_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
.如果 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
超级列表框1.置状态图片 (i － 1, 0)
.否则
超级列表框1.置状态图片 (i － 1, 1)
.如果结束
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_deleteSelected_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
调试输出 (i)
超级列表框1.删除表项 (i － 1)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮_deleteSuccess_被单击
.局部变量 i, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (寻找文本 (超级列表框1.取标题 (i, 2), “发布成功”, , 假) ≠ -1)
超级列表框1.删除表项 (i)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮79_被单击
超级列表框1.删除表项 (0)
.子程序 _按钮_inputTitle_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.如果真 (通用对话框1.打开 ())
strarr ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环* (取数组成员数 (strarr), n)
.如果真 (strarr [n] ≠ “”)
num ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框1.置标题 (num, 1, strarr [n])
.如果真结束
.计次循环尾 ()
状态条1.置文本 (2, “导入完成”)
.如果真结束
.子程序 _按钮80_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.局部变量 ret, 文本型
' 超级列表框_保存表项x (超级列表框1, , )
' 状态条1.置文本 (1, “标题保存成功”)
.如果真 (通用对话框1.打开 ())
.计次循环* (超级列表框1.取表项数 (), n)
ret ＝ ret ＋ 超级列表框1.取标题 (n, 1) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (ret))
状态条1.置文本 (2, “导出完成”)
.如果真结束
.子程序 _按钮_StartCelect_被单击
.局部变量 n, 整数型
' 按钮23.禁止 ＝ 真
.如果 (按钮_StartCelect.标题 ＝ “开始采集”)
' 按钮23.标题 ＝ “停止采集”
' 按钮19.禁止 ＝ 假
' 按钮5.禁止 ＝ 真
启动线程 (&采集线程, n, threadHandle_s)
.否则
按钮_StartCelect.标题 ＝ “开始采集”
按钮_pauseCelect.禁止 ＝ 真
按钮5.禁止 ＝ 真
强制结束线程 (threadHandle_s)
.如果结束
按钮_pauseCelect.禁止 ＝ 假
.子程序 采集线程
.参数 n, 整数型
.局部变量 start, 整数型
.局部变量 end, 整数型
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 temp, 文本型
.局部变量 id, 文本型
.局部变量 title, 文本型
.局部变量 state, 文本型
.局部变量 num, 整数型
.局部变量 bool, 逻辑型
start ＝ 到整数 (编辑框_pageStart.内容)
end ＝ 到整数 (编辑框_pageEnd.内容)
.循环判断* ()
状态条1.置文本 (2, “当前页/结束页：” ＋ 到文本 (start) ＋ “/” ＋ 到文本 (end))
url ＝ “https://my.cn.china.cn/manage.php?op=SellInfoListNew&auth=” ＋ ClassMsg.auth ＋ “&page=” ＋ 到文本 (start)
bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, )
str ＝ 到文本 (bin)
调试输出 (str)
bool ＝ 假
寻找文本 (str, “data-config='{text:”, , 假)
.判断循环* (寻找文本 (str, “data-config='{text:”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “data-config='{text:”, “}”)
str ＝ 子文本替换 (str, “data-config='{text:”, “”, 1, 1, 真)
title ＝ 文本_取出中间文本 (temp, “'”, “'”)
id ＝ 文本_取出中间文本 (temp, “,url:'”, “'”)
状态条1.置文本 (1, title)
.如果真 (id ≠ “” 且 title ≠ “”)
.如果真 (超级列表框2.查找表项 (id, , , 2) ＝ -1)
bool ＝ 真
num ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框2.置标题 (num, 1, title)
超级列表框2.置标题 (num, 2, id)
超级列表框2.置标题 (num, 3, state)
.如果真结束
.如果真结束
.判断循环尾 ()
start ＝ start ＋ 1
.循环判断尾 (bool)
状态条1.置文本 (2, “采集完成”)
.子程序 _按钮_pauseCelect_被单击
按钮_pauseCelect.禁止 ＝ 真
SuspendThread (threadHandle_s)
状态条1.置文本 (2, “采集已暂停···”)
按钮5.禁止 ＝ 假
.子程序 _按钮_allSelect1_被单击
.局部变量 all, 整数型
.局部变量 n, 整数型
all ＝ 超级列表框2.取表项数 ()
.计次循环* (all, n)
.如果真 (超级列表框2.取当前状态图片 (n － 1) ＝ 0)
超级列表框2.置状态图片 (n － 1, 1)
.如果真结束
.计次循环尾 ()
.子程序 _按钮5_被单击
.子程序 保存模版配置
.局部变量 计次, 整数型
.局部变量 文本内容, 文本型
.局部变量 文件号, 文本型
.局部变量 保存文本, 文本型
.局部变量 文本数据, 整数型
文件号 ＝ 取运行目录 () ＋ “\data\templates.txt”
.计次循环* (选择列表框1.取项目数 (), 计次)
文本内容 ＝ 选择列表框1.取项目文本 (计次 － 1)
文本数据 ＝ 选择列表框1.取项目数值 (计次 － 1)
保存文本 ＝ 保存文本 ＋ 文本内容 ＋ “|” ＋ 到文本 (文本数据) ＋ #换行符
.计次循环尾 ()
调试输出 (保存文本)
写到文件 (文件号, 到字节集 (保存文本))
.子程序 _按钮_templateDelSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (“------” ＋ 到文本 (i))
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
选择列表框1.删除项目 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, 项目文本, )
.如果真结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 getContentsArr, 逻辑型
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
.局部变量 content, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
清除数组 (contentsArr)
.计次循环* (项目数, i)
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
content ＝ 通过项目文本获取待发content (项目文本)
加入成员 (contentsArr, content)
.如果真结束
.计次循环尾 ()
.如果 (取数组成员数 (contentsArr) ≥ 1)
返回 (真)
.否则
返回 (假)
.如果结束
.子程序 _按钮_templateAllSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (选择列表框1.取项目文本 (i － 1))
选择列表框1.选中项目 (i － 1, 真)
.计次循环尾 ()
.子程序 _按钮_templateInvertSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
.如果 (选择列表框1.是否被选中 (i － 1))
选择列表框1.选中项目 (i － 1, 假)
.否则
选择列表框1.选中项目 (i － 1, 真)
.如果结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 _按钮_refreshTemplate_被单击
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 _按钮_saveTemplate_被单击
.局部变量 templateContent, 文本型
.局部变量 templateName, 文本型
templateName ＝ 编辑框_templateName.内容
.如果真 (templateName ＝ “”)
信息框 (“请填写模版名称！”, 0, , )
返回 ()
.如果真结束
templateContent ＝ 获取template文本 ()
.如果真 (templateContent ＝ “”)
信息框 (“模版内容不能为空！”, 0, , )
返回 ()
.如果真结束
选择列表框1.加入项目 (templateName, )
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, templateName, 子文本替换 (templateContent, #换行符, “{huanhang}”, , , 真))
执行
”, #换行符 ＋ 内容图片 ＋ #换行符, 1, 1, 真)
' 删除成员 (temparr, 图片位置, )
.判断循环尾 ()
' 延时 (30000000)
调试输出 (msg.content)
' 延时 (111111)
ArrToRadomNewArr (key数组, , 5, msg.key, )
ArrToRadomNewArr (tempImageArr, , 5, msg.imageTextArr)
' ArrToRadomNewArr (imageArr, , 1, msg.image)
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.如果真 (选择框_每条信息都过滤.选中)
msg.content ＝ 过滤文本中敏感词 (msg.content, 分割文本 (编辑框_forbidWords.内容, #换行符, ))
.如果真结束
' 内容文本处理
' msg.content ＝ 子文本替换 (msg.content, “<”, “<”, , , 真)
' msg.content ＝ 子文本替换 (msg.content, “>”, “>”, , , 真)
' boolpublish ＝ ProductAdd (msg)
.判断开始 (单选框_产品发布.选中 ＝ 真)
boolpublish ＝ ProductAdd (msg)
.判断 (单选框_供应发布.选中 ＝ 真)
boolpublish ＝ SupplyAdd (msg)
.判断 (单选框_新闻发布.选中 ＝ 真)
boolpublish ＝ NewsAdd (msg)
.默认
.判断结束
' boolpublish ＝ 真
.如果 (boolpublish)
状态条1.置文本 (2, “发布成功”)
超级列表框1.置标题 (n, 2, “发布成功”)
编辑框_log.加入文本 (“发布成功” ＋ #换行符)
.否则
超级列表框1.置标题 (n, 2, “发布失败:” ＋ msg.ret)
状态条1.置文本 (2, “发布失败:” ＋ msg.ret)
编辑框_log.加入文本 (“发布失败:” ＋ msg.ret ＋ #换行符)
.如果结束
n ＝ n ＋ 1
u ＝ 取随机数 (delaytime1, delaytime2)
s1 ＝ 状态条1.取文本 (2)
suc ＝ suc ＋ 1
.如果真 (suc ≥ limit)
' ========验证次数开始=========
.如果真 (次数 ≤ 30) ' 次数小于等于30，且达到限制数后(前面已经被限制50条)，停止发布
跳出循环 ()
.如果真结束
' ========验证次数结束=========
.如果真 (选择框_sendNum.选中)
跳出循环 ()
.如果真结束
.如果真结束
.计次循环* (u, i)
状态条1.置文本 (2, s1 ＋ “ 间隔等待中···” ＋ 到文本 (u － i))
延时 (1000)
.计次循环尾 ()
.判断循环尾 ()
状态条1.置文本 (2, “任务完成”)
编辑框_log.加入文本 (“任务完成” ＋ #换行符)
.如果真 (选择框_sendsutdown.选中)
关闭系统 (1, 真)
.如果真结束
.子程序 _按钮_pauseSend_被单击
按钮_pauseSend.禁止 ＝ 真
SuspendThread (threadHandle)
延迟 (100)
按钮_recoverSend.禁止 ＝ 假
状态条1.置文本 (2, “暂停中···”)
编辑框_log.加入文本 (“暂停中···” ＋ #换行符)
.子程序 _按钮_recoverSend_被单击
按钮_recoverSend.禁止 ＝ 真
ResumeThread (threadHandle)
按钮_pauseSend.禁止 ＝ 假
状态条1.置文本 (2, “发布中···”)
编辑框_log.加入文本 (“发布中···” ＋ #换行符)
.子程序 _按钮_allSelec_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
超级列表框1.置状态图片 (i － 1, 1)
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_invertSelect_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环* (表项数, i)
.如果 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
超级列表框1.置状态图片 (i － 1, 0)
.否则
超级列表框1.置状态图片 (i － 1, 1)
.如果结束
计次 ＝ 计次 ＋ 1
.如果真 (计次 ≥ 表项数)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.子程序 _按钮_deleteSelected_被单击
.局部变量 i, 整数型
.局部变量 计次, 整数型
.局部变量 表项数, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
调试输出 (i)
超级列表框1.删除表项 (i － 1)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮_deleteSuccess_被单击
.局部变量 i, 整数型
i ＝ 超级列表框1.取表项数 ()
.判断循环* (i ＞ 0)
.如果真 (寻找文本 (超级列表框1.取标题 (i, 2), “发布成功”, , 假) ≠ -1)
超级列表框1.删除表项 (i)
.如果真结束
i ＝ i － 1
.判断循环尾 ()
.子程序 _按钮79_被单击
超级列表框1.删除表项 (0)
.子程序 _按钮_inputTitle_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.如果真 (通用对话框1.打开 ())
strarr ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环* (取数组成员数 (strarr), n)
.如果真 (strarr [n] ≠ “”)
num ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框1.置标题 (num, 1, strarr [n])
.如果真结束
.计次循环尾 ()
状态条1.置文本 (2, “导入完成”)
.如果真结束
.子程序 _按钮80_被单击
.局部变量 strarr, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 num, 整数型
.局部变量 ret, 文本型
' 超级列表框_保存表项x (超级列表框1, , )
' 状态条1.置文本 (1, “标题保存成功”)
.如果真 (通用对话框1.打开 ())
.计次循环* (超级列表框1.取表项数 (), n)
ret ＝ ret ＋ 超级列表框1.取标题 (n, 1) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (ret))
状态条1.置文本 (2, “导出完成”)
.如果真结束
.子程序 _按钮_StartCelect_被单击
.局部变量 n, 整数型
' 按钮23.禁止 ＝ 真
.如果 (按钮_StartCelect.标题 ＝ “开始采集”)
' 按钮23.标题 ＝ “停止采集”
' 按钮19.禁止 ＝ 假
' 按钮5.禁止 ＝ 真
启动线程 (&采集线程, n, threadHandle_s)
.否则
按钮_StartCelect.标题 ＝ “开始采集”
按钮_pauseCelect.禁止 ＝ 真
按钮5.禁止 ＝ 真
强制结束线程 (threadHandle_s)
.如果结束
按钮_pauseCelect.禁止 ＝ 假
.子程序 采集线程
.参数 n, 整数型
.局部变量 start, 整数型
.局部变量 end, 整数型
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 temp, 文本型
.局部变量 id, 文本型
.局部变量 title, 文本型
.局部变量 state, 文本型
.局部变量 num, 整数型
.局部变量 bool, 逻辑型
start ＝ 到整数 (编辑框_pageStart.内容)
end ＝ 到整数 (编辑框_pageEnd.内容)
.循环判断* ()
状态条1.置文本 (2, “当前页/结束页：” ＋ 到文本 (start) ＋ “/” ＋ 到文本 (end))
url ＝ “https://my.cn.china.cn/manage.php?op=SellInfoListNew&auth=” ＋ ClassMsg.auth ＋ “&page=” ＋ 到文本 (start)
bin ＝ 网页_访问_对象 (url, , , ClassMsg.cookies, )
str ＝ 到文本 (bin)
调试输出 (str)
bool ＝ 假
寻找文本 (str, “data-config='{text:”, , 假)
.判断循环* (寻找文本 (str, “data-config='{text:”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “data-config='{text:”, “}”)
str ＝ 子文本替换 (str, “data-config='{text:”, “”, 1, 1, 真)
title ＝ 文本_取出中间文本 (temp, “'”, “'”)
id ＝ 文本_取出中间文本 (temp, “,url:'”, “'”)
状态条1.置文本 (1, title)
.如果真 (id ≠ “” 且 title ≠ “”)
.如果真 (超级列表框2.查找表项 (id, , , 2) ＝ -1)
bool ＝ 真
num ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框2.置标题 (num, 1, title)
超级列表框2.置标题 (num, 2, id)
超级列表框2.置标题 (num, 3, state)
.如果真结束
.如果真结束
.判断循环尾 ()
start ＝ start ＋ 1
.循环判断尾 (bool)
状态条1.置文本 (2, “采集完成”)
.子程序 _按钮_pauseCelect_被单击
按钮_pauseCelect.禁止 ＝ 真
SuspendThread (threadHandle_s)
状态条1.置文本 (2, “采集已暂停···”)
按钮5.禁止 ＝ 假
.子程序 _按钮_allSelect1_被单击
.局部变量 all, 整数型
.局部变量 n, 整数型
all ＝ 超级列表框2.取表项数 ()
.计次循环* (all, n)
.如果真 (超级列表框2.取当前状态图片 (n － 1) ＝ 0)
超级列表框2.置状态图片 (n － 1, 1)
.如果真结束
.计次循环尾 ()
.子程序 _按钮5_被单击
.子程序 保存模版配置
.局部变量 计次, 整数型
.局部变量 文本内容, 文本型
.局部变量 文件号, 文本型
.局部变量 保存文本, 文本型
.局部变量 文本数据, 整数型
文件号 ＝ 取运行目录 () ＋ “\data\templates.txt”
.计次循环* (选择列表框1.取项目数 (), 计次)
文本内容 ＝ 选择列表框1.取项目文本 (计次 － 1)
文本数据 ＝ 选择列表框1.取项目数值 (计次 － 1)
保存文本 ＝ 保存文本 ＋ 文本内容 ＋ “|” ＋ 到文本 (文本数据) ＋ #换行符
.计次循环尾 ()
调试输出 (保存文本)
写到文件 (文件号, 到字节集 (保存文本))
.子程序 _按钮_templateDelSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (“------” ＋ 到文本 (i))
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
选择列表框1.删除项目 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, 项目文本, )
.如果真结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 getContentsArr, 逻辑型
.局部变量 项目数, 整数型
.局部变量 i, 整数型
.局部变量 项目文本, 文本型
.局部变量 content, 文本型
项目数 ＝ 选择列表框1.取项目数 ()
清除数组 (contentsArr)
.计次循环* (项目数, i)
.如果真 (选择列表框1.是否被选中 (项目数 － i))
项目文本 ＝ 选择列表框1.取项目文本 (项目数 － i)
调试输出 (项目数 － i, 项目文本)
content ＝ 通过项目文本获取待发content (项目文本)
加入成员 (contentsArr, content)
.如果真结束
.计次循环尾 ()
.如果 (取数组成员数 (contentsArr) ≥ 1)
返回 (真)
.否则
返回 (假)
.如果结束
.子程序 _按钮_templateAllSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
' 调试输出 (选择列表框1.取项目文本 (i － 1))
选择列表框1.选中项目 (i － 1, 真)
.计次循环尾 ()
.子程序 _按钮_templateInvertSelect_被单击
.局部变量 项目数, 整数型
.局部变量 i, 整数型
项目数 ＝ 选择列表框1.取项目数 ()
.计次循环* (项目数, i)
.如果 (选择列表框1.是否被选中 (i － 1))
选择列表框1.选中项目 (i － 1, 假)
.否则
选择列表框1.选中项目 (i － 1, 真)
.如果结束
' 调试输出 (选择列表框1.取项目文本 (i － 1))
.计次循环尾 ()
.子程序 _按钮_refreshTemplate_被单击
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 _按钮_saveTemplate_被单击
.局部变量 templateContent, 文本型
.局部变量 templateName, 文本型
templateName ＝ 编辑框_templateName.内容
.如果真 (templateName ＝ “”)
信息框 (“请填写模版名称！”, 0, , )
返回 ()
.如果真结束
templateContent ＝ 获取template文本 ()
.如果真 (templateContent ＝ “”)
信息框 (“模版内容不能为空！”, 0, , )
返回 ()
.如果真结束
选择列表框1.加入项目 (templateName, )
写配置项 (取运行目录 () ＋ “\data\template.ini”, “templateList”, templateName, 子文本替换 (templateContent, #换行符, “{huanhang}”, , , 真))
执行
”, “