B2B网站发布脚本马可波罗_动态添加
适用于马可波罗之企业动态添加，自动判断成功与否并输出提示。
/*
版权声明
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
//点击动态添加
MoveTo 593, 436
Delay 300
LeftClick 1
Delay 300
//判断是否代开页面
IfColor 718, 319, "2928CC", 0 Then
Delay 50
Else
LeftClick 1
Delay 1500
RestartScript
End If
//点击标题
MoveTo 765, 320
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
//Tab1次出入内容
KeyPress "Tab", 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 779, 844
Delay 300
LeftClick 1
Delay 1000
KeyPress "Enter", 1
Delay 1000
//判断
IfColor 1347,258, "A35321", 0 Then
Delay 50
Else
KeyPress "Enter", 1
Delay 3000
End If
IfColor 582,397, "C86E45", 0 Then
s=Plugin.GetSysInfo.GetDateTime()
参数= s+" 马可波罗_公司动态 发布成功1篇； "
Call Plugin.File.WriteFileEx("F:\调用TXT\发布记录.txt", 参数)
Else
Delay 50
KeyPress "F5", 1
End If
更多精彩
wys
