B2B网站发布脚本机电之家_供应发布

归一 8年前 (2016-10-23) 按键精灵 2534人围观 13561字抢沙发百度已收录

本脚本由我编写于2016年10月23日，适用于B2B行业网站“机电之家”之“供应信息发布”，下文按键精灵源码：
特别提示：亲自行替换读取文件后“”内的内容，此为读取后台TXT文本所在文件夹的路径；

/*
版权声明 
1.本段代码由我编写，深山的鹿博客：www.noteet.com；
2.请将PC分辨率设置为1920x1080；
3.请关闭所有会弹窗的软件，如阿里旺旺、QQ，以防干扰脚本循环运行；
4.本脚本为：“ 机电之家——供应信息 ”发布脚本，请使用搜狗浏览器“高速模式”；
*/
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
//点击供应信息管理
MoveTo 87, 279
Delay 300
LeftClick 1
Delay 1500
//点击供应信息
MoveTo 712, 301
Delay 300
LeftClick 1
Delay 1500
//页面上移
MoveTo 230, 401
Delay 300
LeftClick 1
Delay 300
KeyPress "Home", 1
Delay 300
//点击进入产品名称输入
MoveTo 477, 340
LeftClick 1
Delay 300
LeftClick 1
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
//Tab 2次 进入企业分类
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
Delay 300
//下移到“无梁拱”
KeyPress "Down", 1
Delay 300
KeyPress "Down", 1
Delay 300
//Tab 3次 输入参考价格
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
Delay 300
SayString "130"
Delay 300
//Tab 2次 输入计量单位
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
Delay 300
SayString "平方米"
Delay 300
//Tab 1次 输入产地
KeyPress "Tab", 1
Delay 300
//写入随机地名
文件夹路径 ="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))
//Tab 1次 输入品牌
KeyPress "Tab", 1
Delay 300
//写入关键词
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//Tab 1次 输入型号规格
KeyPress "Tab", 1
Delay 300
文件夹路径 ="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))
//Tab 1次 输入编号
KeyPress "Tab", 1
Delay 300
A = rnd()*99500
B = A + 500
//双精度浮点数，转换成整型数。
A = int(A)
B = int(B)
TracePrint "0-99000以内的随机数:"&A
TracePrint "500-10000以内的随机数:"&B
Delay 1000
SayString A
//Tab 1次 输入发货地
KeyPress "Tab", 1
Delay 300
SayString "盐城"
Delay 300
//Tab 2次选择行业
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
Delay 300
KeyPress "Down", 40
Delay 300
//点击选择图片
MoveTo 501, 549
Delay 300
LeftClick 1
Delay 300
//随机1
Randomize
a=Int((0 - 9 + 1) * Rnd + 13)
If a = 1 Then 
    MoveTo 494, 601
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 2 Then 
    MoveTo 605, 598
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 3 Then 
    MoveTo 685, 604
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 4 Then 
    MoveTo 778, 603
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 5 Then 
    MoveTo 494, 690
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 6 Then 
    MoveTo 594, 701
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 7 Then 
    MoveTo 594, 701
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 8 Then 
    MoveTo 683, 693
    Delay 300
    LeftClick 1
    Delay 500
End If
If a = 9 Then 
    MoveTo 781, 702
    Delay 300
    LeftClick 1
    Delay 500
End If
//点选资料
MoveTo 964, 548
Delay 300
LeftClick 1
Delay 300
MoveTo 1012, 597
Delay 300
LeftClick 1
Delay 300
//点击输入自定义下载名称
MoveTo 510, 581
Delay 300
LeftClick 1
Delay 300
//写入关键词
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//点选文档
MoveTo 970, 583
Delay 300
LeftClick 1
Delay 300
MoveTo 966, 630
Delay 300
LeftClick 1
Delay 300
//输入详细说明
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
Delay 300
KeyPress "Tab", 1
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 971, 899
Delay 300
LeftClick 1
Delay 1500

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

转载请注明 : 文章转载自深山的鹿 B2B网站发布脚本机电之家_供应发布

本文标题：《B2B网站发布脚本机电之家_供应发布》

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