B2B网站发布脚本一比多_发布产品
这多时间宅在家中，业务不多，各方面能力显著提高。按键精灵脚本实现的功能明显增多，发布成功的概率及自动除错工程显著提高，一次次创造个人新的高峰。
本脚本比过往脚本多出了以下功能：1.do...loop判断点颜色是否出现，出现了就跳出循环进行下一步；
2.上传本地图片是弹出窗口，抓取窗口句柄，移动至绝对坐标实现图片选择与打开。
/*
版权声明
1.本段代码由我编写，深山的鹿博客：www.noteet.com；
2.请将PC分辨率设置为1920x1080；
3.请关闭所有会弹窗的软件，如阿里旺旺、QQ，以防干扰脚本循环运行；
4.本脚本为：“一比多”发布脚本，请使用搜狗浏览器“高速模式”；
5.请打开：供求信息，每天 条；
6.
*/
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
//如果页面加载完毕进入下一步
IfColor 59, 97, "B6621C", 0 Then
Delay 50
Else
Delay 500
End If
//如果页面加载完毕进入下一步 2次
IfColor 59, 97, "B6621C", 0 Then
Delay 50
Else
Delay 500
End If
//如果内容加载完毕
IfColor 519,317 , "66FF", 0 Then
Delay 50
Else
Delay 5000
End If
//点击《发布供应信息》
MoveTo 521, 312
Delay 300
LeftClick 1
Delay 500
//移动鼠标 《发布产品信息》
IfColor 519,317 , "66FF", 0 Then
Delay 50
Else
Delay 3000
End If
//移动鼠标 《发布产品信息》 2次
IfColor 519,317 , "66FF", 0 Then
MoveTo 715, 326
Delay 300
LeftClick 1
Delay 500
Else
Delay 3000
End If
//进入发布产品
IfColor 679,321, "DDB48D", 0 Then //判断页面是否加载完成
Delay 50
Else
Delay 5000
End If
IfColor 520, 313, "66FF", 0 Then
Delay 50
Else
LeftClick 1
Delay 300
KeyPress "F5", 1
Delay 300
RestartScript
End If
//点击进入产品名称输入
MoveTo 822, 388
Delay 300
LeftClick 1
Delay 300
//点击进入产品名称输入
//写入前除错
KeyPress "A", 1
Delay 300
KeyPress "BackSpace", 1
Delay 300
//写入标题
//写入首端着关键词
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
SayString "_"
//写入随机地名
文件夹路径 ="F:\调用TXT\1.标题_地名"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
ElseIf UBound(FileEx) < 0 Then
SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无文章！"))
End If
//调用随机文档内的随机行
Text = Plugin.File.ReadFileEx(TXT路径)
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//写入中间词
文件夹路径 ="F:\调用TXT\1.标题_细节"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
ElseIf UBound(FileEx) < 0 Then
SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无文章！"))
End If
//调用随机文档内的随机行
Text = Plugin.File.ReadFileEx(TXT路径)
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//写入关键词
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//写入匹配语
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_匹配语\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
Delay 300
//复制标题
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 300
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 300
//选择自定义分类
KeyPress "Tab", 3
Delay 300
KeyPress "Down", 1
Delay 300
//输入所述品牌
KeyPress "Tab", 2
Delay 300
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_细节\品牌.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//产品型号
KeyPress "Tab", 1
Delay 300
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_细节\型号.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//产品描述
KeyPress "Tab", 2
Delay 300
//写入内容
KeyPress "A", 1
Delay 300
KeyPress "BackSpace", 1
Delay 300
//写入企业简介
文件夹路径 ="F:\调用TXT\2.内容_简介"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
内容 = Plugin.File.ReadFileEx(TXT路径)
SayString (Cstr(内容))
ElseIf UBound(FileEx) < 0 Then
SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无文章！"))
End If
//隔离段
KeyPress "Enter", 1
Delay 300
//写入句子
文件夹路径 ="F:\调用TXT\2.内容_句子"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
内容 = Plugin.File.ReadFileEx(TXT路径)
SayString (Cstr(内容))
ElseIf UBound(FileEx) < 0 Then
SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无文章！"))
End If
//隔离段
KeyPress "Enter", 1
Delay 300
//写出特定段落
文件夹路径 ="F:\调用TXT\2.内容_段落\特定"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
内容 = Plugin.File.ReadFileEx(TXT路径)
SayString (Cstr(内容))
ElseIf UBound(FileEx) < 0 Then
SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无文章！"))
End If
//隔离段
KeyPress "Enter", 1
Delay 300
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 300
//写出内容（内带移动or删除，默认移动）
文件夹路径 ="F:\调用TXT\2.内容_段落\"
FileEx = FindAllFiles(文件夹路径)
If UBound(FileEx) > 0 Then
随机文件名 = FileEx(int(rnd * UBound(FileEx)))
TXT路径 = 文件夹路径 + "\" + 随机文件名
发布后路径 =文件夹路径 + "\已使用\"+ 随机文件名
内容 = Plugin.File.ReadFileEx(TXT路径)
SayString (Cstr(内容))
Call Plugin.File.MoveFile(TXT路径, 发布后路径)
//Call Plugin.File.DeleteFile(TXT路径)//删除TXT
ElseIf UBound(FileEx) < 0 Then
SayString (Cstr("文件夹 < "+ 文件夹路径 +" > 内无文章！"))
End If
//页面下移
MoveTo 65, 960
Delay 300
LeftClick 1
Delay 300
KeyPress "PageDown", 2
Delay 300
//打开相关图片
MoveTo 845, 356
Delay 300
LeftClick 1
Delay 1000
//选择图片
Hwnd = Plugin.Window.Find(0, "打开")
cka = Plugin.Window.GetClientRect(Hwnd)
zba = split(cka, "|")
LX = clng(zba(0)) : LY = clng(zba(1))
RX = clng(zba(2)) : RY = clng(zba(3))
MoveTo LX + 114, LY + 13
LeftClick 1
Delay 300
SayString "F:\B2B网站图片及文字\历史工程\福建 光泽 直属库"
Delay 300
KeyPress "Enter", 1
Delay 300
MoveTo LX + 67, LY + 168 //点选图片
Delay 300
LeftClick 1
Delay 300
MoveTo RX - 179, RY - 30 //点击打开
Delay 300
LeftClick 1
Delay 300
//判断是否上传成功
do
IfColor 875, 293, "B88840", 0 Then
Delay 1000
Else
exit do
End If
loop
//点击发布
MoveTo 1012, 852
Delay 300
LeftClick 1
do
IfColor 64,99 , "952902", 0 Then
KeyPress "Enter", 1
Delay 300
s=Plugin.GetSysInfo.GetDateTime()
参数= s+" 一比多 产品 发布成功1篇； "
Call Plugin.File.WriteFileEx("F:\调用TXT\发布记录.txt", 参数)
exit do
Else
Delay 500
End If
loop
更多精彩
