网页按键精灵B2B网站发布脚本:百业招商网

张凯 网络杂苑>按键精灵 2018-4-8 17:48 12520字 931 1 字号: | |

本网页按键精灵发布百业招商网供应信息由张凯博客原创,并附有相关视频教程,并富有解释了调用文件、源码解释教程,如需要可在博文下方留言索取。

本代码可循环运行,但目前有还无法实现自动处理弹窗的功能。

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.aswait.com)&(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

本文链接:http://www.aswait.com/q/589.html 百度已收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

评论

  1. 曹鹏飞Google Chrome 55.0.2883.87 Windows 7 上海市闵行区 电信 2018-07-13 14:42 回复

    请问你有哪些平台的发布脚本啊?不知道你的程序是怎么个发布过程,所以想问下你有相关的发布视频吗?能发我一份吗?

发表评论

电子邮件地址不会被公开。必填项已用*标注

Ɣ回顶部
00:00 / 00:00
顺序播放