重庆SSC自动监控发布脚本

张凯 网络杂苑>网络赌博 2018-10-24 8:21 6762字 311 0 字号: | |

    该脚本为张凯个人原创,将重庆SSC推荐软件上的数据转化,自动发送到Emlog建立的网站上,网址为:http://www.6666688888.top,下面先看一下本地运行效果图:

屏幕截图(17).png


网址 = "www.6666688888.top"
账号 = "******"
密码 = "******"
文件地址 = "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(替换文本, "	", "&nbsp;&nbsp;&nbsp;&nbsp;", 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


本文链接:http://www.aswait.com/db/836.html 百度未收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

发表评论

电子邮件地址不会被公开。必填项已用*标注

Ɣ回顶部
00:00 / 00:00
顺序播放