本網頁按鍵精靈發布百業招商網供應信息由張凱博客原創,并附有相關視頻教程,并富有解釋了調用文件、源碼解釋教程,如需要可在博文下方留言索取。

本代碼可循環運行,但目前有還無法實現自動處理彈窗的功能。

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)
//↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘↘
/*---------------------------------------------------------------------------------------------------------------軟件初始化
本程序為100招商網發布程序,由張凱博客(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"
發布后路徑 = 文件根目錄 + "2.內容_文章\已發\"
臨時文件目錄 = 文件根目錄 + "臨時文件\"
臨時內容txt = 臨時文件目錄 + "臨時內容.txt"
臨時標題txt = 臨時文件目錄 + "臨時標題.txt"
已使用標題txt = 臨時文件目錄 + "已使用標題.txt"
//↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
//--------------------清除IE歷史文件-------------------------
//Call Plugin.Web.ClearHistory()
Call Plugin.Web.ClearCookie()
//a打開網站
Call Plugin.Msg.Tips ("打開網站")
Call Plugin.Web.Go("http://www.baiye5.com/do/login.php")
//判斷頁面是否加載完畢
l = 0
While l < 3
    Num=Plugin.Web.HtmlExists("id:login-email-address")
    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), "name:username")
Call Plugin.Web.HtmlInput(arr(1), "name:password")
//c.點擊登錄
Call Plugin.Web.HtmlClick("type:radio&value:315360000")
Call Plugin.Web.HtmlClick("tag:INPUT&name:Submit3")
Delay 500
//↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
do
//_______________________________________________________________________◤標題◥
//【1】.寫入標題>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖地名〗
//a.調用地名文本
文件夾路徑 = 文件根目錄 + "1.標題_地名"
FileEx = FindAllFiles(文件夾路徑)
If UBound(FileEx) > 0 Then
    隨機文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路徑 = 文件夾路徑 + "\" + 隨機文件名
End If
//b.調用隨機文檔內的隨機行
Text = Plugin.File.ReadFileEx(TXT路徑)
MyArray = Split(Text, "|")
//c.寫出標題到臨時文件
Call Plugin.File.WriteFileEx(臨時標題txt, MyArray(Int((UBound(MyArray) * Rnd) + 0)))
//【2】.寫入標題>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖關鍵詞〗
//a.調用txt文件內的隨機一行
Text = Plugin.File.ReadFileEx(文件根目錄 +"1.標題_關鍵詞\屋面.txt")
MyArray = Split(Text, "|")
//b.寫出標題到臨時文件
Call Plugin.File.WriteFileEx(臨時標題txt, MyArray(Int((UBound(MyArray) * Rnd) + 0)))
//【3】.寫入標題>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖細節〗
//a.調用隨機一個細節文本
文件夾路徑 = 文件根目錄 + "1.標題_細節"
FileEx = FindAllFiles(文件夾路徑)
If UBound(FileEx) > 0 Then
    隨機文件名 = FileEx(int(rnd * UBound(FileEx)))
    TXT路徑 = 文件夾路徑 + "\" + 隨機文件名
End If
//b.調用隨機文檔內的隨機行
Text = Plugin.File.ReadFileEx(TXT路徑)
MyArray = Split(Text, "|")
//c.寫出標題到臨時文件
Call Plugin.File.WriteFileEx(臨時標題txt, MyArray(Int((UBound(MyArray) * Rnd) + 0)))
//【4】.寫入標題>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>〖匹配語〗
//a.調用txt文件內的隨機一行
Text = Plugin.File.ReadFileEx(文件根目錄 +"1.標題_匹配語\屋面.txt")
MyArray = Split(Text, "|")
//b.寫出標題到臨時文件
Call Plugin.File.WriteFileEx(臨時標題txt, MyArray(Int((UBound(MyArray) * Rnd) + 0)))
//【5】.刪除臨時標題文件
//a.讀取臨時標題txt文件內容
標題 = Plugin.File.ReadFileEx(臨時標題txt)
//b.將標題文件內容去換行
標題 = Replace(標題, "|", "")
//c.刪除臨時文件txt
Plugin.File.DeleteFile 臨時標題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, 內容)
//【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, 內容)
//【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, 內容)
//【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路徑, 發布后路徑)
//【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, "|", vbcrlf))
//f.輸出該txt文件
內容 = Plugin.File.ReadFileEx(臨時內容txt)
//內容 = Replace(內容, " ", vbcrlf)
//g.刪除修改好的txt文件
Call Plugin.File.DeleteFile(臨時內容txt)
//_______________________________________________________________________◣內容◢
//_______________________________________________________________________◤本地圖片◥
FileEx = FindAllFiles(本地圖片目錄)
If UBound(FileEx) > 0 Then
    隨機本地圖片名 = FileEx(int(rnd * UBound(FileEx)))
    本地圖片 = 本地圖片目錄 + "\" + 隨機本地圖片名
End If
//_______________________________________________________________________◣本地圖片◢
//_______________________________________________________________________◤公用圖片◥
Text = Plugin.File.ReadFileEx(網絡圖片目錄 + "公用圖片.txt")
Text= Split(Text, "|")
公用圖片 = Text(Int((UBound(Text) * Rnd) + 0))
//_______________________________________________________________________◣公用圖片◢
//_______________________________________________________________________◤網絡圖片◥ 
Text = Plugin.File.ReadFileEx(網絡圖片目錄 +網站+".txt")
Text = Split(Text, "|")
網絡圖片 = Text(Int((UBound(Text) * Rnd) + 0))
//_______________________________________________________________________◣網絡圖片◢
//-------------------------------------------------------------------------------------------------------------軟件設置完畢
// ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗ ↗
//↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
//-------------------------------------登陸完成,開始發布
//開始發布供應
Call Plugin.Msg.Tips ("發布供應")
Call Plugin.Web.Go("http://aks.baiye5.com/f/post.php?fid=611")
//判斷頁面是否加載完畢
l = 0
While l < 3
    Num=Plugin.Web.HtmlExists("tag:INPUT&name:Submit")
    If Num > 0 Then 
        l = 4
    Else 
        l = l + 1
        Delay 2000
    End If
    Delay 500
Wend
//---------------------------------------------------------內容正式發布
//1.輸入標題
Call Plugin.Web.HtmlInput(標題, "id:atc_title")
Delay 300
//2.輸入網絡圖片
Call Plugin.Web.HtmlInput(公用圖片, "id:out_url1")
Delay 300
//3.輸入關鍵詞
Call Plugin.Web.HtmlInput(new關鍵詞, "id:atc_keywords")
Delay 300
//4.點擊企業資料
Plugin.Web.HtmlClick ("type:radio&value:3")
Delay 300
//5.輸入內容
Call Plugin.Web.HtmlInput(內容, "id:atc_content")
Delay 300
//6.點擊發布
Plugin.Web.HtmlClick ("tag:INPUT&name:Submit")
Delay 5000
//7.輸出成功網址
Num=Plugin.Web.HtmlExists("id:skeyword")
If Num > 0 Then 
    成功標題 = Plugin.Web.GetTitle()
    當前時間 = Plugin.Sys.GetDateTime
	成功網址=Plugin.Web.GetURL()
    Call Plugin.File.WriteFileEx(發布記錄txt, 當前時間 + " " + 網站 + " 發布成功:" + 成功標題)
    Call Plugin.File.WriteFileEx(網址txt, 成功網址)
End If
//8.關閉當前標簽
Call Plugin.Web.TabClose()
//↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
loop
Sub OnScriptExit()
    Call Plugin.Web.Tips("腳本停止運行")
End Sub