按键脚本:自动购买_助赢软件[高倍]

张凯 网络杂苑>营销神器 2019-3-6 14:59 27832字 56分钟 585 0 字号: | |

通过调用助赢软件上的计划进行自动博彩,自动追高倍。不过由于助赢软件的计划是随机的,有运气成分在内,所以不建议使用,该代码仅供参考。

助赢软件.png

//本脚本有浏浏览器期号是否更新的验算
打法 = 5 //2就是打2期,3就是打三期
基数 = 1 //放大的基数
窗口名称 = "万法归宗"
对话窗口 = "QQ"				// QQ / 微信 
购彩金额 = "角"// 元 / 角
//告知用户设置好的数据
TracePrint "本次软件输出对话窗口方式为:" & 对话窗口 & ";名称为:" & 窗口名称
TracePrint "本次软件输打法为追[" & 打法 & "]期,需要准备的本金为[" & 3870 * 基数 & "]元"
//************************************************************************************************************************************************************推荐软件
'推荐软件操作
'当前推荐软件为:助赢软件(注:保守打法:仅适用于2.3.4期稳定打,亏损有限,盈利较慢)
'[推荐软件操作] : 1.激活;2.推荐号转化为元素;3.获取当前追号期数;4.取消置顶(通用)
Function 推荐软件操作
    Call Plugin.Window.Top(推荐软件, 0)
    Delay 300
    '推荐号转化为元素
    Call 激活推荐软件
    Delay 300
    Call 复制推荐号码
    Delay 300
    Call 推荐值转化
    Delay 300
    Call 五星元素匹配
    Delay 300
    '获取当前追号期数
    Call 获取当前追号期数
    Delay 300
    Call 追号期数转化(当前追号期数)
    Delay 300
    Call Plugin.Window.Top(推荐软件, 1)
    Delay 300
End Function
'[激活推荐软件] : 激活并还原推荐软件,获取窗口大小(通用)
Function 激活推荐软件
    '1.激活并还原窗口
    Call Plugin.Window.Active(推荐软件)
    Delay 300
    Call Plugin.Window.Restore(推荐软件)
    Delay 300
    '2.下面这句是得到窗口句柄的客户区大小   
    sRect = Plugin.Window.GetClientRect(推荐软件)
    Delay 300
    dim MyArray   
    MyArray = Split(sRect, "|")   
    L = Clng(MyArray(0)): T = Clng(MyArray(1))   
    R = Clng(MyArray(2)) : B = Clng(MyArray(3))
    Delay 500
End Function
//----------------------------------------------------------
'[公式重选] : 1.激活软件;2.进行重选操作;3.修改计划周期
Function 公式重选
    TracePrint "[" & 当前时间 & "] 推荐软件_重选公式:定码万位[" & 打法 & "]期"
    Call 激活推荐软件
    '1.点击关闭当前公式
    鼠标按下位置X = L + 354
    鼠标按下位置Y = T + 172
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 500
    '2.点击全部折叠
    鼠标按下位置X = L + 182
    鼠标按下位置Y = T + 170
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 500
    '3.点击展开定位胆系列
    鼠标按下位置X = L + 25
    鼠标按下位置Y = T + 193
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 500
    '4.点击万位定码
    鼠标按下位置X = L + 52
    鼠标按下位置Y = T + 219
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 3000
    '6.修改计划周期
    鼠标按下位置X = L + 515
    鼠标按下位置Y = T + 200
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 2000
    LeftClick 1
    Delay 300
    '5.判断打法
    KeyPress "BackSpace", 1
    Delay 300
    SayString 打法
    Delay 300
    KeyPress "Enter", 1
    Delay 3000
End Function
//----------------------------------------------------------
//推荐软件_复制操作
'[复制开奖信息]
Function 复制开奖信息
    '复制开奖信息
    鼠标按下位置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()
    Delay 300
End Function
'[复制推荐号码] : [推荐号码]
Function 复制推荐号码
    '移动鼠标到指定复制位置
    鼠标按下位置X = L + 960
    鼠标按下位置Y = T + 230
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    推荐号码 = Plugin.sys.GetCLB()
    Delay 300
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()
    Delay 300
End Function
'[复制历史数据] 
Function 复制历史数据
    TracePrint  "["  & 当前时间 & "] 推荐软件_复制历史数据"
    鼠标按下位置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()
    Delay 300
End Function 
//----------------------------------------------------------
//推荐软件_转化
'[获取当前追号期数] : [当前追号期数]
Function 获取当前追号期数
    Call 激活推荐软件
    Delay 300
    Call 复制当前计划
    Delay 300
    '获取当前追号期数 
    当前追号期数 = Right(当前计划, 2)
    TracePrint "当前追号期数为:" & 当前追号期数
    Delay 300
End Function
//----------------------------------------------------------
'[追号期数转化(当前追号期数)]
Function 追号期数转化(当前追号期数)
    TracePrint  "["  & 当前时间 & "] 数据转化_追号期数转化_1/3/6/12"
    If 当前追号期数 = "1期" Then 
        倍数 = 1
    ElseIf 当前追号期数 = "2期" Then
        倍数 = 3
    ElseIf 当前追号期数 = "3期" Then
        倍数 = 6
    ElseIf 当前追号期数 = "4期" Then
        倍数 = 12
    ElseIf 当前追号期数 = "5期" Then
        倍数 = 24
    ElseIf 当前追号期数 = "6期" Then
        倍数 = 48
    ElseIf 当前追号期数 = "7期" Then
        倍数 = 97
    ElseIf 当前追号期数 = "8期" Then
        倍数 = 196
    ElseIf 当前追号期数 = "9期" Then
        倍数 = 396
    End If
    TracePrint "当前是第[" & 当前追号期数 & "]期,选择了翻[" & 倍数 & "]倍"
End Function
//************************************************************************************************************************************************************推荐软件
//==========================================================================================================================通用
'下面是通用函数对
Function 当前时间
    当前时间 = Plugin.Sys.GetDateTime() & " "
End Function
Function 查找并绑定窗口句柄
    TracePrint "[" & 当前时间 & "] 查找并绑定各级窗口句柄"
    '1.绑定推荐软件
    推荐软件 = Plugin.Window.Find(0, "重庆时时彩")
    Delay 300
    '2.绑定浏览器
    浏览器 = Plugin.Window.Find(0, "- 重庆时时彩 - 彩票系统 - Google Chrome")
    Delay 300
    '3.绑定微信
    微信 = Plugin.Window.Find("ChatWnd", 窗口名称)
    Delay 300
    '4.绑定QQ
    QQ = Plugin.Window.Find("TXGuiFoundation", 窗口名称)
    Delay 300	
End Function
//----------------------------------------------------------
'运行以下代码需要获取:【推荐号码 】;以下代码将推荐的号码转换成可点击的网页元素代码 
'[推荐值转化] : [上局推荐购买号码] (通用)
Function 推荐值转化
    dim 推荐购买数组   
    推荐购买数组 = Split(推荐号码, " ")   
    推荐购买一 = Clng(推荐购买数组(0))
    推荐购买二 = Clng(推荐购买数组(1))
    推荐购买三 = Clng(推荐购买数组(2))
    推荐购买四 = Clng(推荐购买数组(3))
    推荐购买五 = Clng(推荐购买数组(4))
    Delay 300
    上局推荐购买号码 = 推荐号码
End Function
'[五星元素匹配] (通用)
Function 五星元素匹配
    '万位元素
    万零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(1) > a"
    万一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(2) > a"
    万二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(3) > a"
    万三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(4) > a"
    万四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(5) > a"
    万五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(6) > a"
    万六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(7) > a" 
    万七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(8) > a" 
    万八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(9) > a" 
    万九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(10) > a"
    '千位元素
    千零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(1) > a"
    千一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(2) > a"
    千二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(3) > a"
    千三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(4) > a"
    千四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(5) > a"
    千五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(6) > a"
    千六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(7) > a" 
    千七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(8) > a" 
    千八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(9) > a" 
    千九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(10) > a"
    '百位元素
    百零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(1) > a"
    百一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(2) > a"
    百二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(3) > a"
    百三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(4) > a"
    百四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(5) > a"
    百五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(6) > a"
    百六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(7) > a" 
    百七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(8) > a" 
    百八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(9) > a" 
    百九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(10) > a"
    '十位元素
    十零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(1) > a"
    十一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(2) > a"
    十二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(3) > a"
    十三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(4) > a"
    十四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(5) > a"
    十五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(6) > a"
    十六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(7) > a" 
    十七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(8) > a" 
    十八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(9) > a" 
    十九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(10) > a"
    '个位元素
    个零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(1) > a"
    个一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(2) > a"
    个二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(3) > a"
    个三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(5) > a"
    个四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(5) > a"
    个五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(6) > a"
    个六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(7) > a" 
    个七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(8) > a" 
    个八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(9) > a" 
    个九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(10) > a"
End Function
'[推荐购买匹配()] (通用)
Function 推荐购买匹配(推荐购买)
    Call 五星元素匹配
    If 推荐购买 = 0 Then 
        元素 = 万零
    ElseIf 推荐购买 = 1 Then
        元素 = 万一
    ElseIf 推荐购买 = 2 Then
        元素 = 万二
    ElseIf 推荐购买 = 3 Then
        元素 = 万三
    ElseIf 推荐购买 = 4 Then
        元素 = 万四
    ElseIf 推荐购买 = 5 Then
        元素 = 万五
    ElseIf 推荐购买 = 6 Then
        元素 = 万六
    ElseIf 推荐购买 = 7 Then
        元素 = 万七
    ElseIf 推荐购买 = 8 Then
        元素 = 万八
    ElseIf 推荐购买 = 9 Then
        元素 = 万九
    End If
End Function
//==========================================================================================================================循环体
'[一期判断] : 如果当前为1期则重新选择一个公式
Function 一期判断
    Call 获取当前追号期数
    If 当前追号期数 = "1期" Then 
        TracePrint "上局中奖啦!现在又是第一期!"
        上一局余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
        //Call 公式重选
        Delay 300
    End If	
End Function
//----------------------------------------------------------
'循环体_循环
'[核心循环] : 通过判断当前浏览器开奖期号判断是否需要进行购彩操作
Function 核心循环
    '进入循环前的数据校验
    当前浏览器开奖期号 = 上局浏览器开奖期号
    当前推荐软件开奖期号 = 上局推荐软件开奖期号
    '循环判断:浏览器开奖数据是否更新 (部分情况可能浏览器没有更新开奖号码!)
    Do
        Call 循环浏览器
        //Call 循环推荐软件
    Loop
End Function
'先循环判断浏览器期号是否更新,再循环判断推荐软件期号是否更新
Function 循环浏览器
    Do
        '判断浏览器当前推荐软件开奖期号 [当前浏览器开奖期号]
        当前浏览器开奖期号 = LibE.神梦_智能填表.元素_取属性值("text", "/html/body/div[1]/div[1]/div/div[3]/div[2]/span[1]/span")
        If 当前浏览器开奖期号 <> 上局浏览器开奖期号 Then 
            TracePrint "此时浏览器已经更新开奖号码,最新的开奖期号为[" & 当前浏览器开奖期号 & "],上局购买的号码为[" & 上局推荐号码 & "]"
            Call 浏览器刷新
            Delay 1000
            '循环判断:推荐软件开奖期号是否更新
            Call 循环推荐软件
        Else 
            TracePrint "当前浏览器的开奖号码还没有更新,请继续循环哦!"
            Call 浏览器刷新
        End If
        For i = 15 To 0 Step -1
            TracePrint i
            Delay 1000
        Next
    Loop
End Function
'循环判断推荐软件的期号是否更新,如果更新了则进行新的投注
Function 循环推荐软件
    Do
        '复制推荐软件的开奖信息
        Call 激活推荐软件
        Call 复制开奖信息
        当前推荐软件开奖期号 = Left(开奖信息, 15)
        TracePrint "[" + 当前时间 + "]当前" + 当前推荐软件开奖期号
        If 上局推荐软件开奖期号 <> 当前推荐软件开奖期号 Then 
            TracePrint "[" + 当前时间 + "]当前推荐软件开奖期号不等于上局推荐软件开奖期号,继续往下操作"
            TracePrint "上局" + 上局推荐软件开奖期号
            TracePrint "当前" + 当前推荐软件开奖期号
            '如果为第一期,那么我们更新一下公式
            Call 一期判断
            Call 激活推荐软件
            Call 复制推荐号码
            Call 自动操作
            '循环判断:推荐软件的推荐号码是否更新
            '退出:判断助赢软件是否更新期号的循环
            Exit Do	
        Else
            TracePrint "当前助赢软件的期号还没有更新呢!再等等吧!"
            For i = 5 To 0 Step -1
                TracePrint i
                Delay 1000
            Next
        End If
    loop
End Function
//----------------------------------------------------------
'循环体_操作
'[自动操作]
Function 自动操作
    当前余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
    '1.推荐软件操作
    Call 推荐软件操作
    '2.浏览器操作
    Call 浏览器操作
    '3.对话窗口操作
    本局差额 = 购买后当前余额 - 上一局余额
    本局差额 = FormatNumber((本局差额*100)/100,2)
    差额 = 购买后当前余额 - 启动资金
    '判断:盈利峰值
    If 差额 > 0 Then 
        If 差额 > 最大差额 Then 
            最大差额 = 差额
        End If
        Delay 300
    Else 
        Delay 300
    End If
    If 差额 < 0 Then
        If 差额 < 最小差额 Then 
            最小差额 = 差额
        End If
        Delay 300
    Else 
        Delay 300
    End If
    输出差额 = FormatNumber((差额 * 100) / 100, 2)
    'a.开奖信息
    上局开奖信息 = "上局开奖期号为[" & 当前浏览器开奖期号 & "],上局开奖号码为[" & 开奖号码 & "]"
    'b.上局投注信息
    上局投注号码 = "上局投注的号码为[" & 上局推荐号码 & "]"
    上局投注倍数 = "上局投注的倍数为[" & 上局追号期数 & "],上一局投注的金额为[" & 上局投注金额 & "]元"
    'c.本局投注信息
    本局投注号码 = "本局投注的号码为[" & 推荐号码 & "]"
    本局追号期数 = "本局是追第[" & 当前追号期数 & "],倍数为[" & 倍数 & "]"
    本局投注倍数 = "本局投注的倍数为[" & 购买倍数 & "]倍,本局投注金额为[" & 1 * 购买倍数 & "]元"
    'd.财产信息
    余额信息 = "当前账号启动资金为[" & 启动资金 & "]元,当前账号余额为[" & 购买后当前余额 & "]元"
    本局盈利 = "本轮投注盈利[" & 本局差额 & "]元"
    盈利峰值 = "当前最大盈利[" & 最大差额 & "]元,最大亏损[" & 最小差额 & "]元"
    总体盈利 = "程序启动后总体盈利[" & 输出差额 & "]元"
    '在输出信息后,本局数据变上局数据
    上局浏览器开奖期号 = 当前浏览器开奖期号
    上局推荐软件开奖期号 = 当前推荐软件开奖期号
    上局推荐号码 = 推荐号码
    上局追号期数 = 当前追号期数
    上局投注金额 = 10 * 购买倍数
    If 对话窗口 = "QQ" Then 
        Call QQ操作
    ElseIf 对话窗口 = "微信" Then
        Call 微信操作
    End If
End Function
//==========================================================================================================================浏览器
'[购买操作]
Function 购买操作
    Call 浏览器刷新
    Call Plugin.Window.Max(浏览器)
    Delay 300
    Call Plugin.Window.Top(浏览器, 0)
    Delay 300
    '获取信息操作
    '1.获取当前浏览器开奖期号 [当前浏览器开奖期号]
    当前浏览器开奖期号 = LibE.神梦_智能填表.元素_取属性值("text", "/html/body/div[1]/div[1]/div/div[3]/div[2]/span[1]/span")
    '2.获取开奖号码 [开奖号码]
    开奖号码 = LibE.神梦_智能填表.元素_取属性值("text", "/html/body/div[1]/div[1]/div/div[3]/div[1]")
    '点击定位胆
    Call LibE.神梦_智能填表.元素_点击("//*[@id='PLAY-CONTAINER']/div[1]/div[1]/a[8]")
    TracePrint "点击选择定位胆完毕"
    '1.选号
    Call 选号
    '2.选择倍数
    购买倍数 = 倍数 * 基数
    Call LibE.神梦_智能填表.元素_置输入框(购买倍数, "//*[@id='PLAY-CONTAINER']/div[5]/div/div[1]/div[1]/input")
    Delay 300
    TracePrint "当前输入倍数成功"
    '判断投注购彩金额:元/角
    Call 判断购彩金额
    Delay 500
    '3.点击立即购买
    Call LibE.神梦_智能填表.元素_点击("#PLAY-CONTAINER > div.betNum-btn.row_btm.clear > a.btn.confirm-btn.activate1")
    For i = 5 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    Call 浏览器刷新
    当前余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
End Function
'[浏览器操作] : 1.激活、置顶、最大化;2.定位胆、选号、选倍数、选金额、购彩;3.除错、取消置顶
Function 浏览器操作
    购买前当前余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
    Do
        '判断是否购买成功
        当前余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
        If 购买前当前余额 = 当前余额 Then 
            TracePrint "当前购买失败"
            Call 购买操作
        ElseIf 购买前当前余额 >  当前余额 Then
            TracePrint "当前购买成功"
            购买后当前余额 = 当前余额
            Call Plugin.Window.Top(浏览器, 1)
            Delay 300
            Exit Do
        End If
    loop
End Function
//-----------------------------------------------------------------------------------------------
//浏览器_计算
'浏览器_计算
'[获取启动资金] : [启动资金]
Function 获取启动资金
    '注:只能在查找并绑定窗口句柄使用本函数
    启动资金 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
    TracePrint "本轮投注的启动资金为[" & 启动资金 & "]元"
End Function
'主体循环
If 当前余额 > 上局余额 Then 
    TracePrint "当前盈利了,可以开始新的一局了."
    '判断:当前余额大于上一局余额,则将当前余额设置为上一局余下的额度
    上局余额 = 当前余额
ElseIf 当前余额 < 上局余额 Then
    TracePrint "上一注未盈利,请再接再励!"
End If
//-----------------------------------------------------------------------------------------------
'浏览器_操作
'[选号] : 依次点击号码
Function 选号
    TracePrint "[" & 当前时间 & "] 网页操作_开始购买: " & 推荐号码
    '网页陆续点击选择好的推荐号码
    Call 推荐购买匹配(推荐购买一)
    Call LibE.神梦_智能填表.元素_点击(元素)
    Call 推荐购买匹配(推荐购买二)
    Call LibE.神梦_智能填表.元素_点击(元素)
    Call 推荐购买匹配(推荐购买三)
    Call LibE.神梦_智能填表.元素_点击(元素)
    Call 推荐购买匹配(推荐购买四)
    Call LibE.神梦_智能填表.元素_点击(元素)
    Call 推荐购买匹配(推荐购买五)
    Call LibE.神梦_智能填表.元素_点击(元素)
    TracePrint "[" & 当前时间 & "] 点选号码完毕"
End Function
'[判断购彩金额] : 判断投注购彩金额:元/角
Function 判断购彩金额
    If 购彩金额 = "角" Then 
        Call LibE.神梦_智能填表.元素_点击("#PLAY-CONTAINER > div.betNum-btn.row_btm.clear > div > div.amount-box > div.unit-box.select-box")
        Delay 300
        Call LibE.神梦_智能填表.元素_执行事件("mouseover", "//*[@id='MoneyModel']/li[2]/a")
        Delay 300
        Call LibE.神梦_智能填表.元素_执行事件("click", "//*[@id='MoneyModel']/li[2]/a")
        Delay 300
        TracePrint "当前购买的金额是:[" & 1 * 购买倍数 & "]角"
    Else 
        TracePrint "当前购买的金额是:[" & 1 * 购买倍数 & "]元"
        Delay 300
    End If
End Function
'[浏览器刷新] : 激活浏览器后,点击刷新余额
Function 浏览器刷新
    Call Plugin.Window.Active(浏览器)
    Delay 300
    Call Plugin.Window.Max(浏览器)
    Delay 500
    KeyPress "Esc", 1
    Delay 500
    Call LibE.神梦_智能填表.元素_点击("/html/body/div[6]/div/table/tbody/tr[3]/td/div[2]/button")
    Delay 500
    '点击当前余额
    Call LibE.神梦_智能填表.元素_点击("//*[@id='AvailableBalance']")
    Delay 2000
    Call Plugin.Window.Min(浏览器)
    Delay 300
End Function
//==========================================================================================================================对话窗口
Function 微信操作
    '1.调整微信窗口句柄并[调整大小][激活][置顶]
    Call Plugin.Window.Active(微信)
    Delay 300
    Call Plugin.Window.SetClientSize(微信, 100, 100)
    Delay 300
    Call Plugin.Window.Top(微信, 0)
    Delay 300
    '2.打开浏览器并点击截图
    '最大化浏览器
    Call Plugin.Window.Active(浏览器)
    Delay 300
    Call Plugin.Window.Top(浏览器, 0)
    Delay 300
    Call Plugin.Window.Max(浏览器)
    Delay 300
    Call Plugin.Window.Active(微信)
    Delay 500  
    Call Plugin.Bkgnd.LeftClick(微信, 95, 250) 
    Delay 500 
    MoveTo 100, 100
    Delay 500
    LeftClick 1
    Delay 500
    MoveTo 0, 0
    Delay 500
    LeftClick 1
    Delay 500
    KeyPress "Enter", 1
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13) 
    Delay 500
    '最小化浏览器
    Call Plugin.Window.Top(浏览器, 1)
    Delay 300
    Call Plugin.Window.Min(浏览器)
    Delay 300
    '3.发送消息
    '3-1.开奖信息
    Call Plugin.Bkgnd.SendString(微信, 上局开奖信息) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 50
    '3-2.上局投注信息
    Call Plugin.Bkgnd.SendString(微信, 上局投注号码) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(微信, 上局投注倍数)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13) 
    Delay 50
    '3-3.本局投注信息
    Call Plugin.Bkgnd.SendString(微信, 本局投注号码)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13) 
    Delay 50
    Call Plugin.Bkgnd.SendString(微信, 本局追号期数)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13) 
    Delay 50
    Call Plugin.Bkgnd.SendString(微信, 本局投注倍数)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13) 
    Delay 50
    '3-4.财产信息
    Call Plugin.Bkgnd.SendString(微信, 余额信息) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(微信, 本局盈利) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(微信, 盈利峰值) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(微信, 总体盈利) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 50
    'footer
    'a.处理微信窗口句柄[取消置顶][最小化]
    Call Plugin.Window.Top(微信, 1)
    Delay 300
    Call Plugin.Window.Min(微信)
    Delay 300
    'b.处理浏览器窗口句柄
    Call Plugin.Window.Min(浏览器)
    Delay 300
End Function
Function QQ操作
    '1.调整QQ窗口句柄并[调整大小][激活][置顶]
    Call Plugin.Window.Active(QQ)
    Delay 300
    Call Plugin.Window.SetClientSize(QQ, 500, 500)
    Delay 300
    Call Plugin.Window.Top(QQ, 0)
    Delay 300
    '最大化浏览器
    Call Plugin.Window.Active(浏览器)
    Delay 300
    Call Plugin.Window.Top(浏览器, 0)
    Delay 300
    Call Plugin.Window.Max(浏览器)
    Delay 300
    '2.打开浏览器并点击截图
    Call Plugin.Window.Active(QQ)
    Delay 500  
    Call Plugin.Bkgnd.LeftClick(QQ, 90, 385) 
    Delay 500 
    MoveTo 100, 100
    Delay 500
    LeftClick 1
    Delay 500
    MoveTo 0, 0
    Delay 500
    LeftClick 1
    Delay 500
    KeyPress "Enter", 1
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13) 
    Delay 500
    '最小化浏览器
    Call Plugin.Window.Top(浏览器, 1)
    Delay 300
    Call Plugin.Window.Min(浏览器)
    '3.发送消息
    '3-1.开奖信息
    Call Plugin.Bkgnd.SendString(QQ, 上局开奖信息) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 50
    '3-2.上局投注信息
    Call Plugin.Bkgnd.SendString(QQ, 上局投注号码) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(QQ, 上局投注倍数)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13) 
    Delay 50
    '3-3.本局投注信息
    Call Plugin.Bkgnd.SendString(QQ, 本局投注号码)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13) 
    Delay 50
    Call Plugin.Bkgnd.SendString(QQ, 本局追号期数)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13) 
    Delay 50
    Call Plugin.Bkgnd.SendString(QQ, 本局投注倍数)
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13) 
    Delay 50
    '3-4.财产信息
    Call Plugin.Bkgnd.SendString(QQ, 余额信息) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(QQ, 本局盈利) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(QQ, 盈利峰值) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 50
    Call Plugin.Bkgnd.SendString(QQ, 总体盈利) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 50
    'footer
    'a.处理QQ窗口句柄[取消置顶][最小化]
    Call Plugin.Window.Top(QQ, 1)
    Delay 300
    Call Plugin.Window.Min(QQ)
    Delay 300
    'b.处理浏览器窗口句柄
    Call Plugin.Window.Min(浏览器)
    Delay 300
End Function
//开始进行自动购买操作
If LibE.神梦_智能填表._初始化("", "") = False  Then 
    MsgBox "出错,智能填表初始化失败!", 1 + 16 + 4096, "警告!"
    ExitScript 
End If
//启动谷歌浏览器
If LibE.神梦_智能填表.绑定("Chrome.exe") Then 
    '打开购彩网页(利鑫彩票)
    Call LibE.神梦_智能填表.网页_跳转("https://www.99551277.com/Lobby/Lottery")
    TracePrint "请在60秒内输入帐号密码验证码登录,请打开利鑫彩票主页!"
    For i = 20 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    TracePrint "现在程序继续往下执行!"
    Call LibE.神梦_智能填表.网页_标签新建("http://gpkapiqt.ying036.com/OffcialOtherGame/Index/26")
    For i = 10 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    '软件初始化:1.绑定窗口;2.公式重选;
    Call 查找并绑定窗口句柄
    Call 公式重选
    Call 获取启动资金
    '绑定的投注网页再次确认
    TracePrint LibE.神梦_智能填表.网页_取网址()
    Delay 300
    TracePrint LibE.神梦_智能填表.网页_取标题()
    Delay 300
    Call 核心循环
Else 
    MsgBox "出错,绑定浏览器失败!", 1 + 16 + 4096, "警告!"
    ExitScript 
End If
//把这个代码放到脚本末尾,避免按键精灵奔溃
Sub OnScriptExit()
    Call LibE.神梦_智能填表._销毁()
End Sub
Sub OnThreadExit()
    Call LibE.神梦_智能填表._销毁()
End Sub


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

发表评论

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

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