网页按键精灵B2B网站发布脚本：100招商网

本网页按键精灵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.noteet.com）&(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