本腳本使用按鍵精靈編寫,由張凱首發,僅供參考博客文章的標題以及內容的組成,發布的內容是HTML格式,所以在發布博客時需要調成HTML模式。

本腳本中暫未寫入具體的博客發帖方法,僅寫出了調用本地帳號密碼文本循環登錄的方法,循環次數和調用帳號密碼的行數用戶都可以自定義。

個人認為腳本值得參考的地方有兩點:

1.調用本地的TXT的文件內的帳號密碼(每行一個),并將其分割。(網絡上沒找到按鍵精靈循環輸出帳號密碼的腳本范例,張凱首發)

2.本地TXT轉HTML文本輸出,段落分明,有序穿插圖片,可以提高發布新浪博文后被百度收錄的成功率。

下文是按鍵精靈之新浪博客群發腳本(無函數版)源碼,轉載請注明出處。過幾天會發出有函數的調用方法。

//↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
//本程序為新浪博客發布程序,由張凱博客(www.636258.live)&(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 "當前內容為:" & 內容
//_______________________________________________________________________◣內容◢
// ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗