B2B网站发布脚本志趣网_产品信息[2]+发布供应[3]

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

本脚本为志趣网产品信息发布脚本，旧的脚本之前由发过，由于志趣网只能发布两条产品信息和三条供应信息，所以之前并没有太把它当回事。但因为志趣网不需要发布分类，并且发布时不需要验证码，所以本次对志趣网的两个脚本进行升级。

本脚本增加了自动添加图片，自动点击立刻发布并输出发布成功日志，自动识别发布错误这三个功能。

先说说第一个“志趣网_产品信息[2]”脚本

/*
版权声明 
1.本段代码由我编写，深山的鹿博客：www.noteet.com；
2.请将PC分辨率设置为1920x1080；
3.请关闭所有会弹窗的软件，如阿里旺旺、QQ，以防干扰脚本循环运行；
4.本脚本为：“志趣网产品信息”发布脚本，请使用搜狗浏览器“高速模式”；
5.请打开：产品信息，每天2条。
*/
//调用文件取文件名函数
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 1489, 918
Delay 450
LeftClick 1
Delay 450
KeyPress "PageUp", 1
Delay 450
//点击发布供应信息
MoveTo 997, 330
Delay 450
LeftClick 1
Delay 450
//点击发布信息
MoveTo 735, 370
Delay 450
LeftClick 1
Delay 450
Do
    IfColor 821, 434, "CCFFFF", 0 Then
        exit do
    Else 
        Delay 300
    End If
Loop
//点击进入信息标题输入
MoveTo 857, 431
Delay 450
LeftClick 1
Delay 450
//写入标题
//写入首端着重语
SayString "屋顶_"
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))
//写入中间词
文件夹路径 ="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))
//全选
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 388
//复制
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 388
//键入Tab两次输入关键词
KeyPress "Tab", 2
Delay 388
//输入关键词
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
SayString " "
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
SayString " "
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
Delay 388
//键入进行信息内容的输入
MoveTo 1300, 758
Delay 450
LeftClick 1
Delay 450
//写入内容
//写入企业简介
文件夹路径 ="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
//写入句子
文件夹路径 ="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
//写出特定段落
文件夹路径 ="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
//写出内容（内带移动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
//隔离段
KeyPress "Enter", 1
Delay 300
//写出号码
Text = Plugin.File.ReadFileEx("F:\调用TXT\号码.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
SayString (Cstr(Var(行数)))
//键入Tab输入产地
KeyPress "Tab", 1
Delay 350
SayString "江苏盐城"
Delay 350
//键入Tab输入原产地
KeyPress "Tab", 1
Delay 350
SayString "TS280高强914板材"
Delay 350
//键入Tab输入计量单位
KeyPress "Tab", 1
Delay 350
SayString "平方米"
Delay 350
//键入Tab输入零售价格
KeyPress "Tab", 1
Delay 350
SayString "140"
Delay 350
//键入Tab输入批发价格
KeyPress "Tab", 1
Delay 350
SayString "120"
Delay 350
//键入Tab输入供货能力
KeyPress "Tab", 1
Delay 350
SayString "99999"
Delay 350

//页面下移
MoveTo 19, 879
Delay 350
LeftClick 1
Delay 350
KeyPress "PageDown", 1
Delay 350

//点击图片上传
IfColor 828, 686, "EAEAEA", 0 Then
    MoveTo 822, 688
    Delay 350
    LeftClick 1
    Delay 350
Else 
    EndScript
End If
//选择图片
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
MoveTo 990, 744
Delay 300
LeftClick 1
Delay 300
s=Plugin.GetSysInfo.GetDateTime()    
参数=  s+" 志趣网 产品信息 发布成功1篇；   " 
Call Plugin.File.WriteFileEx("F:\调用TXT\发布记录.txt", 参数)

MoveTo 723, 731
Delay 300
LeftClick 1
Delay 300

//识别网站是否加载完成
Do
    IfColor 58, 94, "C0EE4", 0 Then
        Exit Do
    Else 
        Delay 500
    End If
Loop

//页面识别
KeyPress "PageUp", 2
Delay 500


IfColor 797, 356, "0", 0 Then
KeyPress "F5", 1
Delay 500
RestartScript
Delay 500
Else 
Delay 50
End If

IfColor 703,358,"FF",0 Then
    EndScript
Else 
    Delay 500
End If

再说说第二个“志趣网_发布供应[3]”脚本

/*
版权声明 
1.本段代码由我编写，深山的鹿博客：www.noteet.com；
2.请将PC分辨率设置为1920x1080；
3.请关闭所有会弹窗的软件，如阿里旺旺、QQ，以防干扰脚本循环运行；
4.本脚本为：“按键精灵发布供应”发布脚本，请使用搜狗浏览器“高速模式”；
5.请打开：发布供应，每天3条。
*/

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
//识别网站是否加载完成
Do
    IfColor 58, 94, "C0EE4", 0 Then
        Exit Do
    Else 
        Delay 500
    End If
Loop
//页面上移
MoveTo 1489, 918
Delay 450
LeftClick 1
Delay 450
KeyPress "PageUp", 1
Delay 450

//点击发布供应信息
MoveTo 892, 328
Delay 450
LeftClick 1
Delay 450

//点击发布信息
MoveTo 735, 370
Delay 450
LeftClick 1
Delay 450

//点击进入信息标题输入
MoveTo 976, 437
Delay 450
LeftClick 1
Delay 450

//写入标题
//写入首端着重语
SayString "屋面_"
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))
//写入中间词
文件夹路径 ="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))
//全选
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 388
//复制
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 388
//键入Tab两次输入关键词
KeyPress "Tab", 2
Delay 388

//输入关键词
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_关键词\屋面.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//键入进行信息内容的输入
MoveTo 1300, 758
Delay 450
LeftClick 1
Delay 450
//写入内容
//写入企业简介
文件夹路径 ="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
//写入句子
文件夹路径 ="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
//写出特定段落
文件夹路径 ="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
//写出内容（内带移动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

//键入Tab输入产品规格
KeyPress "Tab", 1
Delay 350
Text = Plugin.File.ReadFileEx("F:\调用TXT\1.标题_细节\通用型号.txt")
MyArray = Split(Text, "|")
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
//键入Tab输入产品规格
KeyPress "Tab", 1
Delay 350
SayString "120元/平方"
Delay 350
//键入Tab输入产品数量
KeyPress "Tab", 1
Delay 350
SayString "99999"
Delay 350

//页面下移
MoveTo 19, 879
Delay 350
LeftClick 1
Delay 350
KeyPress "PageDown", 1
Delay 350

//点击图片上传
IfColor 828, 686, "EAEAEA", 0 Then
    MoveTo 822, 688
    Delay 350
    LeftClick 1
    Delay 888
Else 
    EndScript
End If
//选择图片
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 500
MoveTo LX + 67, LY + 168 //点选图片
Delay 300
LeftClick 1
Delay 500
MoveTo RX - 179, RY - 30 //点击打开
Delay 300
LeftClick 1
Delay 800
MoveTo 990, 744
Delay 300
LeftClick 1
Delay 800
s=Plugin.GetSysInfo.GetDateTime()    
参数=  s+" 志趣网 产品信息 发布成功1篇；   " 
Call Plugin.File.WriteFileEx("F:\调用TXT\发布记录.txt", 参数)

MoveTo 723, 731
Delay 300
LeftClick 1
Delay 800

//识别网站是否加载完成
Do
    IfColor 58, 94, "C0EE4", 0 Then
        Exit Do
    Else 
        Delay 500
    End If
Loop

//页面识别
KeyPress "PageUp", 2
Delay 500


IfColor 797, 356, "0", 0 Then
KeyPress "F5", 1
Delay 500
RestartScript
Delay 500
Else 
Delay 50
End If

IfColor 703,358,"FF",0 Then
    EndScript
Else 
    Delay 500
End If

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

转载请注明 : 文章转载自深山的鹿 B2B网站发布脚本志趣网_产品信息[2]+发布供应[3]

本文标题：《B2B网站发布脚本志趣网_产品信息[2]+发布供应[3]》

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