”)
' astr ＝ 去网页格式 (astr)
' astr ＝ 子文本替换 (astr, “ ”, #右引号, , , 真)
编辑框_sentenceSet.加入文本 (temp ＋ #换行符)
.如果真结束
.判断循环尾 ()
.变量循环尾 ()
状态条1.置文本 (2, “采集完成”)
.子程序 _按钮_
linkClear_被单击
编辑框_random
Link.内容 ＝ “”
.子程序 _按钮_randomImageClear_被单击
编辑框_randomImage.内容 ＝ “”
.子程序 _按钮_disorganizeParagraph1_被单击
编辑框_paragraph1.内容 ＝ 打乱顺序 (编辑框_paragraph1.内容)
.子程序 _按钮_disorganizeParagraph2_被单击
编辑框_paragraph2.内容 ＝ 打乱顺序 (编辑框_paragraph2.内容)
.子程序 _按钮_disorganizeParagraph3_被单击
编辑框_paragraph3.内容 ＝ 打乱顺序 (编辑框_paragraph3.内容)
.子程序 _按钮_disorganizeParagraph4_被单击
编辑框_paragraph4.内容 ＝ 打乱顺序 (编辑框_paragraph4.内容)
.子程序 _按钮_disorganizeParagraph5_被单击
编辑框_paragraph5.内容 ＝ 打乱顺序 (编辑框_paragraph5.内容)
.子程序 _按钮_disorganizeParagraph6_被单击
编辑框_paragraph6.内容 ＝ 打乱顺序 (编辑框_paragraph6.内容)
.子程序 _按钮_disorganizeParagraph7_被单击
编辑框_paragraph7.内容 ＝ 打乱顺序 (编辑框_paragraph7.内容)
.子程序 _按钮_disorganizeParagraph8_被单击
编辑框_paragraph8.内容 ＝ 打乱顺序 (编辑框_paragraph8.内容)
.子程序 _按钮_disorganizeParagraph9_被单击
编辑框_paragraph9.内容 ＝ 打乱顺序 (编辑框_paragraph9.内容)
.子程序 _按钮_disorganizeParagraph10_被单击
编辑框_paragraph10.内容 ＝ 打乱顺序 (编辑框_paragraph10.内容)
.子程序 _按钮_insertTitle_被单击
执行
JS (“insertText('【标题】')”)
.子程序 _按钮_insertMainVer_被单击
执行
JS (“insertText('巴达杏')”)
.子程序 _按钮_insertSentence_被单击
执行
JS (“insertText(' 根据美团闪购的数据，自2015年以来鲜花订单始终处于高速增长的态势，其中2016年开始出现爆发性增长，2018年上半年环比增幅达到124%。鲜花电商的发展，尤其是闪购等本地化电商的出现，将鲜花购买的门槛一再降低，不仅提升了礼品鲜花的销量，同时还带动了“悦己”需求市场，推动鲜花属性从节日需求商品向日常消费品过渡。')”)
.子程序 _按钮_insertRandomImage_被单击
执行
JS (“insertText('
')”)
.子程序 _按钮_insertVar1_被单击
执行
JS (“insertText('基地')”)
.子程序 _按钮_clearLog_被单击
编辑框_log.内容 ＝ “”
.子程序 _按钮_MainSartSend_被单击
.局部变量 n, 整数型
.如果真 (取反 (loginState))
信息框 (“请先登录”, 0, , )
返回 ()
.如果真结束
按钮_MainSartSend.禁止 ＝ 真
.如果 (按钮_MainSartSend.标题 ＝ “开始发布”)
按钮_MainSartSend.标题 ＝ “停止发布”
按钮_pauseSend.禁止 ＝ 假
按钮_recoverSend.禁止 ＝ 假
n ＝ 选择 (超级列表框1.现行选中项 ＜ 0, 0, 超级列表框1.现行选中项)
' 执行
JS (“GetText()”)
' 信息框 (取返回值 (), 0, , )
' body ＝ 取返回值 ()
启动线程 (&发布线程, n, threadHandle)
.否则
按钮_MainSartSend.标题 ＝ “开始发布”
强制结束线程 (threadHandle)
关闭线程句柄 (threadHandle)
.如果结束
延迟 (200)
按钮_MainSartSend.禁止 ＝ 假
.子程序 发布线程
.参数 n, 整数型
.局部变量 msg, ClassMessage
.局部变量 sentenceArr, 文本型, , "0"
.局部变量 delaytime1, 整数型
.局部变量 delaytime2, 整数型
.局部变量 content, 文本型
.局部变量 all, 整数型
.局部变量 boolpublish, 逻辑型
.局部变量 imageArr, 字节集, , "0"
.局部变量 bin, 字节集
.局部变量 tempImageArr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 suc, 整数型
.局部变量 limit, 整数型
.局部变量 u, 整数型
.局部变量 keywordArr, 文本型, , "0"
.局部变量 str, 文本型
.局部变量 temp, 文本型
.局部变量 AllcontentArr, 文本型, , "0"
.局部变量 cline, 整数型
.局部变量 Line, 整数型
.局部变量 nline, 整数型
.局部变量 t, 整数型
.局部变量 s1, 文本型
.局部变量 打码工人, 文本型
.局部变量 识别结果, 文本型
.局部变量 返回结果, 文本型
.局部变量 返回文本, 文本型
.局部变量 次数, 整数型
.局部变量 bin2, 字节集
.局部变量 user, 文本型
.局部变量 pass, 文本型
.局部变量 cuxiao, 文本型
.局部变量 len, 整数型
.局部变量 temptitle, 文本型
.局部变量 start, 整数型
.局部变量 图片位置, 整数型
.局部变量 内容图片, 文本型
.局部变量 key数组, 文本型, , "0"
.局部变量 mainVariateArr, 文本型, , "0"
.局部变量 Variate3Arr, 文本型, , "0"
.局部变量 Variate2Arr, 文本型, , "0"
.局部变量 Variate1Arr, 文本型, , "0"
.局部变量 random
LinkArr, 文本型, , "0"
.局部变量 树形框选中项文本, 文本型
.局部变量 云段落数组, 文本型, , "0"
.局部变量 敏感数组, 文本型, , "0"
.局部变量 段落1数组, 文本型, , "0"
.局部变量 段落2数组, 文本型, , "0"
.局部变量 段落3数组, 文本型, , "0"
.局部变量 段落4数组, 文本型, , "0"
.局部变量 段落5数组, 文本型, , "0"
.局部变量 段落6数组, 文本型, , "0"
.局部变量 段落7数组, 文本型, , "0"
.局部变量 段落8数组, 文本型, , "0"
.局部变量 段落9数组, 文本型, , "0"
.局部变量 段落10数组, 文本型, , "0"
limit ＝ 到整数 (编辑框_sendNum.内容) ' *小数量
tempImageArr ＝ 分割文本 (编辑框_ImageMain.内容, #换行符, ) ' 1,设置图片
.如果真 (取数组成员数 (tempImageArr) ＜ 5)
信息框 (“请导入*少5张图片”, 段落2数组)
.否则
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
LinkArr ＝ 分割文本 (编辑框_random
Link.内容, #换行符, )
.如果真 (取数组成员数 (random
LinkArr) ＜ 1)
加入成员 (random
LinkArr, “”)
.如果真结束
调试输出 (“句子设置”)
' body ＝ 编辑框_ContentsMain.内容 ' 4，内容设置___这里很重要不同获取内容方式
' 执行
JS (“GetText()”)
' ' 信息框 (取返回值 (), 0, , )
' body ＝ 取返回值 ()
' AllcontentArr ＝ 分割文本 (编辑框_ContentsMain.内容, “【==内容分割==】”, )
' AllcontentArr ＝ 分割文本 (body, “【==内容分割==】”, )
.' 如果真 (取数组成员数 (AllcontentArr) ＜ 1)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
.' 如果真 (body ＝ “”)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
' 设置内容数组
.如果 (getContentsArr ())
调试输出 (取数组成员数 (contentsArr))
.否则
信息框 (“请先选中设置模版”, 0, , )
返回 ()
.如果结束
' 延时 (111111111)
调试输出 (“内容设置”)
' 5，判断是否为试用会员
' 返回文本 ＝ 到文本 (网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/3.asp?user=” ＋ 窗口1.用户帐号1.内容 ＋ “&pass=” ＋ 窗口1.登陆密码1.内容))
' 返回文本 ＝ 文本_取右边 (返回文本, “剩余使用次数为：”, , )
' 次数 ＝ 到整数 (返回文本)
' ' 次数 ＝ 40
.' 如果真 (次数 ≤ 30) ' 点击发布后，次数小于等于30时，限制发布50条
' 信息框 (“您的账户类型为试用账户，每次只能发布30条信息！”, 0, )
' limit ＝ 30
.如果真结束
.' 如果真 (次数 ＝ 0) ' 点击发布后，次数为0，直接退出软件
' MainForm.销毁 ()
.如果真结束
' 6，判断账号是否和软件账号一致
str ＝ 删*尾空 (编辑框_username.内容)
.如果真 (寻找文本 (str, “@”, , 假) ≠ -1)
str ＝ 文本_取左边 (str, “@”)
.如果真结束
' 网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/2ef955d371f3ab0cbb54cfbc6abef844.asp?uid=” ＋ str ＋ “&user=” ＋ 窗口1.用户帐号1.内容 ＋ “&point=” ＋ 到文本 (取硬盘特征字 ()))
.' 计次循环* (取数组成员数 (tempImageArr), i)
' bin ＝ 读入文件 (temparr [i])
' ' 调试输出 (bin)
.' 如果真 (bin ≠ { })
' 加入成员 (imageArr, bin)
.如果真结束
.' 计次循环尾 ()
状态条1.置文本 (2, “初始化数据中···”)
编辑框_log.加入文本 (“初始化数据中···” ＋ #换行符)
调试输出 (“初始化设置”)
' ------------------------------------------------------------------------------------初始化数据开始------------------------------------------------
' 供应参数设置
分类1 ＝ 文本_取右边 (组合框1.取项目文本 (组合框1.现行选中项), “|”)
分类2 ＝ 文本_取右边 (组合框2.取项目文本 (组合框2.现行选中项), “|”)
参考价格 ＝ 删*尾空 (编辑框14.内容)
计量单位 ＝ 删*尾空 (编辑框19.内容)
产地 ＝ 删*尾空 (编辑框18.内容)
品牌 ＝ 删*尾空 (编辑框17.内容)
规格型号 ＝ 删*尾空 (编辑框22.内容)
编号 ＝ 删*尾空 (编辑框21.内容)
发货地 ＝ 删*尾空 (编辑框20.内容)
行业分类 ＝ 文本_取右边 (组合框3.取项目文本 (组合框3.现行选中项), “|”)
行业分类1 ＝ 文本_取右边 (组合框26.取项目文本 (组合框26.现行选中项), “|”)
资料 ＝ 文本_取右边 (组合框7.取项目文本 (组合框7.现行选中项), “|”)
' 物流设置
wl_fromp ＝ 文本_取右边 (组合框8.取项目文本 (组合框8.现行选中项), “|”)
wl_fromc ＝ 文本_取右边 (组合框9.取项目文本 (组合框9.现行选中项), “|”)
wl_top ＝ 文本_取右边 (组合框11.取项目文本 (组合框11.现行选中项), “|”)
wl_toc ＝ 文本_取右边 (组合框10.取项目文本 (组合框10.现行选中项), “|”)
wl_shangmen ＝ 文本_取右边 (组合框16.取项目文本 (组合框16.现行选中项), “|”)
wl_cllx ＝ 文本_取右边 (组合框12.取项目文本 (组合框12.现行选中项), “|”)
wl_hwlx ＝ 文本_取右边 (组合框13.取项目文本 (组合框13.现行选中项), “|”)
wl_wjlx ＝ 文本_取右边 (组合框14.取项目文本 (组合框14.现行选中项), “|”)
wl_xllx ＝ 文本_取右边 (组合框15.取项目文本 (组合框15.现行选中项), “|”)
wl_tujing ＝ 删*尾空 (编辑框42.内容)
wl_zaizhong ＝ 删*尾空 (编辑框40.内容)
wl_chechang ＝ 删*尾空 (编辑框41.内容)
' 新闻设置参数
新闻分类 ＝ 文本_取右边 (组合框4.取项目文本 (组合框4.现行选中项), “|”)
新闻频道 ＝ 文本_取右边 (组合框5.取项目文本 (组合框5.现行选中项), “|”)
新闻标签 ＝ 文本_取右边 (组合框6.取项目文本 (组合框6.现行选中项), “|”)
新闻来源 ＝ 删*尾空 (编辑框28.内容)
新闻添加人 ＝ 删*尾空 (编辑框29.内容)
' 产品设置
idone ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, )
idtwo ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, )
idthree ＝ 文本_取右边 (组合框25.取项目文本 (组合框25.现行选中项), “|”, )
数量 ＝ 删*尾空 (编辑框13.内容)
' ------------------------------------------------------------------------------------初始化数据结束------------------------------------------------
状态条1.置文本 (2, “开始替换文本内容....”)
.如果真 (cat2 ＝ “”)
cat2 ＝ “0”
.如果真结束
.判断循环* (n ＜ 超级列表框1.取表项数 ())
' 设置内容
ArrToRadomNewArr (contentsArr, , 1, ClassMsg.contentOneArr, )
.如果 (ClassMsg.contentOneArr [1] ≠ “”)
ClassMsg.content ＝ ClassMsg.contentOneArr [1]
调试输出 (“获取待发文本内容完成”)
.否则
信息框 (“待发文本内容问空，请检查”, 0, , )
.如果结束
' ------------------------html转普通文本---------------------------
' ClassMsg.content ＝ html2text_
js (ClassMsg.content)
msg ＝ ClassMsg
' msg.param ＝ GetParam ()
状态条1.置文本 (2, 到文本 (n ＋ 1) ＋ “/” ＋ 到文本 (超级列表框1.取表项数 ()))
msg.title ＝ 超级列表框1.取标题 (n, 1)
nline ＝ nline ＋ 1
.如果真 (nline ＞ 取数组成员数 (AllcontentArr))
nline ＝ 1
.如果真结束
.如果真 (nline ＜ 1)
nline ＝ 1
.如果真结束
' 云段落替换开始------------------
.如果 (取反 (选择框_启用云段落.选中) 且 获取树形框选中项文本 () ＝ “”)
树形框选中项文本 ＝ 获取树形框选中项文本 ()
.如果真 (树形框选中项文本 ≠ “”)
.如果 (全局_云段落 ＝ “”)
全局_云段落 ＝ getSententsWithKeyWor (“https://s.hc360.com/?w=” ＋ 树形框选中项文本 ＋ “&mc=news”)
.否则
.如果结束
.如果真结束
.否则
.如果结束
.如果 (全局_云段落 ≠ “”)
云段落数组 ＝ 分割文本 (全局_云段落, “
”, )
.如果 (取数组成员数 (云段落数组) ＞ 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, “”, #错误图标, , )
返回 ()
.如果真结束
key数组 ＝ 分割文本 (编辑框_key.内容, #换行符, ) ' 2,设置关键词
' 机电之家无关键词
.如果真 (取数组成员数 (key数组) ＜ 3)
信息框 (“请*少写入3个关键词”, 编辑框_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, “17”, 到文本 (取日 (到时间 (取现行时间 ()))))
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
LinkArr)
.判断循环* (寻找文本 (msg.content, “美国薄皮扁桃仁基地”, , 假) ≠ -1)
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
msg.content ＝ 子文本替换 (msg.content, “巴旦木授粉树哪里有”, 超级列表框1.取标题 (取随机数 (0, 超级列表框1.取表项数 () － 1), 1), 1, 1, 真)
.判断循环尾 ()
.判断循环* (寻找文本 (msg.content, “
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) '
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
图片位置 ＝ 取随机数 (1, 取数组成员数 (tempImageArr))
内容图片 ＝ 子文本替换 (tempImageArr [图片位置], “.thumb.jpg”, “”, , , 真)
调试输出 (内容图片)
' 内容图片 ＝ 文本_取左边 (内容图片, “---”) ' 这是企汇网特有的图片转换方式
msg.content ＝ 子文本替换 (msg.content, “
”, “
”, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “
”, #引号 ＋ 内容图片 ＋ #引号, 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}”, , , 真))
执行
JS (“setHtml('')”)
延时 (200)
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 html文本转text文本, 文本型
.参数 html文本, 文本型
html文本 ＝ 子文本替换 (html文本, #换行符, “\” ＋ #换行符, , , 真)
执行
JS (“setHtml(' ” ＋ html文本 ＋ “ ')”)
执行
JS (“GetText()”)
返回 (取返回值 ())
.子程序 获取template文本, 文本型
' 执行
JS (“GetText()”) ' Gethtml
执行
JS (“Gethtml()”) ' Gethtml
返回 (取返回值 ())
' 文本 ＝ 取返回值 ()
.子程序 _选择列表框1_列表项被选择
.局部变量 templateName, 文本型
.局部变量 文本, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文本 ＝ 通过项目文本获取待发content (templateName)
编辑框_templateName.内容 ＝ templateName
文本 ＝ 子文本替换 (文本, #换行符, “\” ＋ #换行符, , , 真) ' 设置编辑器内容
执行
JS (“setHtml(' ” ＋ 文本 ＋ “ ')”)
.子程序 通过项目文本获取待发content, 文本型
.参数 templateName, 文本型
.局部变量 文件号, 整数型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 文本, 文本型
.局部变量 行分割, 文本型, , "0"
' 读出配置文件内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ＝ templateName) ' 找到这行文本再替换掉前面字符
文本 ＝ 分行内容 [循环次数]
文本 ＝ 文本替换 (文本, 1, 取文本长度 (templateName) ＋ 1, “”)
.如果真结束
.计次循环尾 ()
' 调试输出 (文本)
文本 ＝ 子文本替换 (文本, “{huanhang}”, #换行符, , , 真)
返回 (文本)
.子程序 _按钮_clearTemplateContent_被单击
.局部变量 文本, 文本型
' 执行
JS (“clearHtml()”)
执行
JS (“setHtml('')”)
.子程序 读取模版配置1
.局部变量 文本, 文本型
.局部变量 文件号, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 M, 整数型
.局部变量 数据分割, 文本型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 行分割, 文本型, , "0"
.局部变量 templateName, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ≠ “[templateList]” 且 行分割 [1] ≠ “” 且 行分割 [2] ≠ “”)
选择列表框1.加入项目 (行分割 [1], )
.如果真结束
.计次循环尾 ()
调试输出 (文本)
.子程序 _按钮_insertVar2_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_insertVar3_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_clouldParagraph_被单击
.如果 (取反 (选择框_启用云段落.选中) 或 获取树形框选中项文本 () ＝ “”)
信息框 (“请先勾选启用云段落并选择云段落类别”, 0, , )
高级选择夹1.现行子夹 ＝ 2
.否则
执行
JS (“insertText('【云段落】')”)
.如果结束
.子程序 _段落1_被选择
执行
JS (“insertText('【段落1】')”)
.子程序 _段落2_被选择
执行
JS (“insertText('”, “,”, , , 真)
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
LinkArr ＝ 分割文本 (编辑框_random
Link.内容, #换行符, )
.如果真 (取数组成员数 (random
LinkArr) ＜ 1)
加入成员 (random
LinkArr, “”)
.如果真结束
调试输出 (“句子设置”)
' body ＝ 编辑框_ContentsMain.内容 ' 4，内容设置___这里很重要不同获取内容方式
' 执行
JS (“GetText()”)
' ' 信息框 (取返回值 (), 0, , )
' body ＝ 取返回值 ()
' AllcontentArr ＝ 分割文本 (编辑框_ContentsMain.内容, “【==内容分割==】”, )
' AllcontentArr ＝ 分割文本 (body, “【==内容分割==】”, )
.' 如果真 (取数组成员数 (AllcontentArr) ＜ 1)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
.' 如果真 (body ＝ “”)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
' 设置内容数组
.如果 (getContentsArr ())
调试输出 (取数组成员数 (contentsArr))
.否则
信息框 (“请先选中设置模版”, 0, , )
返回 ()
.如果结束
' 延时 (111111111)
调试输出 (“内容设置”)
' 5，判断是否为试用会员
' 返回文本 ＝ 到文本 (网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/3.asp?user=” ＋ 窗口1.用户帐号1.内容 ＋ “&pass=” ＋ 窗口1.登陆密码1.内容))
' 返回文本 ＝ 文本_取右边 (返回文本, “剩余使用次数为：”, , )
' 次数 ＝ 到整数 (返回文本)
' ' 次数 ＝ 40
.' 如果真 (次数 ≤ 30) ' 点击发布后，次数小于等于30时，限制发布50条
' 信息框 (“您的账户类型为试用账户，每次只能发布30条信息！”, 0, )
' limit ＝ 30
.如果真结束
.' 如果真 (次数 ＝ 0) ' 点击发布后，次数为0，直接退出软件
' MainForm.销毁 ()
.如果真结束
' 6，判断账号是否和软件账号一致
str ＝ 删*尾空 (编辑框_username.内容)
.如果真 (寻找文本 (str, “@”, , 假) ≠ -1)
str ＝ 文本_取左边 (str, “@”)
.如果真结束
' 网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/2ef955d371f3ab0cbb54cfbc6abef844.asp?uid=” ＋ str ＋ “&user=” ＋ 窗口1.用户帐号1.内容 ＋ “&point=” ＋ 到文本 (取硬盘特征字 ()))
.' 计次循环* (取数组成员数 (tempImageArr), i)
' bin ＝ 读入文件 (temparr [i])
' ' 调试输出 (bin)
.' 如果真 (bin ≠ { })
' 加入成员 (imageArr, bin)
.如果真结束
.' 计次循环尾 ()
状态条1.置文本 (2, “初始化数据中···”)
编辑框_log.加入文本 (“初始化数据中···” ＋ #换行符)
调试输出 (“初始化设置”)
' ------------------------------------------------------------------------------------初始化数据开始------------------------------------------------
' 供应参数设置
分类1 ＝ 文本_取右边 (组合框1.取项目文本 (组合框1.现行选中项), “|”)
分类2 ＝ 文本_取右边 (组合框2.取项目文本 (组合框2.现行选中项), “|”)
参考价格 ＝ 删*尾空 (编辑框14.内容)
计量单位 ＝ 删*尾空 (编辑框19.内容)
产地 ＝ 删*尾空 (编辑框18.内容)
品牌 ＝ 删*尾空 (编辑框17.内容)
规格型号 ＝ 删*尾空 (编辑框22.内容)
编号 ＝ 删*尾空 (编辑框21.内容)
发货地 ＝ 删*尾空 (编辑框20.内容)
行业分类 ＝ 文本_取右边 (组合框3.取项目文本 (组合框3.现行选中项), “|”)
行业分类1 ＝ 文本_取右边 (组合框26.取项目文本 (组合框26.现行选中项), “|”)
资料 ＝ 文本_取右边 (组合框7.取项目文本 (组合框7.现行选中项), “|”)
' 物流设置
wl_fromp ＝ 文本_取右边 (组合框8.取项目文本 (组合框8.现行选中项), “|”)
wl_fromc ＝ 文本_取右边 (组合框9.取项目文本 (组合框9.现行选中项), “|”)
wl_top ＝ 文本_取右边 (组合框11.取项目文本 (组合框11.现行选中项), “|”)
wl_toc ＝ 文本_取右边 (组合框10.取项目文本 (组合框10.现行选中项), “|”)
wl_shangmen ＝ 文本_取右边 (组合框16.取项目文本 (组合框16.现行选中项), “|”)
wl_cllx ＝ 文本_取右边 (组合框12.取项目文本 (组合框12.现行选中项), “|”)
wl_hwlx ＝ 文本_取右边 (组合框13.取项目文本 (组合框13.现行选中项), “|”)
wl_wjlx ＝ 文本_取右边 (组合框14.取项目文本 (组合框14.现行选中项), “|”)
wl_xllx ＝ 文本_取右边 (组合框15.取项目文本 (组合框15.现行选中项), “|”)
wl_tujing ＝ 删*尾空 (编辑框42.内容)
wl_zaizhong ＝ 删*尾空 (编辑框40.内容)
wl_chechang ＝ 删*尾空 (编辑框41.内容)
' 新闻设置参数
新闻分类 ＝ 文本_取右边 (组合框4.取项目文本 (组合框4.现行选中项), “|”)
新闻频道 ＝ 文本_取右边 (组合框5.取项目文本 (组合框5.现行选中项), “|”)
新闻标签 ＝ 文本_取右边 (组合框6.取项目文本 (组合框6.现行选中项), “|”)
新闻来源 ＝ 删*尾空 (编辑框28.内容)
新闻添加人 ＝ 删*尾空 (编辑框29.内容)
' 产品设置
idone ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, )
idtwo ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, )
idthree ＝ 文本_取右边 (组合框25.取项目文本 (组合框25.现行选中项), “|”, )
数量 ＝ 删*尾空 (编辑框13.内容)
' ------------------------------------------------------------------------------------初始化数据结束------------------------------------------------
状态条1.置文本 (2, “开始替换文本内容....”)
.如果真 (cat2 ＝ “”)
cat2 ＝ “0”
.如果真结束
.判断循环* (n ＜ 超级列表框1.取表项数 ())
' 设置内容
ArrToRadomNewArr (contentsArr, , 1, ClassMsg.contentOneArr, )
.如果 (ClassMsg.contentOneArr [1] ≠ “”)
ClassMsg.content ＝ ClassMsg.contentOneArr [1]
调试输出 (“获取待发文本内容完成”)
.否则
信息框 (“待发文本内容问空，请检查”, 0, , )
.如果结束
' ------------------------html转普通文本---------------------------
' ClassMsg.content ＝ html2text_
js (ClassMsg.content)
msg ＝ ClassMsg
' msg.param ＝ GetParam ()
状态条1.置文本 (2, 到文本 (n ＋ 1) ＋ “/” ＋ 到文本 (超级列表框1.取表项数 ()))
msg.title ＝ 超级列表框1.取标题 (n, 1)
nline ＝ nline ＋ 1
.如果真 (nline ＞ 取数组成员数 (AllcontentArr))
nline ＝ 1
.如果真结束
.如果真 (nline ＜ 1)
nline ＝ 1
.如果真结束
' 云段落替换开始------------------
.如果 (取反 (选择框_启用云段落.选中) 且 获取树形框选中项文本 () ＝ “”)
树形框选中项文本 ＝ 获取树形框选中项文本 ()
.如果真 (树形框选中项文本 ≠ “”)
.如果 (全局_云段落 ＝ “”)
全局_云段落 ＝ getSententsWithKeyWor (“https://s.hc360.com/?w=” ＋ 树形框选中项文本 ＋ “&mc=news”)
.否则
.如果结束
.如果真结束
.否则
.如果结束
.如果 (全局_云段落 ≠ “”)
云段落数组 ＝ 分割文本 (全局_云段落, “
”, )
.如果 (取数组成员数 (云段落数组) ＞ 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, “”, #错误图标, , )
返回 ()
.如果真结束
key数组 ＝ 分割文本 (编辑框_key.内容, #换行符, ) ' 2,设置关键词
' 机电之家无关键词
.如果真 (取数组成员数 (key数组) ＜ 3)
信息框 (“请*少写入3个关键词”, 编辑框_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, “17”, 到文本 (取日 (到时间 (取现行时间 ()))))
msg.content ＝ 替换随机内容 (msg.content, “ 花千束是国内知名的鲜花电商品牌，在分布有1万多家鲜花门店，目前是美团闪购的头部商户。在其CEO赵宇光看来，相比于传统电商，基于LBS的闪购平台其实更适合鲜花行业发展：线下花店和用户的连接路径更短，消费者下单更便捷、配送过程中可以实时跟踪订单状态，几乎不再需要客服处理，大幅降低了品牌的运营成本。另一方面，美团闪购基于交易数据的积累，在用户偏爱的鲜花种类、价格区间、下单时间等消费习惯方面也会给予指导，帮助品牌合理备货、精准营销。”, 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
LinkArr)
.判断循环* (寻找文本 (msg.content, “巴达木哪里有”, , 假) ≠ -1)
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
msg.content ＝ 子文本替换 (msg.content, “扁桃仁品种”, 超级列表框1.取标题 (取随机数 (0, 超级列表框1.取表项数 () － 1), 1), 1, 1, 真)
.判断循环尾 ()
.判断循环* (寻找文本 (msg.content, “
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) '
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
图片位置 ＝ 取随机数 (1, 取数组成员数 (tempImageArr))
内容图片 ＝ 子文本替换 (tempImageArr [图片位置], “.thumb.jpg”, “”, , , 真)
调试输出 (内容图片)
' 内容图片 ＝ 文本_取左边 (内容图片, “---”) ' 这是企汇网特有的图片转换方式
msg.content ＝ 子文本替换 (msg.content, “
”, “
”, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “
”, #引号 ＋ 内容图片 ＋ #引号, 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}”, , , 真))
执行
JS (“setHtml('')”)
延时 (200)
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 html文本转text文本, 文本型
.参数 html文本, 文本型
html文本 ＝ 子文本替换 (html文本, #换行符, “\” ＋ #换行符, , , 真)
执行
JS (“setHtml(' ” ＋ html文本 ＋ “ ')”)
执行
JS (“GetText()”)
返回 (取返回值 ())
.子程序 获取template文本, 文本型
' 执行
JS (“GetText()”) ' Gethtml
执行
JS (“Gethtml()”) ' Gethtml
返回 (取返回值 ())
' 文本 ＝ 取返回值 ()
.子程序 _选择列表框1_列表项被选择
.局部变量 templateName, 文本型
.局部变量 文本, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文本 ＝ 通过项目文本获取待发content (templateName)
编辑框_templateName.内容 ＝ templateName
文本 ＝ 子文本替换 (文本, #换行符, “\” ＋ #换行符, , , 真) ' 设置编辑器内容
执行
JS (“setHtml(' ” ＋ 文本 ＋ “ ')”)
.子程序 通过项目文本获取待发content, 文本型
.参数 templateName, 文本型
.局部变量 文件号, 整数型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 文本, 文本型
.局部变量 行分割, 文本型, , "0"
' 读出配置文件内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ＝ templateName) ' 找到这行文本再替换掉前面字符
文本 ＝ 分行内容 [循环次数]
文本 ＝ 文本替换 (文本, 1, 取文本长度 (templateName) ＋ 1, “”)
.如果真结束
.计次循环尾 ()
' 调试输出 (文本)
文本 ＝ 子文本替换 (文本, “{huanhang}”, #换行符, , , 真)
返回 (文本)
.子程序 _按钮_clearTemplateContent_被单击
.局部变量 文本, 文本型
' 执行
JS (“clearHtml()”)
执行
JS (“setHtml('')”)
.子程序 读取模版配置1
.局部变量 文本, 文本型
.局部变量 文件号, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 M, 整数型
.局部变量 数据分割, 文本型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 行分割, 文本型, , "0"
.局部变量 templateName, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ≠ “[templateList]” 且 行分割 [1] ≠ “” 且 行分割 [2] ≠ “”)
选择列表框1.加入项目 (行分割 [1], )
.如果真结束
.计次循环尾 ()
调试输出 (文本)
.子程序 _按钮_insertVar2_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_insertVar3_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_clouldParagraph_被单击
.如果 (取反 (选择框_启用云段落.选中) 或 获取树形框选中项文本 () ＝ “”)
信息框 (“请先勾选启用云段落并选择云段落类别”, 0, , )
高级选择夹1.现行子夹 ＝ 2
.否则
执行
JS (“insertText('【云段落】')”)
.如果结束
.子程序 _段落1_被选择
执行
JS (“insertText('【段落1】')”)
.子程序 _段落2_被选择
执行
JS (“insertText('”, “,”, , , 真)
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
LinkArr ＝ 分割文本 (编辑框_random
Link.内容, #换行符, )
.如果真 (取数组成员数 (random
LinkArr) ＜ 1)
加入成员 (random
LinkArr, “”)
.如果真结束
调试输出 (“句子设置”)
' body ＝ 编辑框_ContentsMain.内容 ' 4，内容设置___这里很重要不同获取内容方式
' 执行
JS (“GetText()”)
' ' 信息框 (取返回值 (), 0, , )
' body ＝ 取返回值 ()
' AllcontentArr ＝ 分割文本 (编辑框_ContentsMain.内容, “【==内容分割==】”, )
' AllcontentArr ＝ 分割文本 (body, “【==内容分割==】”, )
.' 如果真 (取数组成员数 (AllcontentArr) ＜ 1)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
.' 如果真 (body ＝ “”)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
' 设置内容数组
.如果 (getContentsArr ())
调试输出 (取数组成员数 (contentsArr))
.否则
信息框 (“请先选中设置模版”, 0, , )
返回 ()
.如果结束
' 延时 (111111111)
调试输出 (“内容设置”)
' 5，判断是否为试用会员
' 返回文本 ＝ 到文本 (网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/3.asp?user=” ＋ 窗口1.用户帐号1.内容 ＋ “&pass=” ＋ 窗口1.登陆密码1.内容))
' 返回文本 ＝ 文本_取右边 (返回文本, “剩余使用次数为：”, , )
' 次数 ＝ 到整数 (返回文本)
' ' 次数 ＝ 40
.' 如果真 (次数 ≤ 30) ' 点击发布后，次数小于等于30时，限制发布50条
' 信息框 (“您的账户类型为试用账户，每次只能发布30条信息！”, 0, )
' limit ＝ 30
.如果真结束
.' 如果真 (次数 ＝ 0) ' 点击发布后，次数为0，直接退出软件
' MainForm.销毁 ()
.如果真结束
' 6，判断账号是否和软件账号一致
str ＝ 删*尾空 (编辑框_username.内容)
.如果真 (寻找文本 (str, “@”, , 假) ≠ -1)
str ＝ 文本_取左边 (str, “@”)
.如果真结束
' 网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/2ef955d371f3ab0cbb54cfbc6abef844.asp?uid=” ＋ str ＋ “&user=” ＋ 窗口1.用户帐号1.内容 ＋ “&point=” ＋ 到文本 (取硬盘特征字 ()))
.' 计次循环* (取数组成员数 (tempImageArr), i)
' bin ＝ 读入文件 (temparr [i])
' ' 调试输出 (bin)
.' 如果真 (bin ≠ { })
' 加入成员 (imageArr, bin)
.如果真结束
.' 计次循环尾 ()
状态条1.置文本 (2, “初始化数据中···”)
编辑框_log.加入文本 (“初始化数据中···” ＋ #换行符)
调试输出 (“初始化设置”)
' ------------------------------------------------------------------------------------初始化数据开始------------------------------------------------
' 供应参数设置
分类1 ＝ 文本_取右边 (组合框1.取项目文本 (组合框1.现行选中项), “|”)
分类2 ＝ 文本_取右边 (组合框2.取项目文本 (组合框2.现行选中项), “|”)
参考价格 ＝ 删*尾空 (编辑框14.内容)
计量单位 ＝ 删*尾空 (编辑框19.内容)
产地 ＝ 删*尾空 (编辑框18.内容)
品牌 ＝ 删*尾空 (编辑框17.内容)
规格型号 ＝ 删*尾空 (编辑框22.内容)
编号 ＝ 删*尾空 (编辑框21.内容)
发货地 ＝ 删*尾空 (编辑框20.内容)
行业分类 ＝ 文本_取右边 (组合框3.取项目文本 (组合框3.现行选中项), “|”)
行业分类1 ＝ 文本_取右边 (组合框26.取项目文本 (组合框26.现行选中项), “|”)
资料 ＝ 文本_取右边 (组合框7.取项目文本 (组合框7.现行选中项), “|”)
' 物流设置
wl_fromp ＝ 文本_取右边 (组合框8.取项目文本 (组合框8.现行选中项), “|”)
wl_fromc ＝ 文本_取右边 (组合框9.取项目文本 (组合框9.现行选中项), “|”)
wl_top ＝ 文本_取右边 (组合框11.取项目文本 (组合框11.现行选中项), “|”)
wl_toc ＝ 文本_取右边 (组合框10.取项目文本 (组合框10.现行选中项), “|”)
wl_shangmen ＝ 文本_取右边 (组合框16.取项目文本 (组合框16.现行选中项), “|”)
wl_cllx ＝ 文本_取右边 (组合框12.取项目文本 (组合框12.现行选中项), “|”)
wl_hwlx ＝ 文本_取右边 (组合框13.取项目文本 (组合框13.现行选中项), “|”)
wl_wjlx ＝ 文本_取右边 (组合框14.取项目文本 (组合框14.现行选中项), “|”)
wl_xllx ＝ 文本_取右边 (组合框15.取项目文本 (组合框15.现行选中项), “|”)
wl_tujing ＝ 删*尾空 (编辑框42.内容)
wl_zaizhong ＝ 删*尾空 (编辑框40.内容)
wl_chechang ＝ 删*尾空 (编辑框41.内容)
' 新闻设置参数
新闻分类 ＝ 文本_取右边 (组合框4.取项目文本 (组合框4.现行选中项), “|”)
新闻频道 ＝ 文本_取右边 (组合框5.取项目文本 (组合框5.现行选中项), “|”)
新闻标签 ＝ 文本_取右边 (组合框6.取项目文本 (组合框6.现行选中项), “|”)
新闻来源 ＝ 删*尾空 (编辑框28.内容)
新闻添加人 ＝ 删*尾空 (编辑框29.内容)
' 产品设置
idone ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, )
idtwo ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, )
idthree ＝ 文本_取右边 (组合框25.取项目文本 (组合框25.现行选中项), “|”, )
数量 ＝ 删*尾空 (编辑框13.内容)
' ------------------------------------------------------------------------------------初始化数据结束------------------------------------------------
状态条1.置文本 (2, “开始替换文本内容....”)
.如果真 (cat2 ＝ “”)
cat2 ＝ “0”
.如果真结束
.判断循环* (n ＜ 超级列表框1.取表项数 ())
' 设置内容
ArrToRadomNewArr (contentsArr, , 1, ClassMsg.contentOneArr, )
.如果 (ClassMsg.contentOneArr [1] ≠ “”)
ClassMsg.content ＝ ClassMsg.contentOneArr [1]
调试输出 (“获取待发文本内容完成”)
.否则
信息框 (“待发文本内容问空，请检查”, 0, , )
.如果结束
' ------------------------html转普通文本---------------------------
' ClassMsg.content ＝ html2text_
js (ClassMsg.content)
msg ＝ ClassMsg
' msg.param ＝ GetParam ()
状态条1.置文本 (2, 到文本 (n ＋ 1) ＋ “/” ＋ 到文本 (超级列表框1.取表项数 ()))
msg.title ＝ 超级列表框1.取标题 (n, 1)
nline ＝ nline ＋ 1
.如果真 (nline ＞ 取数组成员数 (AllcontentArr))
nline ＝ 1
.如果真结束
.如果真 (nline ＜ 1)
nline ＝ 1
.如果真结束
' 云段落替换开始------------------
.如果 (取反 (选择框_启用云段落.选中) 且 获取树形框选中项文本 () ＝ “”)
树形框选中项文本 ＝ 获取树形框选中项文本 ()
.如果真 (树形框选中项文本 ≠ “”)
.如果 (全局_云段落 ＝ “”)
全局_云段落 ＝ getSententsWithKeyWor (“https://s.hc360.com/?w=” ＋ 树形框选中项文本 ＋ “&mc=news”)
.否则
.如果结束
.如果真结束
.否则
.如果结束
.如果 (全局_云段落 ≠ “”)
云段落数组 ＝ 分割文本 (全局_云段落, “
”, )
.如果 (取数组成员数 (云段落数组) ＞ 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
LinkArr ＝ 分割文本 (编辑框_random
Link.内容, #换行符, )
.如果真 (取数组成员数 (random
LinkArr) ＜ 1)
加入成员 (random
LinkArr, “”)
.如果真结束
调试输出 (“句子设置”)
' body ＝ 编辑框_ContentsMain.内容 ' 4，内容设置___这里很重要不同获取内容方式
' 执行
JS (“GetText()”)
' ' 信息框 (取返回值 (), 0, , )
' body ＝ 取返回值 ()
' AllcontentArr ＝ 分割文本 (编辑框_ContentsMain.内容, “【==内容分割==】”, )
' AllcontentArr ＝ 分割文本 (body, “【==内容分割==】”, )
.' 如果真 (取数组成员数 (AllcontentArr) ＜ 1)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
.' 如果真 (body ＝ “”)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
' 设置内容数组
.如果 (getContentsArr ())
调试输出 (取数组成员数 (contentsArr))
.否则
信息框 (“请先选中设置模版”, 0, , )
返回 ()
.如果结束
' 延时 (111111111)
调试输出 (“内容设置”)
' 5，判断是否为试用会员
' 返回文本 ＝ 到文本 (网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/3.asp?user=” ＋ 窗口1.用户帐号1.内容 ＋ “&pass=” ＋ 窗口1.登陆密码1.内容))
' 返回文本 ＝ 文本_取右边 (返回文本, “剩余使用次数为：”, , )
' 次数 ＝ 到整数 (返回文本)
' ' 次数 ＝ 40
.' 如果真 (次数 ≤ 30) ' 点击发布后，次数小于等于30时，限制发布50条
' 信息框 (“您的账户类型为试用账户，每次只能发布30条信息！”, 0, )
' limit ＝ 30
.如果真结束
.' 如果真 (次数 ＝ 0) ' 点击发布后，次数为0，直接退出软件
' MainForm.销毁 ()
.如果真结束
' 6，判断账号是否和软件账号一致
str ＝ 删*尾空 (编辑框_username.内容)
.如果真 (寻找文本 (str, “@”, , 假) ≠ -1)
str ＝ 文本_取左边 (str, “@”)
.如果真结束
' 网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/2ef955d371f3ab0cbb54cfbc6abef844.asp?uid=” ＋ str ＋ “&user=” ＋ 窗口1.用户帐号1.内容 ＋ “&point=” ＋ 到文本 (取硬盘特征字 ()))
.' 计次循环* (取数组成员数 (tempImageArr), i)
' bin ＝ 读入文件 (temparr [i])
' ' 调试输出 (bin)
.' 如果真 (bin ≠ { })
' 加入成员 (imageArr, bin)
.如果真结束
.' 计次循环尾 ()
状态条1.置文本 (2, “初始化数据中···”)
编辑框_log.加入文本 (“初始化数据中···” ＋ #换行符)
调试输出 (“初始化设置”)
' ------------------------------------------------------------------------------------初始化数据开始------------------------------------------------
' 供应参数设置
分类1 ＝ 文本_取右边 (组合框1.取项目文本 (组合框1.现行选中项), “|”)
分类2 ＝ 文本_取右边 (组合框2.取项目文本 (组合框2.现行选中项), “|”)
参考价格 ＝ 删*尾空 (编辑框14.内容)
计量单位 ＝ 删*尾空 (编辑框19.内容)
产地 ＝ 删*尾空 (编辑框18.内容)
品牌 ＝ 删*尾空 (编辑框17.内容)
规格型号 ＝ 删*尾空 (编辑框22.内容)
编号 ＝ 删*尾空 (编辑框21.内容)
发货地 ＝ 删*尾空 (编辑框20.内容)
行业分类 ＝ 文本_取右边 (组合框3.取项目文本 (组合框3.现行选中项), “|”)
行业分类1 ＝ 文本_取右边 (组合框26.取项目文本 (组合框26.现行选中项), “|”)
资料 ＝ 文本_取右边 (组合框7.取项目文本 (组合框7.现行选中项), “|”)
' 物流设置
wl_fromp ＝ 文本_取右边 (组合框8.取项目文本 (组合框8.现行选中项), “|”)
wl_fromc ＝ 文本_取右边 (组合框9.取项目文本 (组合框9.现行选中项), “|”)
wl_top ＝ 文本_取右边 (组合框11.取项目文本 (组合框11.现行选中项), “|”)
wl_toc ＝ 文本_取右边 (组合框10.取项目文本 (组合框10.现行选中项), “|”)
wl_shangmen ＝ 文本_取右边 (组合框16.取项目文本 (组合框16.现行选中项), “|”)
wl_cllx ＝ 文本_取右边 (组合框12.取项目文本 (组合框12.现行选中项), “|”)
wl_hwlx ＝ 文本_取右边 (组合框13.取项目文本 (组合框13.现行选中项), “|”)
wl_wjlx ＝ 文本_取右边 (组合框14.取项目文本 (组合框14.现行选中项), “|”)
wl_xllx ＝ 文本_取右边 (组合框15.取项目文本 (组合框15.现行选中项), “|”)
wl_tujing ＝ 删*尾空 (编辑框42.内容)
wl_zaizhong ＝ 删*尾空 (编辑框40.内容)
wl_chechang ＝ 删*尾空 (编辑框41.内容)
' 新闻设置参数
新闻分类 ＝ 文本_取右边 (组合框4.取项目文本 (组合框4.现行选中项), “|”)
新闻频道 ＝ 文本_取右边 (组合框5.取项目文本 (组合框5.现行选中项), “|”)
新闻标签 ＝ 文本_取右边 (组合框6.取项目文本 (组合框6.现行选中项), “|”)
新闻来源 ＝ 删*尾空 (编辑框28.内容)
新闻添加人 ＝ 删*尾空 (编辑框29.内容)
' 产品设置
idone ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, )
idtwo ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, )
idthree ＝ 文本_取右边 (组合框25.取项目文本 (组合框25.现行选中项), “|”, )
数量 ＝ 删*尾空 (编辑框13.内容)
' ------------------------------------------------------------------------------------初始化数据结束------------------------------------------------
状态条1.置文本 (2, “开始替换文本内容....”)
.如果真 (cat2 ＝ “”)
cat2 ＝ “0”
.如果真结束
.判断循环* (n ＜ 超级列表框1.取表项数 ())
' 设置内容
ArrToRadomNewArr (contentsArr, , 1, ClassMsg.contentOneArr, )
.如果 (ClassMsg.contentOneArr [1] ≠ “”)
ClassMsg.content ＝ ClassMsg.contentOneArr [1]
调试输出 (“获取待发文本内容完成”)
.否则
信息框 (“待发文本内容问空，请检查”, 0, , )
.如果结束
' ------------------------html转普通文本---------------------------
' ClassMsg.content ＝ html2text_
js (ClassMsg.content)
msg ＝ ClassMsg
' msg.param ＝ GetParam ()
状态条1.置文本 (2, 到文本 (n ＋ 1) ＋ “/” ＋ 到文本 (超级列表框1.取表项数 ()))
msg.title ＝ 超级列表框1.取标题 (n, 1)
nline ＝ nline ＋ 1
.如果真 (nline ＞ 取数组成员数 (AllcontentArr))
nline ＝ 1
.如果真结束
.如果真 (nline ＜ 1)
nline ＝ 1
.如果真结束
' 云段落替换开始------------------
.如果 (取反 (选择框_启用云段落.选中) 且 获取树形框选中项文本 () ＝ “”)
树形框选中项文本 ＝ 获取树形框选中项文本 ()
.如果真 (树形框选中项文本 ≠ “”)
.如果 (全局_云段落 ＝ “”)
全局_云段落 ＝ getSententsWithKeyWor (“https://s.hc360.com/?w=” ＋ 树形框选中项文本 ＋ “&mc=news”)
.否则
.如果结束
.如果真结束
.否则
.如果结束
.如果 (全局_云段落 ≠ “”)
云段落数组 ＝ 分割文本 (全局_云段落, “
”, )
.如果 (取数组成员数 (云段落数组) ＞ 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, “”, #错误图标, , )
返回 ()
.如果真结束
调试输出 (“设置图片”)
delaytime1 ＝ 到整数 (编辑框_intervalStart.内容)
delaytime2 ＝ 到整数 (编辑框_intervalEnd.内容)
' 句子设置
str ＝ 编辑框_sentenceSet.内容 ' 3,句子设置
.判断开始 (单选框_accordingPeriodCommas.选中)
str ＝ 子文本替换 (str, “，”, “,”, , , 真)
str ＝ 子文本替换 (str, “”, 段落2数组)
.否则
msg.content ＝ 替换固定内容 (msg.content, “”, #错误图标, , )
返回 ()
.如果真结束
key数组 ＝ 分割文本 (编辑框_key.内容, #换行符, ) ' 2,设置关键词
' 机电之家无关键词
.如果真 (取数组成员数 (key数组) ＜ 3)
信息框 (“请*少写入3个关键词”, 编辑框_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, “17”, 到文本 (取日 (到时间 (取现行时间 ()))))
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
LinkArr)
.判断循环* (寻找文本 (msg.content, “桃仁树价格”, , 假) ≠ -1)
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
msg.content ＝ 子文本替换 (msg.content, “薄皮桃仁基地”, 超级列表框1.取标题 (取随机数 (0, 超级列表框1.取表项数 () － 1), 1), 1, 1, 真)
.判断循环尾 ()
.判断循环* (寻找文本 (msg.content, “
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) '
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
图片位置 ＝ 取随机数 (1, 取数组成员数 (tempImageArr))
内容图片 ＝ 子文本替换 (tempImageArr [图片位置], “.thumb.jpg”, “”, , , 真)
调试输出 (内容图片)
' 内容图片 ＝ 文本_取左边 (内容图片, “---”) ' 这是企汇网特有的图片转换方式
msg.content ＝ 子文本替换 (msg.content, “
”, “
”, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “
”, #引号 ＋ 内容图片 ＋ #引号, 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}”, , , 真))
执行
JS (“setHtml('')”)
延时 (200)
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 html文本转text文本, 文本型
.参数 html文本, 文本型
html文本 ＝ 子文本替换 (html文本, #换行符, “\” ＋ #换行符, , , 真)
执行
JS (“setHtml(' ” ＋ html文本 ＋ “ ')”)
执行
JS (“GetText()”)
返回 (取返回值 ())
.子程序 获取template文本, 文本型
' 执行
JS (“GetText()”) ' Gethtml
执行
JS (“Gethtml()”) ' Gethtml
返回 (取返回值 ())
' 文本 ＝ 取返回值 ()
.子程序 _选择列表框1_列表项被选择
.局部变量 templateName, 文本型
.局部变量 文本, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文本 ＝ 通过项目文本获取待发content (templateName)
编辑框_templateName.内容 ＝ templateName
文本 ＝ 子文本替换 (文本, #换行符, “\” ＋ #换行符, , , 真) ' 设置编辑器内容
执行
JS (“setHtml(' ” ＋ 文本 ＋ “ ')”)
.子程序 通过项目文本获取待发content, 文本型
.参数 templateName, 文本型
.局部变量 文件号, 整数型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 文本, 文本型
.局部变量 行分割, 文本型, , "0"
' 读出配置文件内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ＝ templateName) ' 找到这行文本再替换掉前面字符
文本 ＝ 分行内容 [循环次数]
文本 ＝ 文本替换 (文本, 1, 取文本长度 (templateName) ＋ 1, “”)
.如果真结束
.计次循环尾 ()
' 调试输出 (文本)
文本 ＝ 子文本替换 (文本, “{huanhang}”, #换行符, , , 真)
返回 (文本)
.子程序 _按钮_clearTemplateContent_被单击
.局部变量 文本, 文本型
' 执行
JS (“clearHtml()”)
执行
JS (“setHtml('')”)
.子程序 读取模版配置1
.局部变量 文本, 文本型
.局部变量 文件号, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 M, 整数型
.局部变量 数据分割, 文本型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 行分割, 文本型, , "0"
.局部变量 templateName, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ≠ “[templateList]” 且 行分割 [1] ≠ “” 且 行分割 [2] ≠ “”)
选择列表框1.加入项目 (行分割 [1], )
.如果真结束
.计次循环尾 ()
调试输出 (文本)
.子程序 _按钮_insertVar2_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_insertVar3_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_clouldParagraph_被单击
.如果 (取反 (选择框_启用云段落.选中) 或 获取树形框选中项文本 () ＝ “”)
信息框 (“请先勾选启用云段落并选择云段落类别”, 0, , )
高级选择夹1.现行子夹 ＝ 2
.否则
执行
JS (“insertText('【云段落】')”)
.如果结束
.子程序 _段落1_被选择
执行
JS (“insertText('【段落1】')”)
.子程序 _段落2_被选择
执行
JS (“insertText('”, “,”, , , 真)
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
LinkArr ＝ 分割文本 (编辑框_random
Link.内容, #换行符, )
.如果真 (取数组成员数 (random
LinkArr) ＜ 1)
加入成员 (random
LinkArr, “”)
.如果真结束
调试输出 (“句子设置”)
' body ＝ 编辑框_ContentsMain.内容 ' 4，内容设置___这里很重要不同获取内容方式
' 执行
JS (“GetText()”)
' ' 信息框 (取返回值 (), 0, , )
' body ＝ 取返回值 ()
' AllcontentArr ＝ 分割文本 (编辑框_ContentsMain.内容, “【==内容分割==】”, )
' AllcontentArr ＝ 分割文本 (body, “【==内容分割==】”, )
.' 如果真 (取数组成员数 (AllcontentArr) ＜ 1)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
.' 如果真 (body ＝ “”)
' 信息框 (“未设置发布内容,已停止”, 0, )
' 返回 ()
.如果真结束
' 设置内容数组
.如果 (getContentsArr ())
调试输出 (取数组成员数 (contentsArr))
.否则
信息框 (“请先选中设置模版”, 0, , )
返回 ()
.如果结束
' 延时 (111111111)
调试输出 (“内容设置”)
' 5，判断是否为试用会员
' 返回文本 ＝ 到文本 (网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/3.asp?user=” ＋ 窗口1.用户帐号1.内容 ＋ “&pass=” ＋ 窗口1.登陆密码1.内容))
' 返回文本 ＝ 文本_取右边 (返回文本, “剩余使用次数为：”, , )
' 次数 ＝ 到整数 (返回文本)
' ' 次数 ＝ 40
.' 如果真 (次数 ≤ 30) ' 点击发布后，次数小于等于30时，限制发布50条
' 信息框 (“您的账户类型为试用账户，每次只能发布30条信息！”, 0, )
' limit ＝ 30
.如果真结束
.' 如果真 (次数 ＝ 0) ' 点击发布后，次数为0，直接退出软件
' MainForm.销毁 ()
.如果真结束
' 6，判断账号是否和软件账号一致
str ＝ 删*尾空 (编辑框_username.内容)
.如果真 (寻找文本 (str, “@”, , 假) ≠ -1)
str ＝ 文本_取左边 (str, “@”)
.如果真结束
' 网页_访问_对象 (“https://vip.fbkc.net/” ＋ 网站域名 ＋ “/2ef955d371f3ab0cbb54cfbc6abef844.asp?uid=” ＋ str ＋ “&user=” ＋ 窗口1.用户帐号1.内容 ＋ “&point=” ＋ 到文本 (取硬盘特征字 ()))
.' 计次循环* (取数组成员数 (tempImageArr), i)
' bin ＝ 读入文件 (temparr [i])
' ' 调试输出 (bin)
.' 如果真 (bin ≠ { })
' 加入成员 (imageArr, bin)
.如果真结束
.' 计次循环尾 ()
状态条1.置文本 (2, “初始化数据中···”)
编辑框_log.加入文本 (“初始化数据中···” ＋ #换行符)
调试输出 (“初始化设置”)
' ------------------------------------------------------------------------------------初始化数据开始------------------------------------------------
' 供应参数设置
分类1 ＝ 文本_取右边 (组合框1.取项目文本 (组合框1.现行选中项), “|”)
分类2 ＝ 文本_取右边 (组合框2.取项目文本 (组合框2.现行选中项), “|”)
参考价格 ＝ 删*尾空 (编辑框14.内容)
计量单位 ＝ 删*尾空 (编辑框19.内容)
产地 ＝ 删*尾空 (编辑框18.内容)
品牌 ＝ 删*尾空 (编辑框17.内容)
规格型号 ＝ 删*尾空 (编辑框22.内容)
编号 ＝ 删*尾空 (编辑框21.内容)
发货地 ＝ 删*尾空 (编辑框20.内容)
行业分类 ＝ 文本_取右边 (组合框3.取项目文本 (组合框3.现行选中项), “|”)
行业分类1 ＝ 文本_取右边 (组合框26.取项目文本 (组合框26.现行选中项), “|”)
资料 ＝ 文本_取右边 (组合框7.取项目文本 (组合框7.现行选中项), “|”)
' 物流设置
wl_fromp ＝ 文本_取右边 (组合框8.取项目文本 (组合框8.现行选中项), “|”)
wl_fromc ＝ 文本_取右边 (组合框9.取项目文本 (组合框9.现行选中项), “|”)
wl_top ＝ 文本_取右边 (组合框11.取项目文本 (组合框11.现行选中项), “|”)
wl_toc ＝ 文本_取右边 (组合框10.取项目文本 (组合框10.现行选中项), “|”)
wl_shangmen ＝ 文本_取右边 (组合框16.取项目文本 (组合框16.现行选中项), “|”)
wl_cllx ＝ 文本_取右边 (组合框12.取项目文本 (组合框12.现行选中项), “|”)
wl_hwlx ＝ 文本_取右边 (组合框13.取项目文本 (组合框13.现行选中项), “|”)
wl_wjlx ＝ 文本_取右边 (组合框14.取项目文本 (组合框14.现行选中项), “|”)
wl_xllx ＝ 文本_取右边 (组合框15.取项目文本 (组合框15.现行选中项), “|”)
wl_tujing ＝ 删*尾空 (编辑框42.内容)
wl_zaizhong ＝ 删*尾空 (编辑框40.内容)
wl_chechang ＝ 删*尾空 (编辑框41.内容)
' 新闻设置参数
新闻分类 ＝ 文本_取右边 (组合框4.取项目文本 (组合框4.现行选中项), “|”)
新闻频道 ＝ 文本_取右边 (组合框5.取项目文本 (组合框5.现行选中项), “|”)
新闻标签 ＝ 文本_取右边 (组合框6.取项目文本 (组合框6.现行选中项), “|”)
新闻来源 ＝ 删*尾空 (编辑框28.内容)
新闻添加人 ＝ 删*尾空 (编辑框29.内容)
' 产品设置
idone ＝ 文本_取右边 (组合框23.取项目文本 (组合框23.现行选中项), “|”, )
idtwo ＝ 文本_取右边 (组合框24.取项目文本 (组合框24.现行选中项), “|”, )
idthree ＝ 文本_取右边 (组合框25.取项目文本 (组合框25.现行选中项), “|”, )
数量 ＝ 删*尾空 (编辑框13.内容)
' ------------------------------------------------------------------------------------初始化数据结束------------------------------------------------
状态条1.置文本 (2, “开始替换文本内容....”)
.如果真 (cat2 ＝ “”)
cat2 ＝ “0”
.如果真结束
.判断循环* (n ＜ 超级列表框1.取表项数 ())
' 设置内容
ArrToRadomNewArr (contentsArr, , 1, ClassMsg.contentOneArr, )
.如果 (ClassMsg.contentOneArr [1] ≠ “”)
ClassMsg.content ＝ ClassMsg.contentOneArr [1]
调试输出 (“获取待发文本内容完成”)
.否则
信息框 (“待发文本内容问空，请检查”, 0, , )
.如果结束
' ------------------------html转普通文本---------------------------
' ClassMsg.content ＝ html2text_
js (ClassMsg.content)
msg ＝ ClassMsg
' msg.param ＝ GetParam ()
状态条1.置文本 (2, 到文本 (n ＋ 1) ＋ “/” ＋ 到文本 (超级列表框1.取表项数 ()))
msg.title ＝ 超级列表框1.取标题 (n, 1)
nline ＝ nline ＋ 1
.如果真 (nline ＞ 取数组成员数 (AllcontentArr))
nline ＝ 1
.如果真结束
.如果真 (nline ＜ 1)
nline ＝ 1
.如果真结束
' 云段落替换开始------------------
.如果 (取反 (选择框_启用云段落.选中) 且 获取树形框选中项文本 () ＝ “”)
树形框选中项文本 ＝ 获取树形框选中项文本 ()
.如果真 (树形框选中项文本 ≠ “”)
.如果 (全局_云段落 ＝ “”)
全局_云段落 ＝ getSententsWithKeyWor (“https://s.hc360.com/?w=” ＋ 树形框选中项文本 ＋ “&mc=news”)
.否则
.如果结束
.如果真结束
.否则
.如果结束
.如果 (全局_云段落 ≠ “”)
云段落数组 ＝ 分割文本 (全局_云段落, “
”, )
.如果 (取数组成员数 (云段落数组) ＞ 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, “”, #错误图标, , )
返回 ()
.如果真结束
key数组 ＝ 分割文本 (编辑框_key.内容, #换行符, ) ' 2,设置关键词
' 机电之家无关键词
.如果真 (取数组成员数 (key数组) ＜ 3)
信息框 (“请*少写入3个关键词”, 编辑框_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, “17”, 到文本 (取日 (到时间 (取现行时间 ()))))
msg.content ＝ 替换随机内容 (msg.content, “七夕，又到了牛郎织女鹊桥相会、才子佳人互赠礼物表达爱意的时间，国内情侣礼品行业也迎来销售黄金期。一直以来，鲜花和巧克力都是长盛不衰的礼品主力，然而这一状况正在发生改变，近几年而巧克力销量开始走入下降通道。相比之下，鲜花销量持续走高，依然是永恒的经典礼物。据美团闪购统计，仅年上半年鲜花销量环比增幅就达到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
LinkArr)
.判断循环* (寻找文本 (msg.content, “扁桃仁品种”, , 假) ≠ -1)
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
msg.content ＝ 子文本替换 (msg.content, “薄皮桃仁基地”, 超级列表框1.取标题 (取随机数 (0, 超级列表框1.取表项数 () － 1), 1), 1, 1, 真)
.判断循环尾 ()
.判断循环* (寻找文本 (msg.content, “
”, , 假) ≠ -1 且 取数组成员数 (tempImageArr) ＞ 0) '
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
图片位置 ＝ 取随机数 (1, 取数组成员数 (tempImageArr))
内容图片 ＝ 子文本替换 (tempImageArr [图片位置], “.thumb.jpg”, “”, , , 真)
调试输出 (内容图片)
' 内容图片 ＝ 文本_取左边 (内容图片, “---”) ' 这是企汇网特有的图片转换方式
msg.content ＝ 子文本替换 (msg.content, “
”, “
”, 1, 1, 真)
' msg.content ＝ 子文本替换 (msg.content, “
”, #引号 ＋ 内容图片 ＋ #引号, 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}”, , , 真))
执行
JS (“setHtml('')”)
延时 (200)
选择列表框1.清空 ()
读取模版配置1 ()
.子程序 html文本转text文本, 文本型
.参数 html文本, 文本型
html文本 ＝ 子文本替换 (html文本, #换行符, “\” ＋ #换行符, , , 真)
执行
JS (“setHtml(' ” ＋ html文本 ＋ “ ')”)
执行
JS (“GetText()”)
返回 (取返回值 ())
.子程序 获取template文本, 文本型
' 执行
JS (“GetText()”) ' Gethtml
执行
JS (“Gethtml()”) ' Gethtml
返回 (取返回值 ())
' 文本 ＝ 取返回值 ()
.子程序 _选择列表框1_列表项被选择
.局部变量 templateName, 文本型
.局部变量 文本, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文本 ＝ 通过项目文本获取待发content (templateName)
编辑框_templateName.内容 ＝ templateName
文本 ＝ 子文本替换 (文本, #换行符, “\” ＋ #换行符, , , 真) ' 设置编辑器内容
执行
JS (“setHtml(' ” ＋ 文本 ＋ “ ')”)
.子程序 通过项目文本获取待发content, 文本型
.参数 templateName, 文本型
.局部变量 文件号, 整数型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 文本, 文本型
.局部变量 行分割, 文本型, , "0"
' 读出配置文件内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ＝ templateName) ' 找到这行文本再替换掉前面字符
文本 ＝ 分行内容 [循环次数]
文本 ＝ 文本替换 (文本, 1, 取文本长度 (templateName) ＋ 1, “”)
.如果真结束
.计次循环尾 ()
' 调试输出 (文本)
文本 ＝ 子文本替换 (文本, “{huanhang}”, #换行符, , , 真)
返回 (文本)
.子程序 _按钮_clearTemplateContent_被单击
.局部变量 文本, 文本型
' 执行
JS (“clearHtml()”)
执行
JS (“setHtml('')”)
.子程序 读取模版配置1
.局部变量 文本, 文本型
.局部变量 文件号, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 M, 整数型
.局部变量 数据分割, 文本型
.局部变量 文本内容, 文本型
.局部变量 分行内容, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 行分割, 文本型, , "0"
.局部变量 templateName, 文本型
templateName ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\data\template.ini”, , )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
分行内容 ＝ 分割文本 (文本内容, #换行符, )
.计次循环* (取数组成员数 (分行内容), 循环次数)
行分割 ＝ 分割文本 (分行内容 [循环次数], “=”, )
.如果真 (行分割 [1] ≠ “[templateList]” 且 行分割 [1] ≠ “” 且 行分割 [2] ≠ “”)
选择列表框1.加入项目 (行分割 [1], )
.如果真结束
.计次循环尾 ()
调试输出 (文本)
.子程序 _按钮_insertVar2_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_insertVar3_被单击
执行
JS (“insertText('')”)
.子程序 _按钮_clouldParagraph_被单击
.如果 (取反 (选择框_启用云段落.选中) 或 获取树形框选中项文本 () ＝ “”)
信息框 (“请先勾选启用云段落并选择云段落类别”, 0, , )
高级选择夹1.现行子夹 ＝ 2
.否则
执行
JS (“insertText('【云段落】')”)
.如果结束
.子程序 _段落1_被选择
执行
JS (“insertText('【段落1】')”)
.子程序 _段落2_被选择
执行
JS (“insertText('请点击停止发布后，重新设置图片')”)
.子程序 _段落3_被选择
执行
JS (“insertText('')”)
.子程序 _段落4_被选择
执行
JS (“insertText('')”)
.子程序 _段落5_被选择
执行
JS (“insertText('')”)
.子程序 _段落6_被选择
执行
JS (“insertText('')”)
.子程序 _段落7_被选择
执行
JS (“insertText('')”)
.子程序 _段落8_被选择
执行
JS (“insertText('')”)
.子程序 _段落9_被选择
执行
JS (“insertText('')”)
.子程序 _段落10_被选择
执行
JS (“insertText('')”)
.子程序 _按钮_insertYear_被单击
执行
JS (“insertText('2019')”)
.子程序 _按钮_insertMonth_被单击
执行
JS (“insertText('2')”)
.子程序 _按钮_insertDay_被单击
执行
JS (“insertText('17')”)
.子程序 _代码编辑框1_获得焦点
执行
JS (“Gethtml()”)
' 信息框 (取返回值 (), 0, , )
代码编辑框1.置文本 (获取template文本 ())
.子程序 _按钮1_被单击
.局部变量 var1Arr, 文本型, , "0"
.局部变量 content, 文本型
.局部变量 VAR1, 文本型
超文本浏览框1.地址 ＝ 取运行目录 () ＋ “\Editer\fuck.html”
' 调试输出 (时间_格式化 (取现行时间 (), “yyyy/M/d”))
' 调试输出 (时间_格式化 (取现行时间 (), “yyyy”))
' 调试输出 (时间_格式化 (取现行时间 (), “[月]”))
' 调试输出 (时间_格式化 (取现行时间 (), “d”))
' 调试输出 (时间_格式化 (取现行时间 (), “M/d”))
' 调试输出 (到时间 (取现行时间 ()))
' 调试输出 (取年份 (到时间 (取现行时间 ())))
' content ＝ “巴旦木价格订水020-34205887 薄皮桃仁树”
' var1Arr ＝ 分割文本 (编辑框_Variate1.内容, #换行符, )
' VAR1 ＝ “年”
' 执行
JS (“Gethtml()”)
' content ＝ 取返回值 ()
' 调试输出 (替换随机内容 (content, “巴旦木价格”, var1Arr))
' 调试输出 (替换固定内容 (content, “巴旦木授粉树哪里有”, VAR1))
.子程序 替换随机内容, 文本型, , 返回替换后的内容
.参数 content, 文本型, , 原文本内容
.参数 被替换文本, 文本型, , 被替换的文本
.参数 varArr, 文本型, 数组, 变量数组
.局部变量 数组成员数, 整数型
.局部变量 随机数, 整数型
数组成员数 ＝ 取数组成员数 (varArr)
.判断循环* (寻找文本 (content, 被替换文本, , 假) ≠ -1 且 数组成员数 ＞ 0)
置随机数种子 ()
置随机数种子 (取随机数 (1, 10000))
随机数 ＝ 取随机数 (1, 数组成员数)
content ＝ 子文本替换 (content, 被替换文本, varArr [随机数], 1, 1, 真)
.判断循环尾 ()
返回 (content)
.子程序 替换固定内容, 文本型, , 返回替换后的内容
.参数 content, 文本型, , 原文本内容
.参数 被替换文本, 文本型, , 被替换的文本
.参数 var, 文本型, , 变量文本
content ＝ 子文本替换 (content, 被替换文本, var, , , 真)
返回 (content)
.子程序 _按钮_forbidSet_被单击
载入 (窗口11, , 假)
.子程序 _按钮_clearForbid_被单击
编辑框_forbidWords.内容 ＝ “”
.子程序 _编辑框_forbidWords_内容被改变
' 分组框53.标题 ＝ “共有” ＋ 到文本 (文本_取行数 (编辑框1.内容)) ＋ “行”
.子程序 _编辑框_ImageMain_内容被改变
分组框3.标题 ＝ “标题图片,共有” ＋ 到文本 (文本_取行数 (编辑框_ImageMain.内容)) ＋ “行”
.子程序 _编辑框_mainVariate_内容被改变
分组框5.标题 ＝ “主变量,共有” ＋ 到文本 (文本_取行数 (编辑框_mainVariate.内容)) ＋ “行”
.子程序 _编辑框_Variate1_内容被改变
分组框6.标题 ＝ “变量1,共有” ＋ 到文本 (文本_取行数 (编辑框_Variate1.内容)) ＋ “行”
.子程序 _编辑框_Variate2_内容被改变
分组框7.标题 ＝ “变量2,共有” ＋ 到文本 (文本_取行数 (编辑框_Variate2.内容)) ＋ “行”
.子程序 _编辑框_Variate3_内容被改变
分组框8.标题 ＝ “变量3,共有” ＋ 到文本 (文本_取行数 (编辑框_Variate3.内容)) ＋ “行”
.子程序 _编辑框_sentenceSet_内容被改变
分组框9.标题 ＝ “段落句子,共有” ＋ 到文本 (文本_取行数 (编辑框_sentenceSet.内容)) ＋ “行”
.子程序 _编辑框_randomImage_内容被改变
分组框10.标题 ＝ “随机图片,共有” ＋ 到文本 (文本_取行数 (编辑框_randomImage.内容)) ＋ “行”
.子程序 _编辑框_random
Link_内容被改变
分组框11.标题 ＝ “随机链接,共有” ＋ 到文本 (文本_取行数 (编辑框_random
Link.内容)) ＋ “行”
.子程序 _编辑框_paragraph1_内容被改变
分组框12.标题 ＝ “段落1,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph1.内容)) ＋ “行”
.子程序 _编辑框_paragraph2_内容被改变
分组框15.标题 ＝ “段落2,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph2.内容)) ＋ “行”
.子程序 _高级选择夹6_子夹被改变
.如果真 (高级选择夹6.现行子夹 ＝ 0)
分组框12.标题 ＝ “段落1,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph1.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 1)
分组框15.标题 ＝ “段落2,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph2.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 2)
分组框16.标题 ＝ “段落3,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph3.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 3)
分组框17.标题 ＝ “段落4,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph4.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 4)
分组框18.标题 ＝ “段落5,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph5.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 5)
分组框19.标题 ＝ “段落6,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph6.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 6)
分组框20.标题 ＝ “段落7,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph7.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 7)
分组框21.标题 ＝ “段落8,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph8.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 8)
分组框22.标题 ＝ “段落9,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph9.内容)) ＋ “行”
.如果真结束
.如果真 (高级选择夹6.现行子夹 ＝ 9)
分组框23.标题 ＝ “段落10,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph10.内容)) ＋ “行”
.如果真结束
.子程序 _编辑框_paragraph3_内容被改变
分组框16.标题 ＝ “段落3,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph3.内容)) ＋ “行”
.子程序 _编辑框_paragraph4_内容被改变
分组框17.标题 ＝ “段落4,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph4.内容)) ＋ “行”
.子程序 _编辑框_paragraph5_内容被改变
分组框18.标题 ＝ “段落5,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph5.内容)) ＋ “行”
.子程序 _编辑框_paragraph6_内容被改变
分组框19.标题 ＝ “段落6,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph6.内容)) ＋ “行”
.子程序 _编辑框_paragraph7_内容被改变
分组框20.标题 ＝ “段落7,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph7.内容)) ＋ “行”
.子程序 _编辑框_paragraph8_内容被改变
分组框21.标题 ＝ “段落8,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph8.内容)) ＋ “行”
.子程序 _编辑框_paragraph9_内容被改变
分组框22.标题 ＝ “段落9,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph9.内容)) ＋ “行”
.子程序 _编辑框_paragraph10_内容被改变
分组框23.标题 ＝ “段落10,共有” ＋ 到文本 (文本_取行数 (编辑框_paragraph10.内容)) ＋ “行”
.子程序 _MainForm_位置被改变
.局部变量 hwnd, 整数型
.如果真 (位置 ＝ 2)
MainForm.可视 ＝ 假
置托盘图标 (#托盘图标, 网站名字 ＋ 窗口1.用户帐号1.内容)
hwnd ＝ 取窗口句柄 (取窗口句柄 (取窗口句柄 (取窗口句柄 (0, 0, “Shell_TrayWnd”, 0), 0, “TrayNotifyWnd”, 0), 0, “SysPager”, 0), 0, “ToolbarWindow32”, 0)
' 延时 (3111)
取窗口范围 (hwnd, 矩形)
气球提示框1.弹出提示框 (矩形.左边 ＋ 9, 矩形.顶边, 网站名字 ＋ “用户” ＋ 窗口1.用户帐号1.内容 ＋ #换行符 ＋ #换行符 ＋ “软件已*小化,点击图标即可恢复”, -1, 真)
.如果真结束
.子程序 _MainForm_托盘事件
.参数 操作类型, 整数型
.判断开始 (操作类型 ＝ #单击左键)
置托盘图标 (, )
MainForm.可视 ＝ 真
MainForm.总在*前 ＝ 真
延迟 (20)
MainForm.总在*前 ＝ 假
MainForm.位置 ＝ 1
.默认
MainForm.总在*前 ＝ 假
.判断结束
.子程序 _按钮_海量长尾词挖掘_被单击
.如果 (删*尾空 (编辑框_海量长尾词挖掘keyword.内容) ＝ “”)
信息框 (“请输入关键词”, 0, , )
.否则
启动线程 (&海量长尾词挖掘, , )
.如果结束
.子程序 海量长尾词挖掘
.局部变量 url, 文本型
.局部变量 header, 文本型
.局部变量 str, 文本型
.局部变量 name, 文本型
.局部变量 temp, 文本型
.局部变量 retstr, 文本型
.局部变量 num, 整数型
.局部变量 body, 文本型
状态条1.置文本 (2, “正在获取海量长尾词....”)
url ＝ “https://apis.5118.com/keyword/word”
body ＝ “keyword=” ＋ 删*尾空 (编辑框_海量长尾词挖掘keyword.内容)
header ＝ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Authorization: APIKEY BF68C3A94CC5462C8A30E00126930778”
str ＝ 到文本 (网页_访问_对象 (url, 1, body, , , header, , , , , , , , , , ))
调试输出 (str) ' {"keyword":"鑱婂煄瀹為獙涓","baidu_index":18,"long_keyword_count":246,"collect_count":335000,"bidword_company_count":3,"page_url":"","bidword_kwc":0,"bidword_pcpv":2,"bidword_wisepv":2}
str ＝ 编码_URL解码_超快 (str, 真)
' 返回 (str)
.判断循环* (寻找文本 (str, “{”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “{”, “}”)
调试输出 (temp)
str ＝ 子文本替换 (str, “{”, “”, 1, 1, 真)
name ＝ 文本_取出中间文本 (temp, “keyword” ＋ #引号 ＋ “:” ＋ #引号, #引号)
num ＝ 超级列表框4.插入表项 (, , , , , )
超级列表框4.置标题 (num, 0, 到文本 (num ＋ 1))
超级列表框4.置标题 (num, 1, name)
.判断循环尾 ()
状态条1.置文本 (2, “获取海量长尾词完成”)
.子程序 _树型框1_项目被选择
.参数 选择方式, 整数型
.子程序 _树型框1_检查框状态被改变
.参数 表项索引, 整数型
.参数 检查框状态, 整数型
.局部变量 i, 整数型
调试输出 (表项索引, 检查框状态)
.如果 (检查框状态 ＝ 1)
调试输出 (“选中”)
.计次循环* (树型框1.取项目数 (), i)
树型框1.置检查框状态 (i － 1, 0, )
.计次循环尾 ()
树型框1.置检查框状态 (表项索引, 1, )
.否则
调试输出 (“not选中”)
.如果结束
.子程序 getSententsWithKeyWord, 文本型
.参数 keyUrl, 文本型
.局部变量 url, 文本型
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 name, 文本型
.局部变量 temp, 文本型
.局部变量 content, 文本型
.局部变量 str1, 文本型
状态条1.置文本 (2, “正在获取云段落···”)
url ＝ “https://oa.xunguagua.com/get/?url=” ＋ 编码_URL编码 (keyUrl, 真, )
bin ＝ 网页_访问_对象 (url, , , , , , , , , )
str ＝ 到文本 (bin)
str ＝ 编码_usc2到ansi (str) ' {"herf":"https://info.kitchen.hc360.com/2018/04/27091378101.shtml","name":"用技术工艺让牛肉滑在工业化生产线上“翱翔”"}
调试输出 (str)
.判断循环* (寻找文本 (str, “{”, , 假) ≠ -1)
temp ＝ 文本_取出中间文本 (str, “{”, “}”)
调试输出 (temp)
str ＝ 子文本替换 (str, “{”, “”, 1, 1, 真)
name ＝ 文本_取出中间文本 (temp, “herf” ＋ #引号 ＋ “:” ＋ #引号, #引号)
' retstr ＝ retstr ＋ name ＋ #换行符
' 编辑框_海量长尾词挖掘.加入文本 (name ＋ #换行符)
调试输出 (name)
' 延时 (2000)
url ＝ “https://oa.xunguagua.com/get/?url=” ＋ 编码_URL编码 (name, 真, )
bin ＝ 网页_访问_对象 (url, , , , , , , , , , , 9000)
str1 ＝ 到文本 (bin)
str1 ＝ 编码_usc2到ansi (str1) ' {"herf":"https://info.kitchen.hc360.com/2018/04/27091378101.shtml","name":"用技术工艺让牛肉滑在工业化生产线上“翱翔”"}
content ＝ content ＋ 文本_取出中间文本 (str1, “content” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
调试输出 (content)
.判断循环尾 ()
调试输出 (content)
编辑框_errorCoupleBack.内容 ＝ content
状态条1.置文本 (2, “获取云段落完成”)
返回 (content)
.子程序 _按钮34_被单击
.局部变量 云段落数组, 文本型, , "0"
.局部变量 数组成员数, 整数型
.局部变量 随机数, 整数型
.如果 (全局_云段落 ≠ “”)
云段落数组 ＝ 分割文本 (全局_云段落, “
”, )
数组成员数 ＝ 取数组成员数 (云段落数组)
置随机数种子 ()
置随机数种子 (取随机数 (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 ＝ “/>
手机版
发布产品
