重庆SSC自动监控发布脚本
该脚本为个人原创，将重庆SSC推荐软件上的数据转化，自动发送到Emlog建立的网站上，网址为：[2019.5.19]网址已经荒废，下面先看一下本地运行效果图：
Markup网址 = "网址已荒废"
账号 = "******"
密码 = "******"
文件地址 = "C:\开奖数据.txt"
//绑定软件进程
SSC = Plugin.Window.Find(0, "重庆SSC")
Function 当前时间
当前时间 = Plugin.Sys.GetDateTime() & " "
End Function
Function 写出数据(写入变量)
Call Plugin.File.WriteFileEx(文件地址,写入变量)
End Function
Function 获取实时数据并存档
Call Plugin.File.DeleteFile(文件地址)
Call 激活推荐软件
Call 复制推荐号码
写出数据("当前推荐购买号码：" & 推荐购买号码)
写出数据 ("--------------------------------------------------------------------------")
Call 复制开奖信息
写出数据 (开奖信息)
写出数据 ("--------------------------------------------------------------------------")
Call 复制当前计划
写出数据(当前计划)
写出数据 ("--------------------------------------------------------------------------")
Call 复制历史数据
写出数据 (历史预测信息)
//数据转HTML
内容 = Plugin.File.ReadFileEx(文件地址)
Dim 内容, 替换文本
替换文本 = Plugin.SMWH.ReplaceEx(内容, "|", "<br>", 0)
替换文本 = Plugin.SMWH.ReplaceEx(替换文本, " ", " ", 0)
Call Plugin.File.DeleteFile(文件地址)
写出数据 (替换文本)
End Function
Function 激活推荐软件
//激活并还原窗口
Call Plugin.Window.Active(SSC)
Call Plugin.Window.Restore(SSC)
//下面这句是得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(SSC)
dim MyArray
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
End Function
Function 复制开奖信息
//1.复制开奖信息
鼠标按下位置X = L + 125
鼠标按下位置Y = T + 138
鼠标弹起位置X = L + 569
鼠标弹起位置Y = T + 138
MoveTo 鼠标按下位置X,鼠标按下位置Y
Delay 300
LeftDown 1
Delay 300
MoveTo 鼠标弹起位置X,鼠标弹起位置Y
LeftUp 1
Delay 300
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 300
开奖信息 = Plugin.sys.GetCLB()
End Function
Function 复制推荐号码
//移动鼠标到指定复制位置
鼠标按下位置X = L + 965
鼠标按下位置Y = T + 230
MoveTo 鼠标按下位置X,鼠标按下位置Y
Delay 300
LeftClick 1
Delay 300
推荐购买号码 = Plugin.sys.GetCLB()
End Function
Function 复制当前计划
鼠标按下位置X = L + 213
鼠标按下位置Y = T + 629
鼠标弹起位置X = L + 492
鼠标弹起位置Y = T + 668
MoveTo 鼠标按下位置X,鼠标按下位置Y
Delay 300
LeftDown 1
Delay 300
MoveTo 鼠标弹起位置X,鼠标弹起位置Y
LeftUp 1
Delay 300
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 300
当前计划 = Plugin.sys.GetCLB()
End Function
Function 复制历史数据
鼠标按下位置X = L + 225
鼠标按下位置Y = T + 231
MoveTo 鼠标按下位置X, 鼠标按下位置Y
Delay 500
LeftClick 1
Delay 500
MoveTo 鼠标按下位置X + 20, 鼠标按下位置Y + 15
Delay 500
RightClick 1
Delay 500
MoveTo 鼠标按下位置X + 120, 鼠标按下位置Y + 50
Delay 500
LeftClick 1
Delay 500
历史预测信息 = Plugin.sys.GetCLB()
End Function
Function 网站操作
Call 获取实时数据并存档
标题 = Left(开奖信息, 32)
内容 = Plugin.File.ReadFileEx(文件地址)
'进入写文章
写文章页面 = "http://" & 网址 & "/admin/write_log.php"
Call LibE.神梦_智能填表.网页_跳转(写文章页面)
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("高级选项", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("高级选项", 1, 5)
Delay 3000
'输入标题
Call LibE.神梦_智能填表.元素_置输入框(标题, "id:title")
Delay 500
'选择分类
Call LibE.神梦_智能填表.元素_置下拉框(1, "id:sort")
Delay 1000
'点击源码
Call LibE.神梦_智能填表.元素_点击("//*[@id='post']/div[3]/div/div[1]/span[35]/span")
'输入内容
Call LibE.神梦_智能填表.元素_置输入框(内容 , "tag:TEXTAREA&type:textarea&index:0")
Delay 1000
'点击保存
Call LibE.神梦_智能填表.元素_点击("tag:INPUT&type:submit")
Delay 1000
End Function
//初始化命令库
If LibE.神梦_智能填表._初始化("", "") = False Then
MsgBox "出错，智能填表初始化失败！", 1 + 16 + 4096, "警告！"
ExitScript
End If
//启动Chrome浏览器
If LibE.神梦_智能填表.绑定("Chrome.exe") Then
//启动IE浏览器
//If LibE.神梦_智能填表.绑定("IE.exe") Then
// '获取IE浏览器句柄
// 浏览器句柄 = Plugin.Window.Find("IEFrame", 0)
Call 获取窗口大小及其他操作
//------------------------------------------------------------------------------------------------------------------------------
//开始操作(使用For循环，进行网站的循环发布)
'打开网页
当前网站后台 = "http://" & 网址 & "/admin"
Call LibE.神梦_智能填表.网页_跳转(当前网站后台)
'识别是否加载成功
Call LibE.神梦_智能填表.网页_是否就绪加强("记住我", 1, 10)
'判断网页是否加载完毕
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("记住我", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " [" & 网址 & "] 打开成功！"
Else
TracePrint "[" + 当前时间 + "] " + " [" & 网址 & "] 打开失败！"
End If
'输入账号
Call LibE.神梦_智能填表.元素_置输入框(账号, "tag:INPUT&id:user")
'输入密码
Call LibE.神梦_智能填表.元素_置输入框(密码, "tag:INPUT&id:pw")
'点击登录
Call LibE.神梦_智能填表.元素_点击("tag:INPUT&value: 登 录&index:3")
Delay 500
'判断网页是否加载完毕
Call LibE.神梦_智能填表.网页_是否就绪加强("欢迎使用", 1, 10)
文本索引 = LibE.神梦_智能填表.网页_是否就绪加强("欢迎使用", 1, 5)
If 文本索引 Then
TracePrint "[" + 当前时间 + "] " + " [" & 网址 & "] 登陆成功！"
Else
TracePrint "[" + 当前时间 + "] " + " [" & 网址 & "] 登陆失败！"
End If
//判断是否为新的一期
Do
上局期号 = 当前期号
Do
If 上局期号 <> 当前期号 Then
TracePrint "[" + 当前时间 + "] 当前期号不等于上局期号"
TracePrint "上局" + 上局期号
TracePrint "当前" + 当前期号
上局期号 = 当前期号
Call 网站操作
Exit Do
End If
Delay 1000
TracePrint "[" + 当前时间 + "] 号码一致，继续循环"
Call 激活推荐软件
Call 复制开奖信息
当前期号 = Left(开奖信息, 15)
TracePrint "[" + 当前时间 + "] 当前" + 当前期号
Delay 30000
Loop
TracePrint "再次循环"
Loop
Else
MsgBox "出错，绑定浏览器失败！", 1 + 16 + 4096, "警告！"
ExitScript
End If
//把这个代码放到脚本末尾，避免按键精灵奔溃
//Sub OnScriptExit()
// Call LibE.神梦_智能填表._销毁()
//End Sub
//Sub OnThreadExit()
// Call LibE.神梦_智能填表._销毁()
//End Sub
Function 获取窗口大小及其他操作
Delay 2000
// '获取Chrome浏览器句柄
// 浏览器句柄 = Plugin.Window.Find("Chrome_WidgetWin_1", 0)
// TracePrint "浏览器句柄为：" + 浏览器句柄
// '获取标签窗口大小
// sRect = Plugin.Window.GetClientRect(浏览器句柄)
// dim 标签坐标
// 标签坐标 = Split(sRect, "|")
// 窗口左上X = Clng(标签坐标(0)) : 窗口左上Y = Clng(标签坐标(1))
// 窗口右下X = Clng(标签坐标(2)) : 窗口右下Y = Clng(标签坐标(3))
// '设置窗口句柄大小
// Call Plugin.Window.SetClientSize(浏览器句柄, 1024, 768)
// '激活句柄
// Call Plugin.Window.Active(浏览器句柄)
'禁止弹窗
Call LibE.神梦_智能填表.网页_禁止弹窗
'禁止警报
Call LibE.神梦_智能填表.网页_禁止警报(True)
'清除Cookie
Call LibE.神梦_智能填表.清除Cookie
'清除历史记录
Call LibE.神梦_智能填表.清除历史记录
TracePrint "完成获取窗口大小及其他操作"
End Function更多精彩
wys
