自用站群挂机更新软件

张凯 网络杂苑>按键精灵 2018-9-25 18:37 39389字 306 0 字号: | |

    这个用按键精灵写的站群更新软件(也可以说是小脚本)应该早就发布出来了,早在2018年6月中旬完成编写,并在7月15日经过放在服务器里的长期调试,形成最终版本。现在才把它发布出来,究其原因只不过是我太忙了忘记发了。

站群更新软件.png

(站群更新软件截图)

    现在把它发布出来竟不知道应该放在哪个分类里面,因为这可以说是一篇总结,也可以说是按键精灵源代码的初次发布,很多软件的功能我都忘记了,所以只简单的描述一下重点功能:

    1.dede、zblog、emlog三大CMS发布模块;

    2.间隔时间数个站群循环发布;

    3.固定模板调用后台文档内的随机字段,匹配出随机标题,组合出随机文章,模板分为HTML模式和纯文本模式;

    4.发布出的随机文章具有过滤关键词的功能;

    5.可以挂在服务器上,通过写出TXT的方式实时查看进度;

站群更新.png

(按键精灵内的脚本,只有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.aswait.com" "检索网站的路径"  
UserVar 网站序号 = DropList{"[测试]dede.aswait.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.aswait.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
本文链接:http://www.aswait.com/q/826.html 百度已收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

发表评论

电子邮件地址不会被公开。必填项已用*标注

Ɣ回顶部
00:00 / 00:00
顺序播放