按键脚本：彩民堂追2期[1-3]

归一 6年前 (2019-03-06) 按键精灵 1585人围观 29614字抢沙发百度已收录
通过彩民堂计划软件追2期自动博彩
窗口名称 = "万法归宗"
对话窗口 = "QQ"				// QQ / 微信 
购彩金额 = "角"// 元 / 角
程序路径 = "C:\彩民堂\彩名堂.exe"
位数 = "万" '[万] [千] [百] [十] [个]
倍数 = 1 			'(恒定)
基数 = 1				'（每注本金）
次数 = 1				'本期购买次数
//告知用户设置好的数据
TracePrint "本次软件启动后设置的可使用资金为：" & 本金
TracePrint "本次打法为：打" & 位数 & "位"
TracePrint "本次软件输出对话窗口方式为:" & 对话窗口 & ";名称为：" & 窗口名称
//==========================================================================================================================通用
'下面是通用函数对
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 推荐软件操作
    Call 判断推荐软件是否存在
    Call 判断次数
    Call 判断倍数
    Call 判断是否需要更换公式 
    Call Plugin.Window.Top(推荐软件, 0)
    Delay 300
    Call 复制推荐号码
    Delay 300
    Call 推荐值转化
    Delay 300
    Call 五星元素匹配
    Delay 300
    Call Plugin.Window.Top(推荐软件, 1)
    Delay 300
End Function
//-----------------------------------------------------------------------------------------------推荐软件_预操作
'[判断推荐软件是否存在]
'说明：如存在则步过，如不存在则启动
Function 判断推荐软件是否存在
    Call 绑定推荐软件
    sWindow = Plugin.Window.IsWindow(推荐软件)
    If sWindow = 0 Then 
        TracePrint "彩民堂不存在"
        Call 启动推荐软件
        Call 绑定推荐软件
        Call 公式重选
    ElseIf sWindow = 1 Then
        TracePrint "彩民堂存在"
        Delay 500
        Call 激活推荐软件
        Delay 500
    End If
End Function
'[启动推荐软件]
'说明：1.启动推荐软件；2.绑定窗口并获取窗口大小；4.点击进入重庆时时彩
Function 启动推荐软件
    Call RunApp(程序路径)
    Delay 5000
    '绑定推荐软件
    Call 绑定推荐软件
    '点选关闭弹出的对话框
    鼠标按下位置X = 原点X坐标 + 803
    鼠标按下位置Y = 原点Y坐标 + 183
    Delay 300
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 1000
    LeftClick 1
    Delay 1000
    '点选高频彩
    鼠标按下位置X = 原点X坐标 + 350
    鼠标按下位置Y = 原点Y坐标 + 160
    Delay 300
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 1000
    LeftClick 1
    Delay 1000
    '点选重庆时时彩
    鼠标按下位置X = 原点X坐标 + 150
    鼠标按下位置Y = 原点Y坐标 + 255
    Delay 300
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 1000
    LeftClick 1
    Delay 1000
End Function
'[绑定推荐软件]
Function 绑定推荐软件
    推荐软件 = Plugin.Window.Find(0, "彩名堂客户端")
    Delay 500
    Call 激活推荐软件
End Function
'[激活推荐软件]
Function 激活推荐软件
    Call Plugin.Window.Active(推荐软件)
    Delay 300
    Call Plugin.Window.Restore(推荐软件)
    Delay 300
    '获取推荐软件窗口大小
    sRect = Plugin.Window.GetClientRect(推荐软件)
    Delay 300
    dim MyArray   
    MyArray = Split(sRect, "|")   
    原点X坐标 = Clng(MyArray(0)): 原点Y坐标 = Clng(MyArray(1))   
    R = Clng(MyArray(2)) : B = Clng(MyArray(3))
End Function
//-----------------------------------------------------------------------------------------------推荐软件_判断
'[位数判断]
'说明：根据位数选择移动的坐标；网页点选的位置
Function 位数判断
    If 位数 = "个" Then 
        重选位数移动Y坐标 = 20
    ElseIf 位数 = "十" Then
        重选位数移动Y坐标 = 40
    ElseIf 位数 = "百" Then
        重选位数移动Y坐标 = 60
    ElseIf 位数 = "千" Then
        重选位数移动Y坐标 = 80
    ElseIf 位数 = "万" Then
        重选位数移动Y坐标 = 100
    End If
End Function
'[判断状态]
'说明：复制状态之后判断，如出现挂则更换公式
Function 判断状态
    Call 复制上局状态
    If 上局状态 = "挂" Then 
        TracePrint "当前出现一挂！开始更换公式"
        Call 激活推荐软件
        Call 公式重选
    Else
        Delay 300
    End If
End Function
'[判断次数]
'说明：通过期数、推荐号码、截止期判断次数
Function 判断次数
    Call 复制期数
    Call 复制推荐号码
    Call 复制追号期数
    //    If 期数 <> 上局期数 Then 
    //        If 当前计划 <> 上局计划 Then 
    //            TracePrint "["  & 当前时间 & "] 当前为新的一期"
    //            次数 = 1
    //         End If
    //	Else
    //        	If 追号期数 = 2 Then 
    //            	TracePrint "没有中奖，继续加注"
    //            	次数 = 2	
    //        	End If
    //    End If
    次数 = 追号期数
    TracePrint "当前次数为：" & 次数
End Function
'[判断是否需要更换公式]
'说明：如果当前=第一期，并且上局状态为"挂"，这这需要更换公式
Function 判断是否需要更换公式
    If 次数 = 1 Then 
        Call 判断状态
    Else 
        TracePrint "上局中奖了，不需要更换公式，请继续！"
    End If
End Function
//-----------------------------------------------------------------------------------------------推荐软件_转化
'[推荐值转化]  & [上局推荐购买号码] (通用)
'说明：将推荐的复制到的推荐号码转化为元素
Function 推荐值转化
    Dim 推荐购买数组
    推荐购买数组 = Split(当前推荐购买号码, " ")   
    推荐购买一 = Clng(推荐购买数组(0))
    推荐购买二 = Clng(推荐购买数组(1))
    推荐购买三 = Clng(推荐购买数组(2))
    推荐购买四 = Clng(推荐购买数组(3))
    推荐购买五 = Clng(推荐购买数组(4))
    Delay 300
    上局推荐购买号码 = 当前推荐购买号码
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
//-----------------------------------------------------------------------------------------------推荐软件_操作
'[公式重选]
'根据位数选择公式
Function 公式重选
    Call 位数判断
    '点选系类:一星系列
    鼠标按下位置X = 原点X坐标 + 95
    鼠标按下位置Y = 原点Y坐标 + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置Y = 鼠标按下位置Y + 20
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '点选定位数 (根据[位数判断]选择[重选位数移动Y坐标])
    鼠标按下位置X = 原点X坐标 + 217
    鼠标按下位置Y = 原点Y坐标 + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置X = 鼠标按下位置X - 20
    鼠标按下位置Y = 鼠标按下位置Y + 重选位数移动Y坐标
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '点选码数 (5码)
    鼠标按下位置X = 原点X坐标 + 277
    鼠标按下位置Y = 原点Y坐标 + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置Y = 鼠标按下位置Y + 20
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '点选期数 (选择2期)
    鼠标按下位置X = 原点X坐标 + 337
    鼠标按下位置Y = 原点Y坐标 + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置Y = 鼠标按下位置Y + 20
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '选择排名第一的打法
    鼠标按下位置X = 原点X坐标 + 75
    鼠标按下位置Y = 原点Y坐标 + 295
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 3000
End Function
'[点击滚动条]
Function 点击滚动条
    Call 激活推荐软件
    '点击滚动条
    鼠标按下位置X = 原点X坐标 + 960
    鼠标按下位置Y = 原点Y坐标 + 600
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftDown 1
    Delay 3000
    LeftUp 1
    Delay 500	
End Function
//-----------------------------------------------------------------------------------------------推荐软件_复制
'[复制推荐号码]
'参数：[当前推荐购买号码][当前计划]
Function 复制推荐号码
    Call 激活推荐软件
    '点选复制计划
    鼠标按下位置X = 原点X坐标 + 565
    鼠标按下位置Y = 原点Y坐标 + 170
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 1000
    LeftClick 1
    Delay 1000
    当前推荐购买号码 = Plugin.sys.GetCLB()
    Delay 300
    TracePrint "当前推荐购买号码为：" & 当前推荐购买号码
    当前计划 = 当前推荐购买号码
End Function
'[复制期数]
'参数：[期数]
Function 复制期数
    Call 点击滚动条
    '设置按下及弹起坐标
    鼠标按下位置X = 原点X坐标 + 370
    鼠标按下位置Y = 原点Y坐标 + 580
    鼠标弹起位置X = 原点X坐标 + 450
    鼠标弹起位置Y = 原点Y坐标 + 580
    '开始复制
    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
    TracePrint "当前期数为：" & 期数
End Function
'[复制开奖号码]
'参数：[开奖号码]
Function 复制开奖号码
    Call 点击滚动条
    '设置按下及弹起坐标
    鼠标按下位置X = 原点X坐标 + 745
    鼠标按下位置Y = 原点Y坐标 + 580
    鼠标弹起位置X = 原点X坐标 + 835
    鼠标弹起位置Y = 原点Y坐标 + 580
    '开始复制
    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
    TracePrint 开奖号码
End Function
'[复制追号期数]
'参数：[追号期数]
Function 复制追号期数
    Call 点击滚动条
    '设置按下及弹起坐标
    鼠标按下位置X = 原点X坐标 + 845
    鼠标按下位置Y = 原点Y坐标 + 580
    鼠标弹起位置X = 原点X坐标 + 895
    鼠标弹起位置Y = 原点Y坐标 + 580
    '开始复制
    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
    '数据转化
    追号期数 = Right(追号期数, 2)
    追号期数 = Left(追号期数, 1)
    TracePrint "当前追号期数为："& 追号期数
End Function
'[复制上局状态]
'参数：[上局状态]
Function 复制上局状态
    Call 点击滚动条
    '设置按下及弹起坐标
    鼠标按下位置X = 原点X坐标 + 905
    鼠标按下位置Y = 原点Y坐标 + 555
    鼠标弹起位置X = 原点X坐标 + 942
    鼠标弹起位置Y = 原点Y坐标 + 555
    '开始复制
    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
    TracePrint "上局开奖状态为：" & 上局状态
End Function
//************************************************************************************************************************************************************数据转化
//-----------------------------------------------------------------------------------------------需适配浏览器元素
'[五星元素匹配] (通用)
'说明：根据位数转化相应的网页点击坐标
Function 五星元素匹配
    '万位元素
    If 位数 = "万" Then 
        零 = "#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"
        '千位元素
    ElseIf 位数 = "千" Then 
        零 = "#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"
        '百位元素
    ElseIf 位数 = "百" Then 
        零 = "#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"
        '十位元素
    ElseIf 位数 = "十" Then 
        零 = "#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"
        '个位元素
    ElseIf 位数 = "个" Then 
        零 = "#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 If
End Function
'[判断倍数]
'根据购买的次数选择翻倍书
Function 判断倍数
    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
        倍数 = 98
    ElseIf 次数 = 8 Then
        倍数 = 198
    ElseIf 次数 = 9 Then
        倍数 = 400
    ElseIf 次数 = 10 Then
        倍数 = 808	
    End If
    TracePrint "当前是第[" & 次数 & "]次翻倍，倍数为[" & 倍数 & "]"
End Function
//************************************************************************************************************************************************************浏览器:利鑫彩票
'浏览器操作
'[购买操作]
Function 购买操作
    Call 浏览器刷新
    Call Plugin.Window.Max(浏览器)
    Delay 300
    Call Plugin.Window.Top(浏览器, 0)
    Delay 300
    '获取信息操作
    '获取开奖号码
    开奖号码 = 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 计算基数
    '3.选择倍数
    购买倍数 = 倍数 * 基数
    Call LibE.神梦_智能填表.元素_置输入框(购买倍数, "//*[@id='PLAY-CONTAINER']/div[5]/div/div[1]/div[1]/input")
    Delay 300
    TracePrint "当前输入倍数成功"
    '判断投注购彩金额：元/角
    Call 判断购彩金额
    Delay 500
    '4.点击立即购买
    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
        '判断是否购买成功
        If 购买前当前余额 = 当前余额 Then 
            TracePrint "当前购买失败"
            Call 购买操作
        ElseIf 购买前当前余额 >  当前余额 Then
            TracePrint "当前购买成功"
            购买后当前余额 = 当前余额
            Call Plugin.Window.Top(浏览器, 1)
            Delay 300
            TracePrint "当前购买成功"
            Exit Do
        End If
    loop
End Function
//-----------------------------------------------------------------------------------------------浏览器_计算
'[获取启动资金]
'说明：[启动资金]
Function 获取启动资金
    '注:只能在查找并绑定窗口句柄使用本函数
    启动资金 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
    TracePrint "启动资金为：" & 启动资金
End Function
'[计算基数]
Function 计算基数
    If 次数 = 1 Then 
        实时余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
        基数 = int(实时余额 / 5 / 4)
        If 基数 < 最小基数 Then 
        	基数 = 最小基数
        End If
        TracePrint "当前基数为：" & 基数
    Else 
        Delay 300
    End If
End Function
//-----------------------------------------------------------------------------------------------浏览器_操作
'[选号]
'说明：依次点击号码
Function 选号
    TracePrint "[" & 当前时间 & "] 网页操作_开始购买: " & 当前推荐购买号码
    Call 推荐值转化
    '网页陆续点击选择好的推荐号码
    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 "当前购买的金额是：[" & 10 * 购买倍数 & "]角"
    Else 
        TracePrint "当前购买的金额是：[" & 10 * 购买倍数 & "]元"
        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(浏览器, 0)
    Delay 300
    Call Plugin.Window.Min(浏览器)
    Delay 300
    '3.发送消息
    Call Plugin.Bkgnd.SendString(微信, 句子一) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(微信, 句子二) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 500
    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 500
    Call Plugin.Bkgnd.SendString(微信, 句子五) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(微信, 句子六) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(微信, 句子七) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(微信, 13)
    Delay 500
    '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, 85, 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(浏览器, 0)
    Delay 300
    Call Plugin.Window.Min(浏览器)
    Delay 300
    '3.发送消息
    Call Plugin.Bkgnd.SendString(QQ, 句子一) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(QQ, 句子二) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(QQ, 句子三) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(QQ, 句子四) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(QQ, 句子五) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(QQ, 句子六) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    Call Plugin.Bkgnd.SendString(QQ, 句子七) 
    Delay 500
    Call Plugin.Bkgnd.KeyPress(QQ, 13)
    Delay 500
    '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
//************************************************************************************************************************************************************循环体
'[核心循环] ： 通过判断当前开奖期号判断是否需要进行购彩操作
Function 核心循环
    Do
        '判断当前期号 [当前开奖期号]
        当前开奖期号 = LibE.神梦_智能填表.元素_取属性值("text", "/html/body/div[1]/div[1]/div/div[3]/div[2]/span[1]/span")
        If 当前开奖期号 <> 上局开奖期号 Then 
            TracePrint "此时[浏览器]已经更新开奖号码，最新的开奖期号为[" & 当前开奖期号 & "],上局购买的号码为[" & 上局计划 & "]，购买的位数为[" & 位数 & "]位"
            Call 浏览器刷新
            '每次循环有30秒钟间隔
            For i = 30 To 0 Step -1
                TracePrint i
                Delay 1000
            Next
            当前余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
            Delay 300
            Call 推荐软件操作
            Call 自动操作
        Else 
            TracePrint "当前未开奖，继续循环哦！"
            Call 浏览器刷新
        End If
        For i = 15 To 0 Step -1
            TracePrint i
            Delay 1000
        Next
    Loop
End Function
//----------------------------------------------------------
'循环体_操作
'[自动操作]
Function 自动操作
    '浏览器操作
    Call 浏览器操作
    '数据转化
    上局计划 = 当前计划
    上局开奖期号 = 当前开奖期号
    上局余额 = 购买后当前余额
    差额 = 购买后当前余额 - 启动资金
    '判断：盈利峰值
    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
    '信息编辑
    上局开奖信息 = "上局开奖期号为[" & 当前开奖期号 & "],上局开奖号码为[" & 开奖号码 & "]"
    上局投注信息 = "上局购买的号码为[" & 上局计划 & "]"
    计划信息 = "当前购买的号码为[" & 当前计划 & "]，当前是第[" & 次数 & "]次翻倍，倍数为[" & 倍数 & "]"
    投注信息 = "当前购买的倍数为[" & 购买倍数 & "]倍，投注金额为[" & 购买倍数 & "]元"
    余额信息 = "当前账号余额为[" & 上局余额 & "]元，当前账号启动资金为[" & 启动资金 & "]元"
    盈利峰值 = "当前最大盈利[" & 最大差额 & "]元，最大亏损[" & 最小差额 & "]元"
    当前盈利 = "当前盈利[" & 差额 & "]元"
    '信息转化为句子    
    句子一  = 上局开奖信息
    句子二  = 上局投注信息
    句子三  = 计划信息
    句子四  = 投注信息
    句子五  = 余额信息
    句子六  = 盈利峰值
    句子七 =  当前盈利
    句子八  = ""
    句子九 = ""
    TracePrint 投注信息
    '对话窗口操作
    If 对话窗口 = "QQ" Then 
        Call QQ操作
    ElseIf 对话窗口 = "微信" Then
        Call 微信操作
    End If
End Function
//==========================================================================================================================对话窗口
//开始进行自动购买操作
If LibE.神梦_智能填表._初始化("", "") = False  Then 
    MsgBox "出错，智能填表初始化失败！", 1 + 16 + 4096, "警告！"
    ExitScript 
End If
//启动谷歌浏览器
If LibE.神梦_智能填表.绑定("Chrome.exe") Then 
    '打开购彩网页（利鑫彩票）
    Call LibE.神梦_智能填表.网页_跳转("http://liying998.com")
    TracePrint "请在60秒内输入帐号密码验证码登录，请打开利鑫彩票主页！"
    For i = 40 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    TracePrint "现在程序继续往下执行！"
    Call LibE.神梦_智能填表.网页_标签新建("http://gf5.liying7.com:96/OffcialOtherGame/index/26#3.0.0")
    For i = 25 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    '软件初始化：1.绑定窗口；2.公式重选；3.获取初始资金；4.计算备用资金；
    Call 查找并绑定窗口句柄
    Call 公式重选
    Call 获取启动资金
    Call 计算基数
    最小基数 = 基数
    TracePrint "设置最小基数为：" & 最小基数
    '绑定的投注网页再次确认
    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
本站文章除注明转载/出处外，均为本站原创或翻译。若要转载请务必注明出处，尊重他人劳动成果共创和谐网络环境。
转载请注明 : 文章转载自深山的鹿按键脚本：彩民堂追2期[1-3]
本文标题：《按键脚本：彩民堂追2期[1-3]》
本文链接：http://www.noteet.com/1061.html