新浪博客的發布軟件是基于按鍵精靈編寫的,這個腳本是半自動的。提取本地存儲的txt來輸出內容和內容的標題(就是說這個文隨機txt文章的標題)。因為是半自動的,可以手動點選上傳圖片。

這個腳本是基于軟件按鍵精靈編寫的,主要可以看一下如何使用本地指定文件夾內的隨機文章,提取它的標題,并過濾關鍵詞 

//運行網頁按鍵精靈
ProcessID = Plugin.Web.Bind("WQM.exe")
Delay 1000
If ProcessID=0 then
    MessageBox "網頁按鍵精靈沒有運行"
    EndScript
End If
Call Plugin.Web.Tips("腳本開始運行")
Call Plugin.Web.SetSize(1024, 768)
Call Plugin.Web.ScrollTo(0, 0)
//程序說明
//↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
//本程序為新浪博客發布程序,由張凱博客(www.636258.live)&(www.semb2b.cn)原創首發
Call Plugin.Msg.Tips("配置內容")
//███████請輸入網站名稱██████████
網站 = "新浪博客"
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.賬號密碼\"
特殊內容目錄 = 文件根目錄 + "2.內容其他相關\"
過濾詞目錄 = 文件根目錄 + "3.過濾\"
本地圖片目錄 = 文件根目錄 + "3.圖片"
網絡圖片目錄 = 文件根目錄 + "2.內容_圖片\"
發布記錄 = 文件根目錄 + "發布記錄\"
發布記錄txt = 發布記錄 + "發布記錄.txt"
返回網址txt = 發布記錄 + "返回網址.txt"
臨時文件目錄 = 文件根目錄 + "臨時文件\"
臨時內容txt = 臨時文件目錄 + "臨時內容.txt"
臨時標題txt = 臨時文件目錄 + "臨時標題.txt"
已使用標題txt = 臨時文件目錄 + "已使用標題.txt"
//↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
//--------------------清除IE歷史文件-------------------------
//Call Plugin.Web.ClearHistory()
//Call Plugin.Web.ClearCookie()
//打開網站輸入密碼
Call Plugin.Msg.Tips ("打開網站")
Call Plugin.Web.Go("https://login.sina.com.cn/signup/signin.php?entry=blog&r=http%3A%2F%2Fi.blog.sina.com.cn&from=referer:http%3A%2F%2Fi.blog.sina.com.cn")
//判斷頁面是否加載完畢
l = 0
While l < 3
    Num=Plugin.Web.HtmlExists("tag:id:username")
    If Num > 0 Then 
        l = 4
    Else 
        l = l + 1
        Delay 2000
    End If
    Delay 500
Wend
//登錄帳號密碼
//a.分割帳號密碼
帳號密碼文件 = 帳號密碼目錄 + 網站+".txt"
name = Plugin.File.ReadFileEx(帳號密碼文件)
arr = split(name, "|")
//b.開始輸入帳號密碼
Call Plugin.Web.HtmlInput(arr(0), "id:username")
Call Plugin.Web.HtmlInput(arr(1), "id:password")
//c.點擊登錄
Call Plugin.Web.HtmlClick("tag:INPUT&value:登 錄")
Delay 500

//-------------------------------------調用本地文件并過濾
//【1】配置標題及內容
文件夾路徑 = 文件根目錄 + "4.特殊發布\新浪博客"
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
//【2】.寫出標題及內容到臨時文件
b
Call Plugin.File.WriteFileEx(臨時標題txt, 隨機文件名)
Call Plugin.File.WriteFileEx(臨時內容txt, 內容)
//【3】.移動已經發布的文章
發布后路徑 = 文件夾路徑 +"\已發布\"+隨機文件名
Call Plugin.File.MoveFile(TXT路徑, 發布后路徑)
/*
//【4】.寫入標題>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖過濾〗
	//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, "|", vbcrlf))
    //f.輸出該txt文件
    標題 = Plugin.File.ReadFileEx(臨時標題txt)
    //標題 = Replace(標題, " ", vbcrlf)
    //g.刪除修改好的txt文件
    Call Plugin.File.DeleteFile(臨時標題txt)
*/
//【5】.寫入內容>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖過濾〗
	//a.設置過濾詞txt文件
    需要過濾的文件內容 = Plugin.File.ReadFileEx(臨時內容txt)
    過濾詞=過濾詞目錄+"簡單過濾.txt"
    word = Plugin.File.ReadFileEx(過濾詞)
    //b.每行一個分割過濾詞txt文件
    Dim keyword2
    keyword2 = Split(word, "|")
    //c.開始過濾
    If UBound(keyword2)>=0 Then
        i = 0
        For UBound(keyword2)
            new臨時內容txt = Replace(需要過濾的文件內容, keyword2(i),"" )
            i = i + 1
        Next
    End If
    //d.刪除原txt文件
    Call Plugin.File.DeleteFile(臨時內容txt)
    //e.新建分割好的txt文件
    Call Plugin.File.WriteFileEx(臨時內容txt, Replace(new臨時內容txt, "|", vbcrlf))
    //f.輸出該txt文件
    內容 = Plugin.File.ReadFileEx(臨時內容txt)
    //內容 = Replace(內容, " ", vbcrlf)
    //g.刪除修改好的txt文件
    Call Plugin.File.DeleteFile(臨時內容txt)
//----------------------------------------------------------------------------------------
Call Plugin.Msg.Tips ("打開網站")
Call Plugin.Web.Go("http://control.blog.sina.com.cn/admin/article/article_add.php")
//判斷頁面是否加載完畢
l = 0
While l < 3
    Num=Plugin.Web.HtmlExists("id:articlePostBtn")
    If Num > 0 Then 
        l = 4
    Else 
        l = l + 1
        Delay 2000
    End If
    Delay 500
Wend
Delay 500
//輸入標題
Plugin.Web.LeftClick 130, 100
Delay 500
Call Plugin.Web.SendString(標題)
Delay 500
//輸入內容
Plugin.Web.LeftClick 450, 290
Delay 300
Call Plugin.Web.SendString(Replace(內容, "|", vbcrlf))

上述代碼由按鍵精靈編寫,本人原創。

如需測試使用上文中腳本,請與站長聯系!