B2B网站发布脚本一比多_发布产品

归一 8年前 (2016-11-21) 按键精灵 2453人围观 6496字抢沙发百度已收录

这多时间宅在家中，业务不多，各方面能力显著提高。按键精灵脚本实现的功能明显增多，发布成功的概率及自动除错工程显著提高，一次次创造个人新的高峰。

本脚本比过往脚本多出了以下功能：
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

本站文章除注明转载/出处外，均为本站原创或翻译。若要转载请务必注明出处，尊重他人劳动成果共创和谐网络环境。

转载请注明 : 文章转载自深山的鹿 B2B网站发布脚本一比多_发布产品

本文标题：《B2B网站发布脚本一比多_发布产品》

本文链接：http://www.noteet.com/2983.html