按键精灵之新浪博客HTML群发无函数版

本脚本使用按键精灵编写，仅供参考博客文章的标题以及内容的组成，发布的内容是HTML格式，所以在发布博客时需要调成HTML模式。

本脚本中暂未写入具体的博客发帖方法，仅写出了调用本地帐号密码文本循环登录的方法，循环次数和调用帐号密码的行数用户都可以自定义。

个人认为脚本值得参考的地方有两点：

1.调用本地的TXT的文件内的帐号密码(每行一个)，并将其分割。（网络上没找到按键精灵循环输出帐号密码的脚本范例）

2.本地TXT转HTML文本输出，段落分明，有序穿插图片，可以提高发布新浪博文后被百度收录的成功率。

下文是按键精灵之新浪博客群发脚本（无函数版）源码，转载请注明出处。过几天会发出有函数的调用方法。

//↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
//本程序为新浪博客发布程序，由我的博客（www.noteet.com）&(www.semb2b.cn）原创首发
Call Plugin.Msg.Tips("配置内容")
//███████请输入网站名称██████████
网站 = "新浪博客"
UserVar 网站帐号密码调用行=0 "网站帐号密码调用行"
UserVar 重复登录循环次数=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
//----------------------------配置变量----------------------------
文件根目录 = "C:\TXT\"
帐号密码目录 = 文件根目录 + "0.账号密码\"
帐号密码文件 = 帐号密码目录 + 网站+".txt"
特殊内容目录 = 文件根目录 + "2.内容其他相关\"
过滤词目录 = 文件根目录 + "3.过滤\"
本地图片目录 = 文件根目录 + "3.图片"
网络图片目录 = 文件根目录 + "2.内容_图片\屋面\"
外链图片路径 = 网络图片目录 + "公用图片.txt"
发布记录 = 文件根目录 + "发布记录\"
发布记录txt = 发布记录 + "发布记录.txt"
返回网址txt = 发布记录 + "返回网址.txt"
临时文件目录 = 文件根目录 + "临时文件\"
临时账号txt = 临时文件目录 + "临时账号.txt"
临时标题txt = 临时文件目录 + "临时标题.txt"
临时内容txt = 临时文件目录 + "临时内容.txt"
已使用标题txt = 临时文件目录 + "已使用标题.txt"
//↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
//1.读取账号密码文件行数
Text = Plugin.File.ReadFileEx(帐号密码文件)
dim MyArray
MyArray = Split(Text, "|")
帐号密码文件行数 = UBound(MyArray)
TracePrint 网站 & "网站账号文件共有" & 帐号密码文件行数 & "行"
//循环取账号密码
//登录账号操作
//输出一行账号
网站帐号密码调用行 = 网站帐号密码调用行 + 1
If 网站帐号密码调用行 > 帐号密码文件行数 Then 
    网站帐号密码调用行 = 网站帐号密码调用行-帐号密码文件行数
    循环次数 = 循环次数 + 1
    TracePrint "已经循环登录"&循环次数&"次"
    If 循环次数 = 重复登录循环次数 Then 
        TracePrint"达到预设循环登录次数，脚本终止"
        ExitScript
    End If
End If
当前帐号密码 = Lib.文件.读取指定行文本内容(帐号密码文件, 网站帐号密码调用行)
TracePrint "当前调用" & 网站 & "账号密码的第" & 网站帐号密码调用行 & "行，数据为" & 当前帐号密码
//分割账号
arr = split(当前帐号密码, "|")
账号 = arr(0)
密码 = arr(1)
TracePrint 账号
TracePrint 密码
//-----------------------------------------配置输出标题和内容
//↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
//_______________________________________________________________________◤标题◥
//【1】.写入标题>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖地名〗
//a.调用地名文本
文件夹路径 = 文件根目录 + "1.标题_地名"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
End If
//b.调用随机文档内的随机行
Text = Plugin.File.ReadFileEx(TXT路径)
临时标题地名 = Split(Text, "|")
标题地名 = 临时标题地名(Int((UBound(临时标题地名) * Rnd) + 0))
//c.写出标题到临时文件
Call Plugin.File.WriteFileEx(临时标题txt,标题地名)
//【2】.写入标题>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖关键词〗
//a.调用txt文件内的随机一行
Text = Plugin.File.ReadFileEx(文件根目录 +"1.标题_关键词\屋面.txt")
临时标题关键词 = Split(Text, "|")
标题关键词 = 临时标题关键词(Int((UBound(临时标题关键词) * Rnd) + 0))
//b.写出标题到临时文件
Call Plugin.File.WriteFileEx(临时标题txt,标题关键词)
//【3】.写入标题>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖细节〗
//a.调用随机一个细节文本
文件夹路径 = 文件根目录 + "1.标题_细节"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
End If
//b.调用随机文档内的随机行
Text = Plugin.File.ReadFileEx(TXT路径)
临时标题特征 = Split(Text, "|")
标题特征 = 临时标题特征(Int((UBound(临时标题特征) * Rnd) + 0))
//c.写出标题到临时文件
Call Plugin.File.WriteFileEx(临时标题txt,标题特征)
//【4】.写入标题>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖匹配语〗
//a.调用txt文件内的随机一行
Text = Plugin.File.ReadFileEx(文件根目录 +"1.标题_匹配语\屋面.txt")
临时标题匹配语 = Split(Text, "|")
标题匹配语 = 临时标题匹配语(Int((UBound(临时标题匹配语) * Rnd) + 0))
//b.写出标题到临时文件
Call Plugin.File.WriteFileEx(临时标题txt,标题匹配语)
//【5】.删除临时标题文件
//a.读取临时标题txt文件内容
标题 = Plugin.File.ReadFileEx(临时标题txt)
//b.将标题文件内容去换行
标题 = Replace(标题, "|", "")
//c.删除临时文件txt
Plugin.File.DeleteFile 临时标题txt
//d.写出标题内容到已使用标题txt
Call Plugin.File.WriteFileEx(已使用标题txt, 标题)
TracePrint "当前标题为："&标题
//_______________________________________________________________________◣标题◢
// ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗
//↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
//_______________________________________________________________________◤HTML内容◥
//
//【*】启始段落：段落一
段落一 = "如果您想了解" & 标题 & "？您可以参考下文由" & 标题关键词 & "钢结构整理的关于" & 标题关键词 & 标题匹配语 & "的相关资料。"
Call Plugin.File.WriteFileEx(临时内容txt, 段落一)
//__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_1
//【*】加粗标题：短标题一
短标题一 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 标题关键词 & "简介</span></strong></p>"
Call Plugin.File.WriteFileEx(临时内容txt, 短标题一)
//【1】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖简介〗
//a.调用地名文本
文件夹路径 = 文件根目录 + "2.内容_简介"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
    内容 = Plugin.File.ReadFileEx(TXT路径)
ElseIf UBound(FileEx) < 0 Then
    SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无企业简介！"))
End If
//b.写出内容到临时文件
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
//【*】外链图片:图片一
//a.取一张随机图片
Text = Plugin.File.ReadFileEx(外链图片路径)
临时图片一 = Split(Text, "|")
图片一 = 临时图片一(Int((UBound(临时图片一) * Rnd) + 0))
图片一 = "<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>"
//b.存储该图片
Call Plugin.File.WriteFileEx(临时内容txt, 图片一)
//__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_2
//【*】加粗标题：短标题二
短标题二 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 标题地名 & 标题关键词 & "简介</span></strong></p>"
Call Plugin.File.WriteFileEx(临时内容txt, 短标题二)
//【2】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖一句话〗
//a.调用txt文件内的随机一行>>>>>匹配语
匹配语 = Plugin.File.ReadFileEx(文件根目录 + "1.标题_匹配语\屋面.txt")
匹配语 = Split(匹配语, "|")
new匹配语 = 匹配语(Int((UBound(匹配语) * Rnd) + 0))
//b.调用txt文件内的随机一行>>>>>细节
文件夹路径 = 文件根目录 + "1.标题_细节"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
End If
细节 = Plugin.File.ReadFileEx(TXT路径)
细节 = Split(细节, "|")
new细节 = 细节(Int((UBound(细节) * Rnd) + 0))
//c.调用txt文件内的随机一行>>>>>关键词
关键词 = Plugin.File.ReadFileEx(文件根目录 +"1.标题_关键词\屋面.txt")
关键词 = Split(关键词, "|")
new关键词= 关键词(Int((UBound(关键词) * Rnd) + 0))
//d.组合一句话
内容 = "我公司专业从事" + new匹配语 + new细节 + new关键词 + "," + 标题 + ",做" + new关键词 + "我们相当专业！"
//e.写出一句话到临时文件
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
//【3】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖句子〗
文件夹路径 =文件根目录 + "2.内容_句子"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
    内容 = Plugin.File.ReadFileEx(TXT路径)
ElseIf UBound(FileEx) < 0 Then
    SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无介绍句子！"))
End If
//b.写出内容到临时文件
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
//【*】外链图片:图片二
//a.取一张随机图片
Text = Plugin.File.ReadFileEx(外链图片路径)
临时图片二 = Split(Text, "|")
图片二 = 临时图片二(Int((UBound(临时图片二) * Rnd) + 0))
图片二 = "<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>"
//b.存储该图片
Call Plugin.File.WriteFileEx(临时内容txt, 图片二)
//__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_3
//【*】加粗标题：短标题三
短标题三 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 标题特征 & 标题关键词 & "简介</span></strong></p>"
Call Plugin.File.WriteFileEx(临时内容txt, 短标题三)
//【4】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖特定段落〗
文件夹路径 = 文件根目录 + "2.内容_特定"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
    内容 = Plugin.File.ReadFileEx(TXT路径)
ElseIf UBound(FileEx) < 0 Then
    SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无特定段落！"))
End If
//b.写出内容到临时文件
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
//【*】外链图片:图片三
//a.取一张随机图片
Text = Plugin.File.ReadFileEx(外链图片路径)
临时图片三 = Split(Text, "|")
图片三 = 临时图片三(Int((UBound(临时图片三) * Rnd) + 0))
图片三 = "<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>"
//b.存储该图片
Call Plugin.File.WriteFileEx(临时内容txt, 图片三)
//__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_4
//【*】加粗标题：短标题四
短标题四 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 标题关键词 & 标题匹配语 & "简介</span></strong></p>"
Call Plugin.File.WriteFileEx(临时内容txt, 短标题四)
//【5】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖随机文章〗
文件夹路径 = 文件根目录 + "2.内容_文章"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
    内容 = Plugin.File.ReadFileEx(TXT路径)
ElseIf UBound(FileEx) < 0 Then
    SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无特定文章！"))
End If
//b.写出内容到临时文件
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
//c.移动已经发布的文章
发布后路径 = 文件夹路径 +"\已发布\"+随机文件名
Call Plugin.File.MoveFile(TXT路径, 发布后路径)
//【*】外链图片:图片四
//a.取一张随机图片
Text = Plugin.File.ReadFileEx(外链图片路径)
临时图片四 = Split(Text, "|")
图片四 = 临时图片四(Int((UBound(临时图片四) * Rnd) + 0))
图片四 = "<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>"
//b.存储该图片
Call Plugin.File.WriteFileEx(临时内容txt, 图片四)
//__________________________________________*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_5
//【*】加粗标题：短标题五
短标题五 = "<p><strong><span style="& chr(34) &"color:#ff0000;"&chr(34) &">" & 标题& "相关产品推荐</span></strong></p>"
Call Plugin.File.WriteFileEx(临时内容txt, 短标题五)
//【6】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖再写一句话〗
//a.调用txt文件内的随机一行>>>>>匹配语
匹配语 = Plugin.File.ReadFileEx(文件根目录 + "1.标题_匹配语\屋面.txt")
匹配语 = Split(匹配语, "|")
new匹配语 = 匹配语(Int((UBound(匹配语) * Rnd) + 0))
//b.调用txt文件内的随机一行>>>>>细节
文件夹路径 = 文件根目录 + "1.标题_细节"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
    随机文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路径 = 文件夹路径 + "\" + 随机文件名
End If
细节 = Plugin.File.ReadFileEx(TXT路径)
细节 = Split(细节, "|")
new细节 = 细节(Int((UBound(细节) * Rnd) + 0))
//c.调用txt文件内的随机一行>>>>>关键词
关键词 = Plugin.File.ReadFileEx(文件根目录 +"1.标题_关键词\屋面.txt")
关键词 = Split(关键词, "|")
new关键词= 关键词(Int((UBound(关键词) * Rnd) + 0))
//d.组合一句话
内容 = "我公司专业从事" + 标题 + ",做" + new关键词 + "我们很专业！"+new匹配语 + new细节 + new关键词 + "我们价格低质量好！"  
//e.写出一句话到临时文件
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
//【】.调用随机网址
/*
//【7】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖外链/号码〗
特殊内容 = Plugin.File.ReadFileEx(特殊内容目录 + "链接.txt")
特殊内容 = Split(特殊内容, "|")
内容 = 特殊内容(Int((UBound(特殊内容) * Rnd) + 0))
Call Plugin.File.WriteFileEx(临时内容txt, 内容)
*/
//【8】.写入内容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖过滤〗
//a.设置过滤词txt文件
需要过滤的文件内容 = Plugin.File.ReadFileEx(临时内容txt)
过滤词=过滤词目录+"简单过滤.txt"
word = Plugin.File.ReadFileEx(过滤词)
//b.每行一个分割过滤词txt文件
Dim keyword
keyword = Split(word, "|")
//c.开始过滤
If UBound(keyword)>=0 Then
    i = 0
    For UBound(keyword)
        new临时内容txt = Replace(需要过滤的文件内容, keyword(i),"" )
        i = i + 1
    Next
End If
//d.删除原txt文件
Call Plugin.File.DeleteFile(临时内容txt)
//e.新建分割好的txt文件
Call Plugin.File.WriteFileEx(临时内容txt, Replace(new临时内容txt, "|", "<br>"))
//f.输出该txt文件
内容 = Plugin.File.ReadFileEx(临时内容txt)
内容 = Replace(内容, "　", "<br>")
//g.删除修改好的txt文件
//Call Plugin.File.DeleteFile(临时内容txt)
TracePrint "当前内容为：" & 内容
//_______________________________________________________________________◣内容◢
// ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗