本網頁按鍵精靈B2B網站發布100招商網的腳本使用點擊網頁元素和鼠標坐標的操作發布信息,由張凱博客原創首發,可輸出發布記錄和成功網址,但并不完美,僅供參考。

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("配置內容")
//███████請輸入網站名稱██████████
網站 = "100招商網"
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://fabu.zhaoshang100.com/user_login.jsp")
//判斷頁面是否加載完畢
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), "id:login-email-address")
Call Plugin.Web.HtmlInput(arr(1), "id:login-password")
//c.點擊登錄
Call Plugin.Web.HtmlClick("id:submit")
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://fabu.zhaoshang100.com/")
    //判斷頁面是否加載完畢
    l = 0
    While l < 3
        Num=Plugin.Web.HtmlExists("tag:A&txt:發布產品&frame:1")
        If Num > 0 Then 
            l = 4
        Else 
            l = l + 1
            Delay 2000
        End If
        Delay 500
    Wend
    //點擊發布供應
    Call Plugin.Web.HtmlClick("tag:A&txt:發布產品&frame:1")
    Delay 1000
    //判斷頁面是否加載完畢
    l = 0
    While l < 3
        Num=Plugin.Web.HtmlExists("tag:INPUT&value:填好了,發布信息&index:1&frame:2")
        If Num > 0 Then 
            l = 4
        Else 
            l = l + 1
            Delay 2000
        End If
        Delay 500
    Wend
    //1.輸入標題
    Plugin.Web.LeftClick 300, 335
    Call Plugin.Web.SendString(標題)
    Delay 1000
    //2.輸入價格
    Plugin.Web.LeftClick 330, 385
    Call Plugin.Web.SendString("135")
    Delay 1000
    //3.輸入內容
    Plugin.Web.LeftClick 340, 460
    Call Plugin.Web.SendString(Replace(內容, "|", vbcrlf))
    Delay 1000
    //輸入圖片
    //1.頁面下移
    Plugin.Web.LeftClick 745, 230
    Delay 1000
    Call Plugin.Web.KeyDown(34)
    Delay 1000
    //2.點擊發布圖片
    Plugin.Web.LeftClick 490, 220
    Delay 1000
    //3.點擊圖片地址
    Plugin.Web.LeftClick 495, 290
    Delay 500
    //4.輸入圖片網址
    Call Plugin.Web.SendString(公用圖片)
    //6.點擊添加圖片關鍵詞
    Plugin.Web.LeftClick 525, 390
    Delay 1000
    Call Plugin.Web.SendString(new關鍵詞)
    Delay 1000
    //7.點擊確定
    Plugin.Web.LeftClick 720, 470
    Delay 1000
    //8.點擊增加圖片
    Plugin.Web.LeftClick 775, 480
    //9.點擊發布
    Plugin.Web.LeftClick 340, 575
    Delay 7000
     Plugin.Web.LeftClick 527, 314
    //識別成功網址(2)
    //b.儲存上一條url
    //1.打開發布網址
    Call Plugin.Web.Go("http://fabu.zhaoshang100.com/")
    Delay 500
    //2.進行供應管理
    Call Plugin.Web.HtmlClick("tag:A&txt:管理&index:1&frame:1")
    Delay 500
    //3.識別產品管理頁面是否加載成功
    l = 0
    While l < 3
        Num=Plugin.Web.HtmlExists("tag:A&txt:尾頁&frame:2")
        If Num > 0 Then 
            l = 4
        Else 
            l = l + 1
            Delay 2000
        End If
        Delay 500
    Wend
    //4.點擊第一條供應信息
    Call Plugin.Web.LeftClick(400,175)
    Delay 500 
    //5.判斷信息頁面是否加載完畢
    l = 0
    While l < 3
        Num=Plugin.Web.HtmlExists("tag:BUTTON&value:搜索")
        If Num > 0 Then 
            l = 4
        Else 
            l = l + 1
            Delay 2000
        End If
        Delay 500
    Wend
    //6.獲取當前網頁網址
    成功網址 = Plugin.Web.GetURL()
    //7.循環,如果是最新網址不同則輸出  
    if 成功網址<>"http://fabu.zhaoshang100.com"
        成功標題 = Plugin.Web.GetTitle()
        當前時間 = Plugin.Sys.GetDateTime 
        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