自用站群挂机更新软件
这个用按键精灵写的站群更新软件（也可以说是小脚本）应该早就发布出来了，早在2018年6月中旬完成编写，并在7月15日经过放在服务器里的长期调试，形成最终版本。现在才把它发布出来，究其原因只不过是我太忙了忘记发了。
（站群更新软件截图）
现在把它发布出来竟不知道应该放在哪个分类里面，因为这可以说是一篇总结，也可以说是按键精灵源代码的初次发布，很多软件的功能我都忘记了，所以只简单的描述一下重点功能：
1.dede、zblog、emlog三大CMS发布模块；
2.间隔时间数个站群循环发布；
3.固定模板调用后台文档内的随机字段，匹配出随机标题，组合出随机文章，模板分为HTML模式和纯文本模式；
4.发布出的随机文章具有过滤关键词的功能；
5.可以挂在服务器上，通过写出TXT的方式实时查看进度；
（按键精灵内的脚本，只有46KB，约1100行代码）
/*
一、Dede
1.www.jiangsujieda.com [钢梁加工、屋顶、盐城钢构]
2.www.gongxingwumian.com [屋面、无梁拱棚、太空瓦]
3.www.jsgxwm.com [无梁拱、屋顶、屋面]
4.www.gges.cn [二手钢结构]
//二、Emlog
1.www.jdtyss.com [屋顶、屋面、无梁拱瓦]
2.www.jdgxwd.cn [屋顶]
三、Zblog
www.gongxingwuding.com [仓间罩棚、屋顶、拱形波纹钢屋盖]
a.
www.jsgxwd.cn [江苏]
www.hngxwd.cn [河南]
www.sxgxwm.cn [山西]
www.zjgxwd.cn [浙江]
b.
www.jxwlg.cn [江西]
www.sdgxwd.cn [山东]
www.hngxwm.cn [湖南]
www.hbgxwd.cn [河北]
c.
www.wlgwm.cn [无梁屋顶、拱形波纹钢屋盖]
www.hbgxwm.cn [湖北]
www.fjgxwd.cn [福建]
www.ahgxwd.cn [安徽]
*/
/*
2018.6.30
脚本调试完毕，可以放在服务器上运行；
2018.7.1
1.修改好上一版本的程序错误（Zblog发布内容错误）；
2.用户自定义选择文章末尾是否插入链接；
3.用户自定义选择文章末尾插入的链接是否为超链接；
4.用户自定义发布的方式；
5.保存超链接文章标题；
6.保存网址到指定目录,保存为url格式；
7.取消获取浏览器句柄；
8.网站发布循环体改为do...loop循环，可测试第0个网站；
2018.7.2
1.修复等待时间出的错误；
*/
Call Plugin.Web.Tips("脚本开始运行")
//用户自定义调用产品
产品名称 = "屋顶"
网站名称 = "站群"
UserVar 网站帐号密码调用行=0 "网站帐号密码调用行"
UserVar 重复循环次数 = 2 "重复发布循环次数"
UserVar 等待时间 = 1 "发布间隔时间(min)"
UserVar 是否输出网址 = DropList{"是":"0"|"否":"1"}=1 "是否输出网址"
UserVar 是否url网址 = DropList{"是":"0"|"否":"1"}=1 "是否超链接网址"
UserVar 发布方式 = DropList{"纯文本":"0"|"有图":"1"|"无图":"2"|"本地":"3"}=2 "选择发布内容的方式"
UserVar 查阅域名 = "url.noteet.com" "检索网站的路径"
UserVar 网站序号 = DropList{"[测试]dede.noteet.com":"0"|"www.jiangsujieda.com":"1"|"www.gongxingwumian.com":"2"|"www.jsgxwm.com":"3"|"[二手]www.gges.cn":"4"|"":"5"|"":"6"|"":"7"|"":"8"|"":"9"|"www.jdtyss.com":"10"|"www.jdgxwd.cn":"11"|"":"12"|"":"13"|"":"14"|"":"15"|"":"16"|"":"17"|"":"18"|"":"19"|"[全国]www.wlgwm.cn":"20"|"[河南]www.hngxwd.cn":"21"|"[江西]www.sxgxwm.cn":"22"|"[浙江]www.zjgxwd.cn":"23"|"[江西]www.jxwlg.cn":"24"|"[山东]www.sdgxwd.cn":"25"|"[湖南]www.hngxwm.cn":"26"|"[河北]www.hbgxwd.cn":"27"|"[江苏]www.jsgxwd.cn":"28"|"[湖北]www.hbgxwm.cn":"29"|"[福建]www.fjgxwd.cn":"30"|"[安徽]www.ahgxwd.cn":"31"}=10 "发布网站"
//----------------------------------------------------------------------------------------------------------------------------------------------First.程序初始化
'1.处理用户变量
'处理等待时间
等待时间 = 等待时间 * 1000 * 60
TracePrint 等待时间
'处理用户查阅状态路径
查阅路径 = "C:\wwwroot\" + 查阅域名 + "\web\index.html"
//'处理用户选择的发布方式
Function 处理用户选择的发布方式
If 发布方式 = 0 Then
内容发布方式 = 纯文本内容()
ElseIf 发布方式 = 1 Then
内容发布方式 = html内容_有图()
ElseIf 发布方式 = 2 Then
内容发布方式 = html内容_无图()
ElseIf 发布方式 = 3 Then
内容发布方式 = 本地随机()
End If
End Function
//2.选择网站
Function 选择网址(网站序号)
'Dede
If 网站序号 = 0 Then
网址 = "dede.noteet.com"
城市 = "全国广泛"
关键词 = "测试网站"
分类 = 1 '测试
ElseIf 网站序号 = 1 Then
网址 = "www.jiangsujieda.com"
城市 = "全国广泛"
关键词 = "钢梁加工,屋顶,盐城钢构"
分类 = 13 '钢结构新闻
ElseIf 网站序号 = 2 Then
网址 = "www.gongxingwumian.com"
城市 = "江苏"
关键词 = "屋面,无梁拱棚,太空瓦"
分类 = 1 '新闻动态
ElseIf 网站序号 = 3 Then
网址 = "www.jsgxwm.com"
城市 = "江苏"
关键词 = "无梁拱,屋顶,屋面"
分类 = 42 '钢构新闻
ElseIf 网站序号 = 4 Then
网址 = "www.gges.cn"
城市 = "江苏"
关键词 = "二手钢结构"
分类 = 7'新闻动态
'Emlog
ElseIf 网站序号 = 10 Then
网址 = "www.jdtyss.com"
城市 = "全国广泛"
关键词 = "屋顶,屋面,无梁拱瓦"
分类 = 6 ' 钢结构新闻
ElseIf 网站序号 = 11 Then
网址 = "www.jdgxwd.cn"
城市 = "全国广泛"
关键词 = "屋顶"
分类 = 1 '钢结构
'Zblog
ElseIf 网站序号 = 20 Then
网址 = "www.wlgwm.cn"
城市 = "全国广泛"
关键词 = "无梁屋顶,拱形波纹钢屋盖"
//分类 = 0 '推荐屋顶有限公司
分类 = 19 '屋顶资讯
ElseIf 网站序号 = 21 Then
网址 = "www.hngxwd.cn"
城市 = "河南"
关键词 = "河南屋顶"
//分类 = 0'
分类 = 19 '钢结构新闻
ElseIf 网站序号 = 22 Then
网址 = "www.sxgxwm.cn"
城市 = "山西"
关键词 = "山西屋顶"
//分类 = 0 '山西
分类 = 12 '钢结构新闻
ElseIf 网站序号 = 23 Then
网址 = "www.zjgxwd.cn"
城市 = "浙江"
关键词 = "浙江屋顶"
//分类 = 0 '浙江
分类 = 12 '钢结构新闻
ElseIf 网站序号 = 24 Then
网址 = "www.jxwlg.cn"
城市 = "江西"
关键词 = "江西屋顶"
//分类 = 江西 '江西
分类 = 12 '钢结构新闻
ElseIf 网站序号 = 25 Then
网址 = "www.sdgxwd.cn"
城市 = "山东"
关键词 = "山东屋顶"
//分类 = 0'山东
分类 = 18 '钢结构新闻
ElseIf 网站序号 = 26 Then
网址 = "www.hngxwm.cn"
城市 = "湖南"
关键词 = "湖南屋顶"
//分类 = 0'湖南
分类 = 15 '钢结构新闻
ElseIf 网站序号 = 27 Then
网址 = "www.hbgxwd.cn"
城市 = "河北"
关键词 = "河北屋顶"
//分类 = 0 '河北
分类 = 12 '屋顶钢结构
ElseIf 网站序号 = 28 Then
网址 = "www.jsgxwd.cn"
城市 = "江苏"
关键词 = "江苏屋顶"
//分类 = 0 '江苏
分类 = 15 '钢结构新闻
ElseIf 网站序号 = 29 Then
网址 = "www.hbgxwm.cn"
城市 = "湖北"
关键词 = "湖北屋顶"
//分类 = 0 '湖北
分类 = 18 '钢结构新闻
ElseIf 网站序号 = 30 Then
网址 = "www.fjgxwd.cn"
城市 = "福建"
关键词 = "福建屋顶"
//分类 = 0 '福建
分类 = 10 '钢结构新闻
ElseIf 网站序号 = 31 Then
网址 = "www.ahgxwd.cn"
城市 = "安徽"
关键词 = "安徽屋顶"
//分类 = 0 '安徽
分类 = 17 '钢结构新闻
End If
选择网址 = 网站序号
End Function
//----------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------------------------1、开始检测
//----------------------------------------------------------------------------------------------------------------------------------
'1.获取当前时间
Function 当前时间
当前时间 = Plugin.Sys.GetDateTime() & " "
End Function
//-----------------------------------------------------调用文件取文件名函数
'2.初始化随机数生成器
Randomize //初始化随机数生成器
Function FindAllFiles(FolderPath)
Dim AllFiles,fso,Folder,f,files
AllFiles = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.getfolder(FolderPath)
Set files = Folder.files
For Each f In files
AllFiles = AllFiles & f.name & ","
Next
Set fso = Nothing
FindAllFiles = Split(AllFiles, ",")
End Function
'3.写入日志
Function 写入日志(写入变量)
Call Plugin.File.WriteFileEx(发布记录_运行日志_文件路径,当前时间 + 写入变量)
End Function
//-----------------------------------------------------定义产品路径
Function 定义产品路径(定义结果)
'定义文件格式
文本文件格式 = ".txt"
'定义根目录
根目录 = "C:\txt\"
'删除原有程序log并开始记录log
Plugin.File.DeleteFile (根目录 + "log.log")
LogStart 根目录 + "log.log"
'定义_产品_文件夹及文件路径
产品目录 = 根目录 + "产品目录\"
'定义_通用_文件夹路径[1]
通用目录 = 根目录 + "通用\"
'定义_通用_文件夹路径[2]
地名目录 = 通用目录 + "地名\"
过滤目录 = 通用目录 + "过滤\"
当前产品目录 = 产品目录 + 产品名称 + "\"
'定义_通用_文件路径[3]
通用_超级过滤 = 过滤目录 + "超级过滤" + 文本文件格式
通用_简单过滤 = 过滤目录 + "简单过滤" + 文本文件格式
'定义一层变量_文件夹路径
标题_文件夹路径 = 当前产品目录 + "标题"
内容_文件夹路径 = 当前产品目录 + "内容"
图片_文件夹路径 = 当前产品目录 + "图片"
账号_文件夹路径 = 当前产品目录 + "账号"
临时文件_文件夹路径 = 当前产品目录 + "临时文件"
发布记录_文件夹路径 = 当前产品目录 + "发布记录"
'定义二层变量_文件夹路径_标题
标题_细节_文件夹路径 = 标题_文件夹路径 + "\细节"
标题_自定义_文件夹路径 = 标题_文件夹路径 + "\自定义"
'定义二层变量_文件夹路径_内容
内容_简介_文件夹路径 = 内容_文件夹路径 + "\简介"
内容_句子_文件夹路径 = 内容_文件夹路径 + "\句子"
内容_其它_文件夹路径 = 内容_文件夹路径 + "\其它"
内容_特定_文件夹路径 = 内容_文件夹路径 + "\特定"
内容_文章_文件夹路径 = 内容_文件夹路径 + "\文章"
内容_文章_已发布_文件夹路径 = 内容_文章_文件夹路径 + "\已发布"
'定义二层变量_文件夹路径_图片
图片_链接_文件夹路径 = 图片_文件夹路径 + "\链接"
图片_有水印_文件夹路径 = 图片_文件夹路径 + "\有水印"
图片_无水印_文件夹路径 = 图片_文件夹路径 + "\无水印"
'定义三层变量_文件路径_标题
标题_关键词_文件路径 = 标题_文件夹路径 + "\关键词" + 文本文件格式
标题_长尾关键词_文件路径 = 标题_文件夹路径 + "\长尾关键词" + 文本文件格式
标题_匹配语_文件路径 = 标题_文件夹路径 + "\匹配语" + 文本文件格式
标题_型号_文件路径 = 标题_细节_文件夹路径 + "\型号" + 文本文件格式
标题_用途_文件路径 = 标题_细节_文件夹路径 + "\用途" + 文本文件格式
标题_特性_文件路径 = 标题_细节_文件夹路径 + "\特性" + 文本文件格式
标题_自定义1_文件路径 = 标题_自定义_文件夹路径 + "\自定义1" + 文本文件格式
标题_自定义2_文件路径 = 标题_自定义_文件夹路径 + "\自定义2" + 文本文件格式
标题_自定义3_文件路径 = 标题_自定义_文件夹路径 + "\自定义3" + 文本文件格式
标题_自定义4_文件路径 = 标题_自定义_文件夹路径 + "\自定义4" + 文本文件格式
标题_自定义5_文件路径 = 标题_自定义_文件夹路径 + "\自定义5" + 文本文件格式
标题_自定义6_文件路径 = 标题_自定义_文件夹路径 + "\自定义6" + 文本文件格式
标题_自定义7_文件路径 = 标题_自定义_文件夹路径 + "\自定义7" + 文本文件格式
标题_自定义8_文件路径 = 标题_自定义_文件夹路径 + "\自定义8" + 文本文件格式
标题_自定义9_文件路径 = 标题_自定义_文件夹路径 + "\自定义9" + 文本文件格式
'定义三层变量_文件路径_图片
图片_公用图片_文件路径 = 图片_链接_文件夹路径 + "\公用图片" + 文本文件格式
图片_网站图片_文件路径 = 图片_链接_文件夹路径 + "\" + 网站名称 + 文本文件格式
'定义三层变量_文件路径_账号
账号_网站账号_文件路径 = 账号_文件夹路径 + "\" + 网站名称 + 文本文件格式
'定义三层变量_文件路径_临时文件
临时文件_临时内容 = 临时文件_文件夹路径 + "\临时内容" + 文本文件格式
临时文件_已使用标题 = 临时文件_文件夹路径 + "\已使用标题" + 文本文件格式
Plugin.File.DeleteFile 临时文件_临时内容 '如果存在缓存临时内容则删除
'定义三层变量_文件路径_发布记录
发布记录_标题网址_文件路径 = 发布记录_文件夹路径 + "\标题网址" + 文本文件格式
发布记录_url标题_文件路径 = 发布记录_文件夹路径 + "\url标题" + 文本文件格式
发布记录_成功网址_文件路径 = 发布记录_文件夹路径 + "\成功网址" + 文本文件格式
发布记录_发布记录_文件路径 = 发布记录_文件夹路径 + "\发布记录" + 文本文件格式
发布记录_运行日志_文件路径 = 发布记录_文件夹路径 + "\运行日志" + 文本文件格式
'OVER
定义产品路径 = 定义结果
End Function
TracePrint 定义产品路径("定义产品路径完成")
//-----------------------------------------------------检测是否存在,不存在则新建
'1.检测文件夹是否存在，如不存在则新建
Function 检测文件夹(文件夹)
Set fso = CreateObject("Scripting.FileSystemObject")
IsFile = fso.FolderExists(文件夹)
If IsFile = 0 Then
Call Plugin.File.CreateFolder(文件夹)
Else
//TracePrint 文件夹&" 存在"
End If
End Function
'2.检测文件是否存在，如不存在则新建
Function 检测文件(文件)
IsFile = Plugin.File.IsFileExit(文件)
If IsFile = false Then
Call Plugin.File.WriteFileEx(文件, "")
Else
//TracePrint 文件&" 存在"
End If
End Function
'3.开始检测产品是否存在
Function 检测产品是否存在(检测结果)
'检测_根目录
检测文件夹(根目录)
'检测_通用_文件夹路径[1]
检测文件夹(通用目录)
检测文件夹(过滤目录)
检测文件夹(产品目录)
'检测_通用_文件夹路径[2]
检测文件夹(地名目录)
检测文件夹(当前产品目录)
'检测_一层文件夹
检测文件夹(标题_文件夹路径)
检测文件夹(标题_文件夹路径)
检测文件夹(内容_文件夹路径)
检测文件夹(图片_文件夹路径)
检测文件夹(账号_文件夹路径)
检测文件夹(临时文件_文件夹路径)
'检测_二层文件夹
检测文件夹(标题_细节_文件夹路径)
检测文件夹(标题_自定义_文件夹路径)
检测文件夹(内容_简介_文件夹路径)
检测文件夹(内容_句子_文件夹路径)
检测文件夹(内容_其它_文件夹路径)
检测文件夹(内容_特定_文件夹路径)
检测文件夹(内容_文章_文件夹路径)
检测文件夹(内容_文章_已发布_文件夹路径)
检测文件夹(图片_链接_文件夹路径)
检测文件夹(图片_有水印_文件夹路径)
检测文件夹(图片_无水印_文件夹路径)
'检测_三层文件
检测文件(账号_网站账号_文件路径)
检测文件(标题_关键词_文件路径)
检测文件(标题_匹配语_文件路径)
检测文件(标题_长尾关键词_文件路径)
检测文件(标题_型号_文件路径)
检测文件(标题_用途_文件路径)
检测文件(标题_特性_文件路径)
检测文件(标题_自定义1_文件路径)
检测文件(标题_自定义2_文件路径)
检测文件(标题_自定义3_文件路径)
检测文件(标题_自定义4_文件路径)
检测文件(标题_自定义5_文件路径)
检测文件(标题_自定义6_文件路径)
检测文件(标题_自定义7_文件路径)
检测文件(标题_自定义8_文件路径)
检测文件(标题_自定义9_文件路径)
//检测文件 (发布记录_标题网址_文件路径)
//检测文件(发布记录_成功网址_文件路径)
//检测文件 (发布记录_发布记录_文件路径)
//检测文件(发布记录_运行日志_文件路径)
'OVER
检测产品是否存在 = 检测结果
End Function
TracePrint 检测产品是否存在("检测产品完成")
'*.删除原有日志文件并写入新的(在发布记录内)
//Plugin.File.DeleteFile 发布记录_运行日志_文件路径
写入日志 ("检测/生成 当前产品目录及文件完成")
//----------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------------------------2、开始取值[应该在这里开始循环]
//----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------取随机值的函数
'1.取指定文件下随机行
Function 取指定文件下随机行(文件路径)
Text = Plugin.File.ReadFileEx(文件路径)
随机行 = Split(Text, "|")
取指定文件下随机行 = 随机行(Int((UBound(随机行) * Rnd) + 0))
End Function
'2.取随机文件夹下随机行
Function 取随机文件夹下随机行(文件夹路径)
//a.调用文件夹内的随机文件
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
TracePrint "目前准备调用 [" + TXT路径 + "] 下的随机行"
End If
//b.调用随机文件内的随机行
Text = Plugin.File.ReadFileEx(TXT路径)
随机行 = Split(Text, "|")
取随机文件夹下随机行 = 随机行(Int((UBound(随机行) * Rnd) + 0))
End Function
'3.取随机文件夹下随机内容
Function 取随机文件夹下随机内容(文件夹路径)
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
取随机文件夹下随机内容 = Plugin.File.ReadFileEx(TXT路径)
ElseIf UBound(FileEx) < 0 Then
取随机文件夹下随机内容 = Cstr("文件夹 < "+ 文件夹路径 +" > 内无数据！")
End If
End Function
'4.取随机文件夹下随机内容并移动
Function 取随机文件夹下随机内容并移动(文件夹路径)
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
取随机文件夹下随机内容并移动 = Plugin.File.ReadFileEx(TXT路径)
发布后路径 = 内容_文章_已发布_文件夹路径 + "\" + 随机文件名
Call Plugin.File.MoveFile(TXT路径, 发布后路径)
ElseIf UBound(FileEx) < 0 Then
取随机文件夹下随机内容并移动 = Cstr("文件夹 < "+ 文件夹路径 +" > 内无数据！")
End If
End Function
//-----------------------------------------------------取当前数据
'1.取当前标题
地名路径 = 地名目录 & "全国广泛"
Function 取当前标题数据(取值结果)
TracePrint "当前预计在 [" + 城市 + "] 发布信息"
If 城市 = "全国广泛" Then
当前_标题_城市 = 取随机文件夹下随机行(地名路径)
TracePrint "随机地名路径为[" + 地名路径 + "],准备使用的地名为：[" + 当前_标题_城市 + "]"
Else
当前网站地名路径 = 地名目录 & "全国广泛\" & 城市 & ".txt"
当前_标题_城市 = 取指定文件下随机行(当前网站地名路径)
TracePrint "指定地名路径为[" + 地名路径 + "] ,准备使用的地名为：[" + 当前_标题_城市 + "]"
End If
当前_标题_关键词 = 取指定文件下随机行(标题_关键词_文件路径)
当前_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
当前_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
当前_标题_型号 = 取指定文件下随机行(标题_型号_文件路径)
当前_标题_用途 = 取指定文件下随机行(标题_用途_文件路径)
当前_标题_特性 = 取指定文件下随机行(标题_特性_文件路径)
当前_标题_自定义1 = 取指定文件下随机行(标题_自定义1_文件路径)
当前_标题_自定义2 = 取指定文件下随机行(标题_自定义2_文件路径)
当前_标题_自定义3 = 取指定文件下随机行(标题_自定义3_文件路径)
当前_标题_自定义4 = 取指定文件下随机行(标题_自定义4_文件路径)
当前_标题_自定义5 = 取指定文件下随机行(标题_自定义5_文件路径)
当前_标题_自定义6 = 取指定文件下随机行(标题_自定义6_文件路径)
当前_标题_自定义7 = 取指定文件下随机行(标题_自定义7_文件路径)
当前_标题_自定义8 = 取指定文件下随机行(标题_自定义8_文件路径)
当前_标题_自定义9 = 取指定文件下随机行(标题_自定义9_文件路径)
'over
取当前标题数据 = 取值结果
End Function
'2.取当前内容
Function 取当前内容(取值结果)
内容_简介 = 取随机文件夹下随机内容(内容_简介_文件夹路径)
内容_句子 = 取随机文件夹下随机内容(内容_句子_文件夹路径)
内容_特定 = 取随机文件夹下随机内容(内容_特定_文件夹路径)
内容_文章 = 取随机文件夹下随机内容并移动(内容_文章_文件夹路径)
'over
取当前内容 = 取值结果
End Function
//-----------------------------------------------------取值转转化
'1.转化外链图片
Function 随机外链图片(外链图片)
外链图片 = "<p><div style=" & chr(34) & "text-align: center;" & chr(34) & "><img src=" & chr(34) & 外链图片 & chr(34) & " alt=" & chr(34) & 当前_标题_关键词 & chr(34) & " title=" & chr(34) & 当前_标题_关键词 & chr(34) & " border=" & chr(34) & "0" & chr(34) & "></div></p>"
随机外链图片 = 外链图片
End Function
'2.写入临时内容
Function 写入临时内容(写入变量)
Call Plugin.File.WriteFileEx(临时文件_临时内容, 写入变量)
Delay 100
End Function
'3.判断是否输出网址
Function 输出网址
If 是否输出网址 = 0 Then
If 是否url网址 = 0 Then
写入临时内容 (取指定文件下随机行(发布记录_url标题_文件路径))
Else
写入临时内容 (取指定文件下随机行(发布记录_标题网址_文件路径))
End If
Else
Delay 100
End If
End Function
'4.过滤操作
Function 过滤后内容(待过滤文件)
'a.设置过滤词txt文件
需要过滤的文件内容 = Plugin.File.ReadFileEx(待过滤文件)
word = Plugin.File.ReadFileEx(通用_超级过滤)
'b.每行一个分割过滤词txt文件
Dim keyword
keyword = Split(word, "|")
'c.开始过滤
If UBound(keyword)>=0 Then
词语数 = 0
For UBound(keyword)
new临时内容 = Replace(需要过滤的文件内容, keyword(词语数),"" )
词语数 = 词语数 + 1
Next
End If
'd.删除原txt文件
Call Plugin.File.DeleteFile(待过滤文件)
'e.新建分割好的txt文件
Call Plugin.File.WriteFileEx(待过滤文件, Replace(new临时内容, "|", "<br>"))
'f.输出该txt文件
'-读取待过滤的文件
过滤后内容 = Plugin.File.ReadFileEx(待过滤文件)
'-将换行符号更改为空格
过滤后内容 = Replace(过滤后内容, " ", "<br>")
'-输出长度为总长度少一个字符
过滤后内容 = Left(过滤后内容, Len(过滤后内容) - 1)
'g.删除原txt文件
Call Plugin.File.DeleteFile(待过滤文件)
End Function
//-----------------------------------------------------合成标题
'合成当前标题
Function 合成标题
TracePrint 取当前标题数据("取当前标题成功")
当前标题 = 当前_标题_城市 + 当前_标题_关键词 + 当前_标题_型号 + 当前_标题_匹配语
Call Plugin.File.WriteFileEx(临时文件_已使用标题, 当前标题)
TracePrint "当前标题为: " & 当前标题
End Function
//-----------------------------------------------------合成内容
'1.合成纯文本内容
Function 纯文本内容
Call 取当前内容("取当前内容成功")
'【*】启始段落：段落一
段落一 = "如果您想了解" & 当前标题 & "？您可以参考下文由" & 当前_标题_关键词 & "钢结构整理的关于" & 当前_标题_关键词 & 当前_标题_匹配语 & "的相关资料。"
写入临时内容(段落一)
'__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_1
'[1.1]加粗标题：短标题一
短标题一 = "一、" & 当前_标题_关键词 & "简介"
写入临时内容(短标题一)
'[1.2]内容_简介
写入临时内容(内容_简介)
'[2.1]加粗标题：短标题二
短标题二 = "二、" & 当前_标题_城市 & 当前_标题_关键词 & "简介"
写入临时内容 (短标题二)
'[2.2]一句话
'a.调用随机_标题
随机_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
随机_标题_用途 = 取指定文件下随机行(标题_用途_文件路径)
随机_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
'b.组合_第一句话
内容_一句话 = "我公司专业从事" + 随机_标题_匹配语 + 随机_标题_用途 + 随机_标题_长尾关键词 + "," + 当前标题 + ",做" + 随机_标题_长尾关键词 + "我们相当专业！"
'c.写出一句话到临时文件
写入临时内容 (内容_一句话)
'[2.3]内容_句子
写入临时内容 (内容_句子)
'[3.1]加粗标题：短标题三
短标题三 = "三、" & 当前_标题_型号 & 当前_标题_关键词 & "简介"
写入临时内容 (短标题三)
'[3.2]内容_特定
写入临时内容 (内容_特定)
'[4.1]加粗标题：短标题四
短标题四 = "四、" & 随机_标题_长尾关键词 & 当前_标题_匹配语 & "简介"
写入临时内容 (短标题四)
'[4.2]内容_文章
写入临时内容 (内容_文章)
'[5.1]加粗标题：短标题五
短标题五 = "五、" & 当前_标题_用途 & 当前_标题_关键词 & "相关产品推荐"
写入临时内容 (短标题五)
'[5.2]一句话
'a.调用随机_标题
当前_标题_特性 = 取指定文件下随机行(标题_特性_文件路径)
随机_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
随机_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
'b.组合_第二句话
内容_第二句话 = "我公司专业从事" + 当前_标题_特性 + 随机_标题_长尾关键词 + 随机_标题_匹配语 + "," + 当前标题 + ",做" + 当前_标题_特性 + 随机_标题_长尾关键词 + "以及" + 关键词 + "我们的确专业！"
'c.写出一句话到临时文件
写入临时内容 (内容_第二句话)
'[5.3]判断写出成功网址
Call 输出网址
'启动过滤函数
TracePrint "纯文本内容生成完毕，开始过滤"
纯文本内容 = 过滤后内容(临时文件_临时内容)
纯文本内容 = Replace(纯文本内容, "<br>", vbcrlf) + 输出网址
End Function
'2.合成html内容_有图
Function html内容_有图
Call 取当前内容("取当前内容成功")
'【*】启始段落：段落一
段落一 = "如果您想了解" & 当前标题 & "？您可以参考下文由" & 当前_标题_关键词 & "钢结构整理的关于" & 当前_标题_关键词 & 当前_标题_匹配语 & "的相关资料。"
写入临时内容(段落一)
'__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_1
'[1.1]加粗标题：短标题一
短标题一 = "<p><strong><span style=" & chr(34) & "color:#ff0000;" & chr(34) & ">" & 当前_标题_关键词 & "简介</span></strong></p>"
写入临时内容(短标题一)
'[1.2]内容_简介
写入临时内容(内容_简介)
'[1.3]外链图片1
外链图片1 = 取指定文件下随机行(图片_公用图片_文件路径)
写入临时内容 (随机外链图片(外链图片1))
'[2.1]加粗标题：短标题二
短标题二 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 当前_标题_城市 & 当前_标题_关键词 & "简介</span></strong></p>"
写入临时内容 (短标题二)
'[2.2]一句话
'a.调用随机_标题
随机_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
随机_标题_用途 = 取指定文件下随机行(标题_用途_文件路径)
随机_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
'b.组合_第一句话
内容_一句话 = "我公司专业从事" + 随机_标题_匹配语 + 随机_标题_用途 + 随机_标题_长尾关键词 + "," + 当前标题 + ",做" + 随机_标题_长尾关键词 + "以及" + 关键词 + "我们相当专业！"
'c.写出一句话到临时文件
写入临时内容 (内容_一句话)
'[2.3]内容_句子
写入临时内容 (内容_句子)
'[2.4]外链图片2
外链图片2 = 取指定文件下随机行(图片_公用图片_文件路径)
写入临时内容 (随机外链图片(外链图片2))
'[3.1]加粗标题：短标题三
短标题三 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 当前_标题_型号 & 当前_标题_关键词 & "简介</span></strong></p>"
写入临时内容 (短标题三)
'[3.2]内容_特定
写入临时内容 (内容_特定)
'[3.3]外链图片3
外链图片3 = 取指定文件下随机行(图片_公用图片_文件路径)
写入临时内容 (随机外链图片(外链图片3))
'[4.1]加粗标题：短标题四
短标题四 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 随机_标题_长尾关键词 & 当前_标题_匹配语 & "简介</span></strong></p>"
写入临时内容 (短标题四)
'[4.2]内容_文章
写入临时内容 (内容_文章)
'[4.3]外链图片4
外链图片4 = 取指定文件下随机行(图片_公用图片_文件路径)
写入临时内容 (随机外链图片(外链图片4))
'[5.1]加粗标题：短标题五
短标题五 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 当前_标题_用途 & 当前_标题_关键词 & "相关产品推荐</span></strong></p>"
写入临时内容 (短标题五)
'[5.2]一句话
'a.调用随机_标题
当前_标题_特性 = 取指定文件下随机行(标题_特性_文件路径)
随机_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
随机_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
'b.组合_第二句话
内容_第二句话 = "我公司专业从事" + 当前_标题_特性 + 随机_标题_长尾关键词 + 随机_标题_匹配语 + "," + 当前标题 + ",做" + 关键词 + "以及" + 当前_标题_特性 + 随机_标题_长尾关键词 + "我们的确专业！"
'c.写出一句话到临时文件
写入临时内容 (内容_第二句话)
'[5.3]判断写出成功网址
Call 输出网址
'启动过滤函数
TracePrint "html内容_有图 生成完毕，开始过滤"
html内容_有图 = 过滤后内容(临时文件_临时内容)
End Function
'3.合成html内容_无图
Function html内容_无图
Call 取当前内容("取当前内容成功")
'【*】启始段落：段落一
段落一 = "如果您想了解" & 当前标题 & "？您可以参考下文由" & 当前_标题_关键词 & "钢结构整理的关于" & 当前_标题_关键词 & 当前_标题_匹配语 & "的相关资料。"
写入临时内容(段落一)
'__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_1
'[1.1]加粗标题：短标题一
短标题一 = "<p><strong><span style=" & chr(34) & "color:#ff0000;" & chr(34) & ">" & 当前_标题_关键词 & "简介</span></strong></p>"
写入临时内容(短标题一)
'[1.2]内容_简介
写入临时内容(内容_简介)
'[2.1]加粗标题：短标题二
短标题二 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 当前_标题_城市 & 当前_标题_关键词 & "简介</span></strong></p>"
写入临时内容 (短标题二)
'[2.2]一句话
'a.调用随机_标题
随机_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
随机_标题_用途 = 取指定文件下随机行(标题_用途_文件路径)
随机_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
'b.组合_第一句话
内容_一句话 = "我公司专业从事" + 随机_标题_匹配语 + 随机_标题_用途 + 随机_标题_长尾关键词 + "," + 当前标题 + ",做" + 随机_标题_长尾关键词 + "以及" + 关键词 + "我们相当专业！"
'c.写出一句话到临时文件
写入临时内容 (内容_一句话)
'[2.3]内容_句子
写入临时内容 (内容_句子)
'[3.1]加粗标题：短标题三
短标题三 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 当前_标题_型号 & 当前_标题_关键词 & "简介</span></strong></p>"
写入临时内容 (短标题三)
'[3.2]内容_特定
写入临时内容 (内容_特定)
'[4.1]加粗标题：短标题四
短标题四 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 随机_标题_长尾关键词 & 当前_标题_匹配语 & "简介</span></strong></p>"
写入临时内容 (短标题四)
'[4.2]内容_文章
写入临时内容 (内容_文章)
'[5.1]加粗标题：短标题五
短标题五 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 当前_标题_用途 & 当前_标题_关键词 & "相关产品推荐</span></strong></p>"
写入临时内容(短标题五)
'[5.2]一句话
'a.调用随机_标题
当前_标题_特性 = 取指定文件下随机行(标题_特性_文件路径)
随机_标题_匹配语 = 取指定文件下随机行(标题_匹配语_文件路径)
随机_标题_长尾关键词 = 取指定文件下随机行(标题_长尾关键词_文件路径)
'b.组合_第二句话
内容_第二句话 = "我公司专业从事" + 当前_标题_特性 + 随机_标题_长尾关键词 + 随机_标题_匹配语 + "," + 当前标题 + ",做" + 关键词 + "以及" + 当前_标题_特性 + 随机_标题_长尾关键词 + "我们的确专业！"
'c.写出一句话到临时文件
写入临时内容 (内容_第二句话)
'[5.3]判断写出成功网址
Call 输出网址
'启动过滤函数
TracePrint "html内容_无图 生成完毕，开始过滤"
html内容_无图 = 过滤后内容(临时文件_临时内容)
End Function
'4.取本地随机文件
Function 本地随机
本地随机 = 取随机文件夹下随机内容并移动(内容_文章_文件夹路径)
本地随机 = Replace(本地随机, "|", "<br>")
本地随机 = Replace(本地随机, " ", "<br>")
当前标题 = Left(随机文件名, Len(随机文件名) - 4)
End Function
Call 本地随机
//----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------3、CMS操作
//----------------------------------------------------------------------------------------------------------------------------------
//dede cms操作
Function 网站操作_dede
If 网站序号 > 4 Then
Exit Function
End If
Call 处理用户选择的发布方式
'打开网页
当前网站后台 = "http://" & 网址 & "/houtai"
Call LibE.神梦_智能填表.网页_跳转(当前网站后台)
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("返回网站主页", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("返回网站主页", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 打开成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 打开失败！"
End If
'输入账号
Call LibE.神梦_智能填表.元素_置输入框(账号, "tag:INPUT&name:userid&type:text")
'输入密码
Call LibE.神梦_智能填表.元素_置输入框(密码, "tag:INPUT&name:pwd&type:password")
'点击登录
Call LibE.神梦_智能填表.元素_点击("tag:BUTTON&name:sm1&type:submit&txt:登录")
Delay 500
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("网站栏目管理", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("网站栏目管理", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 登陆成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 登陆失败！"
End If
'点击普通文章
Delay 1500
Call LibE.神梦_智能填表.元素_点击("#items2_1 > ul > li:nth-child(1) > div > div.fllct > a")
Delay 500
Call LibE.神梦_智能填表.网页_是否就绪加强("稿件审核", 1, 10)
'点击添加文档
Call LibE.神梦_智能填表.元素_点击("tag:INPUT&type:button&value:添加文档")
Delay 500
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("内容摘要", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("内容摘要", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布页面打开成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布页面打开失败！"
End If
'输入标题
Call LibE.神梦_智能填表.元素_置输入框(当前标题, "id:title")
Delay 500
'选择分类
Call LibE.神梦_智能填表.元素_置下拉框(分类, "id:typeid")
Delay 5000
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("源码", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("源码", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 源码点击成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 源码点击打开失败！"
End If
'点击源码
Call LibE.神梦_智能填表.元素_点击("id:cke_8_label&frame:2")
Delay 1000
'输入内容
Call LibE.神梦_智能填表.元素_置输入框(内容发布方式, "#cke_contents_body > textarea")
'点击保存
//Call LibE.神梦_智能填表.元素_点击("/html/body/form/table[6]/tbody/tr/td[2]/input")
Call LibE.神梦_智能填表.元素_点击("body > form > table:nth-child(8) > tbody > tr > td:nth-child(2) > input")
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("查看文章", 1, 15)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("查看文章", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布失败！"
End If
Delay 3000
'点击查看文章
//Call LibE.神梦_智能填表.元素_点击("/html/body/table/tbody/tr[2]/td/table/tbody/tr[2]/td/div/a[2]/u")
'取成功网址
成功网址 = "http://" & 网址 + LibE.神梦_智能填表.元素_取属性值("href", "txt:查看文章")
Call 保存网址
End Function
//emlog cms操作
Function 网站操作_emlog
If 网站序号 > 11 Then
Exit Function
End If
Call 处理用户选择的发布方式
'打开网页
当前网站后台 = "http://" & 网址 & "/admin"
Call LibE.神梦_智能填表.网页_跳转(当前网站后台)
'识别是否加载成功
Call LibE.神梦_智能填表.网页_是否就绪加强("记住我", 1, 10)
'判断网页是否加载完毕
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("记住我", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 打开成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 打开失败！"
End If
'输入账号
Call LibE.神梦_智能填表.元素_置输入框(账号, "tag:INPUT&id:user")
'输入密码
Call LibE.神梦_智能填表.元素_置输入框(密码, "tag:INPUT&id:pw")
'点击登录
Call LibE.神梦_智能填表.元素_点击("tag:INPUT&value: 登 录&index:3")
Delay 500
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("欢迎使用", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("欢迎使用", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 登陆成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 登陆失败！"
End If
'进入写文章
写文章页面 = "http://" & 网址 & "/admin/write_log.php"
Call LibE.神梦_智能填表.网页_跳转(写文章页面)
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("高级选项", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("高级选项", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布页面打开成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布页面打开失败！"
End If
Delay 3000
'输入标题
Call LibE.神梦_智能填表.元素_置输入框(当前标题, "id:title")
Delay 500
'选择分类
Call LibE.神梦_智能填表.元素_置下拉框(分类, "id:sort")
Delay 1000
'点击源码
Call LibE.神梦_智能填表.元素_点击("//*[@id='post']/div[3]/div/div[1]/span[35]/span")
'输入内容
Call LibE.神梦_智能填表.元素_置输入框(内容发布方式 , "tag:TEXTAREA&type:textarea&index:0")
Delay 1000
'输入关键词
Call LibE.神梦_智能填表.元素_置输入框(关键词 , "//*[@id='tag']")
Delay 500
'点击保存
Call LibE.神梦_智能填表.元素_点击("tag:INPUT&type:submit")
Delay 1000
'进入发布后文章页
文章页面 = "http://" & 网址 & "/admin/admin_log.php"
Call LibE.神梦_智能填表.网页_跳转(文章页面)
Delay 2000
'选择分类
Call LibE.神梦_智能填表.元素_置下拉框(分类, "//*[@id='bysort']")
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("放入草稿箱", 1, 15)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("放入草稿箱", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布失败！"
End If
'点击查看文章
//Call LibE.神梦_智能填表.元素_点击("/html/body/div/div[3]/form/table/tbody/tr[1]/td[3]/a")
'取成功网址
成功网址 = LibE.神梦_智能填表.元素_取属性值("href","/html/body/div/div[3]/form/table/tbody/tr[1]/td[3]/a")
Call 保存网址
End Function
//zblog cms操作
Function 网站操作_zblog
If 网站序号 > 31 Then
Exit Function
End If
Call 处理用户选择的发布方式
'打开网页
当前网站后台 = "http://" & 网址 & "/zb_system/login.php"
Call LibE.神梦_智能填表.网页_跳转(当前网站后台)
'识别是否加载成功
Call LibE.神梦_智能填表.网页_是否就绪加强("登录", 1, 10)
'判断网页是否加载完毕
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("登录", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 打开成功！"
Else
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 打开失败！"
End If
'输入账号
Call LibE.神梦_智能填表.元素_置输入框(账号, "//*[@id='edtUserName']")
Delay 1000
'输入密码
Call LibE.神梦_智能填表.元素_置输入框(密码, "//*[@id='edtPassWord']")
'点击登录
Call LibE.神梦_智能填表.元素_点击("//*[@id='btnPost']")
Delay 500
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("网站摘要", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("网站摘要", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 登陆成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 登陆失败！"
End If
Delay 1000
'进入写文章
写文章页面 = "http://" & 网址 & "/zb_system/admin/edit.php?act=ArticleEdt"
Call LibE.神梦_智能填表.网页_跳转(写文章页面)
Delay 5000
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("id:edtTag", 1, 10)
是否存在 = LibE.神梦_智能填表.元素_是否存在("id:edtTag")
If 是否存在 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布页面打开成功！"
Else
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布页面打开失败！"
End If
'输入标题
Call LibE.神梦_智能填表.元素_置输入框(当前标题, "id:edtTitle")
Delay 500
'选择分类
Call LibE.神梦_智能填表.元素_置下拉框(分类, "id:cmbCateID")
Delay 1000
'点击源码
Call LibE.神梦_智能填表.元素_点击("tag:DIV&index:34")
Delay 1000
'输入内容
Call LibE.神梦_智能填表.元素_置输入框(内容发布方式, "tag:TEXTAREA&index:0")
Delay 2000
'输入关键词
Call LibE.神梦_智能填表.元素_置输入框(关键词, "id:edtTag")
Delay 1000
'点击保存
Call LibE.神梦_智能填表.元素_点击("id:btnPost")
Delay 3000
/*
//这段代码是说直接点击发布并输出成功网址
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("公开", 1, 15)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("公开", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布失败！"
End If
Delay 3000
'点击查看文章
//Call LibE.神梦_智能填表.元素_点击("/html/body/section/div[2]/div[3]/table/tbody/tr[2]/td[4]/a")
'取成功网址
成功网址 = LibE.神梦_智能填表.元素_取属性值("href", "/html/body/section/div[2]/div[3]/table/tbody/tr[2]/td[4]/a")
*/
'进入文章管理
文章管理页面 = "http://" & 网址 & "/zb_system/admin/index.php?act=ArticleMng"
Call LibE.神梦_智能填表.网页_跳转(文章管理页面)
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("公开", 1, 15)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("公开", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布成功！"
Else
MessageBox "[" + 当前时间 + "] " + " 第 " & 网站序号 & " 个网站 [" & 网址 & "] 发布失败！"
End If
Delay 3000
'取成功网址
成功网址 = LibE.神梦_智能填表.元素_取属性值("href", "/html/body/section/div/div[3]/table/tbody/tr[2]/td[4]/a")
Call 保存网址
End Function
//保存网址
Function 保存网址
TracePrint 成功网址
'保存成功网址
Call Plugin.File.WriteFileEx(发布记录_成功网址_文件路径, 成功网址)
'保存标题网址
标题网址 = 当前标题 & " : " & 成功网址
Call Plugin.File.WriteFileEx(发布记录_标题网址_文件路径, 标题网址)
'保存url标题
url标题 = "<a href='" & 成功网址 & "' target='_blank'>" & 当前标题 & "</a>"
Call Plugin.File.WriteFileEx(发布记录_url标题_文件路径, url标题)
'保存发布记录
发布记录 = 当前时间 & " 在[" & 网站名称 & "] " & "[" & 网址 &"] 发布成功一篇文章，标题为：" & 当前标题 & " ；网址为：" & 成功网址
Call Plugin.File.WriteFileEx(发布记录_发布记录_文件路径, 发布记录)
Delay 150
TracePrint "[" + 当前时间 + "] " + "网站[" & 网址 & "]信息保存成功！"
'写入日志
写入日志 ("[" & 网址 & "]信息保存成功！")
Delay 200
'保存到可查询
If 查阅域名 = "" Then
Delay 100
Else
查阅数据 = 当前时间 + " [" + 网站名称 + "] " + " [" + 网址 + "] " + url标题 + "<br>"
Call Plugin.File.WriteFileEx(查阅路径,查阅数据)
End If
End Function
//-----------------------------------------------------------------------------------------------------------------------------------------------Second.启动Chrome浏览器
Function 取账号密码
//---------------------------------------------------------------------------------循环读取文件行数
//1.读取账号密码文件行数
Text = Plugin.File.ReadFileEx(账号_网站账号_文件路径)
dim 账号密码
账号密码 = Split(Text, "|")
网站账号行数 = UBound(账号密码)
TracePrint 网站名称 & "网站账号文件共有" & 网站账号行数 & "行"
//2.输出一行账号
网站帐号密码调用行 = 网站帐号密码调用行 + 1
//判断是否为多行，如果是一行文本则步过
If 网站帐号密码调用行 > 网站账号行数 Then
网站帐号密码调用行 = 网站帐号密码调用行 - 网站账号行数
循环次数 = 循环次数 + 1
TracePrint "已经循环登录" & 循环次数 & "次"
//循环到用户指定次数则退出
If 循环次数 = 重复循环次数 Then
TracePrint"达到预设循环登录次数，脚本终止"
ExitScript
End If
End If
当前帐号密码 = Lib.文件.读取指定行文本内容(账号_网站账号_文件路径, 网站帐号密码调用行)
TracePrint "当前调用" & 网站 & "账号密码的第" & 网站帐号密码调用行 & "行，数据为" & 当前帐号密码
//3.分割账号
arr = split(当前帐号密码, "----")
账号 = arr(0)
密码 = arr(1)
End Function
Call 取账号密码
//-----------------------------------------------------------------------------------------调用IE浏览器进行操作
//初始化命令库
If LibE.神梦_智能填表._初始化("", "") = False Then
MsgBox "出错，智能填表初始化失败！", 1 + 16 + 4096, "警告！"
ExitScript
End If
//启动Chrome浏览器
If LibE.神梦_智能填表.绑定("Chrome.exe") Then
//启动IE浏览器
//If LibE.神梦_智能填表.绑定("IE.exe") Then
//'获取IE浏览器句柄
//浏览器句柄 = Plugin.Window.Find("IEFrame", 0)
Call 获取窗口大小及其他操作
//------------------------------------------------------------------------------------------------------------------------------
//开始操作(使用For循环，进行网站的循环发布)
For 重复循环次数
TracePrint "进入循环体"
Do
TracePrint "网站序号" + 网站序号
Call 选择网址(网站序号)
TracePrint "------------------------------------------------------------------------------------------------------------------------------"
TracePrint "------------------------------------------------------------------执行第 " & 网站序号 & " 个网站"
TracePrint "------------------------------------------------------------------------------------------------------------------------------"
写入日志 ("----- 执行第 " & 网站序号 & " 个网站，网址为" & 网址 )
TracePrint "[" + 当前时间 + "]" + "当前发布第" & 网站序号 & "个网站，网址为：[" & 网址 & "]，城市为：[" & 城市 & "]；关键词为：[" & 关键词 & "]"
Call 合成标题
if 网站序号 < 5 Then
Call 网站操作_dede
Delay 等待时间
TracePrint 内容发布方式
ElseIf 9< 网站序号 < 20 Then
Call 网站操作_emlog
Delay 等待时间
ElseIf 19< 网站序号 < 40 Then
Call 网站操作_zblog
Delay 等待时间
ElseIf 网站序号 > 40 Then
Exit Do
End If
网站序号 = 网站序号 + 1
Loop
Next
Else
MsgBox "出错，绑定浏览器失败！", 1 + 16 + 4096, "警告！"
ExitScript
End If
//把这个代码放到脚本末尾，避免按键精灵奔溃
//Sub OnScriptExit()
//Call LibE.神梦_智能填表._销毁()
//End Sub
//Sub OnThreadExit()
//Call LibE.神梦_智能填表._销毁()
//End Sub
Function 获取窗口大小及其他操作
Delay 2000
//'获取Chrome浏览器句柄
//浏览器句柄 = Plugin.Window.Find("Chrome_WidgetWin_1", 0)
//TracePrint "浏览器句柄为：" + 浏览器句柄
//'获取标签窗口大小
//sRect = Plugin.Window.GetClientRect(浏览器句柄)
//dim 标签坐标
//标签坐标 = Split(sRect, "|")
//窗口左上X = Clng(标签坐标(0)) : 窗口左上Y = Clng(标签坐标(1))
//窗口右下X = Clng(标签坐标(2)) : 窗口右下Y = Clng(标签坐标(3))
//'设置窗口句柄大小
//Call Plugin.Window.SetClientSize(浏览器句柄, 1024, 768)
//'激活句柄
//Call Plugin.Window.Active(浏览器句柄)
'禁止弹窗
Call LibE.神梦_智能填表.网页_禁止弹窗
'禁止警报
Call LibE.神梦_智能填表.网页_禁止警报(True)
'清除Cookie
Call LibE.神梦_智能填表.清除Cookie
'清除历史记录
Call LibE.神梦_智能填表.清除历史记录
TracePrint "完成获取窗口大小及其他操作"
End Function 更多精彩
