按键脚本:彩民堂追1期[翻倍]

张凯 网络杂苑>按键精灵 2019-3-6 14:45 23820字 48分钟 217 0 字号: | |

实战记录:

2018.11.21

1.脚本初步完成;
2.如彩民堂软件崩溃,则重新启动;
3.根据"彩民堂"软件选择跟注计划,如出现一挂则更换跟注计划,如不挂则继续跟当前计划;
4.根据本金打出1-3打法;


2018.11.23
通过两天近200期的测试,结论如下:
1.最大盈利约80元,最大亏损为70.88元,出现亏损较大的原因是跟注基数较小导致,应设置最小跟注基数;
2.出现1期挂25个;2期挂10个;3期挂12个,4期挂4个,5期挂5个,6期挂1个,7期挂1个;
更新:
1.设置最小基数;
2.如不中奖则翻倍;
3.通过判断次数是奇数偶数判断是否需要判断状态;

彩民堂追1期[翻倍]

彩民堂追1期[翻倍].png

本金 = 300					//最小值300,应为3的倍数
窗口名称 = "万法归宗"
对话窗口 = "QQ"				// QQ / 微信 
购彩金额 = "角"// 元 / 角
倍数 = 1 			'(恒定)
基数 = 1		    	'(几倍本钱?)
//告知用户设置好的数据
TracePrint "本次软件启动后设置的可使用资金为:" & 本金
TracePrint "本次软件输出对话窗口方式为:" & 对话窗口 & ";名称为:" & 窗口名称
//************************************************************************************************************************************************************推荐软件
'推荐软件操作
'当前推荐软件为:彩民堂随机跟(注:亏损较大,盈利飞快)
'[推荐软件操作] : 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 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
'[公式重选]
Function 公式重选
    TracePrint "[" & 当前时间 & "] 推荐软件_重选公式:定码万位"
    Call 激活推荐软件
    '点选系类
    鼠标按下位置X = L + 95
    鼠标按下位置Y = T + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置Y = 鼠标按下位置Y + 20
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '点选定万位
    鼠标按下位置X = L + 217
    鼠标按下位置Y = T + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置X = 鼠标按下位置X - 20
    鼠标按下位置Y = 鼠标按下位置Y + 100
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '点选码数
    鼠标按下位置X = L + 277
    鼠标按下位置Y = T + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置Y = 鼠标按下位置Y + 20
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '点选期数
    鼠标按下位置X = L + 337
    鼠标按下位置Y = T + 255
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    鼠标按下位置Y = 鼠标按下位置Y + 40
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 1000
    '选择排名第一的打法
    鼠标按下位置X = L + 75
    鼠标按下位置Y = T + 295
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 300
    LeftClick 1
    Delay 3000
End Function
'[复制推荐号码]
Function 复制推荐号码
    Call 激活推荐软件
    Delay 1000
    '点选复制计划
    鼠标按下位置X = L + 565
    鼠标按下位置Y = T + 170
    MoveTo 鼠标按下位置X,鼠标按下位置Y 
    Delay 1000
    LeftClick 1
    Delay 1000  
    当前推荐购买号码 = Plugin.sys.GetCLB()
    Delay 300
    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 推荐购买数组
    TracePrint 当前推荐购买号码
    推荐购买数组 = 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
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 核心循环
    次数 = 0
    Do
        '判断当前期号 [当前开奖期号]
        当前开奖期号 = LibE.神梦_智能填表.元素_取属性值("text", "/html/body/div[1]/div[1]/div/div[3]/div[2]/span[1]/span")
        If 当前开奖期号 <> 上局开奖期号 Then 
            TracePrint "此时已经更新开奖号码,最新的开奖期号为[" & 当前开奖期号 & "],上局购买的号码为[" & 上局计划 & "]"
            Call 浏览器刷新
            '每次循环有10秒钟间隔
            For i = 5 To 0 Step -1
                TracePrint i
                Delay 1000
            Next
            Do
                If 当前计划 <> 上局计划 Then 
                    TracePrint "当前计划已经更新,最新的计划为[" & 当前计划 & "]"
                    '购买倍数的判断
                    当前余额 = LibE.神梦_智能填表.元素_取属性值("title", "//*[@id='AvailableBalance']")
                    Delay 300
                    If 当前余额 = 上局余额 Then 
                        TracePrint "上一把扔下水了,应该增加倍数了..."
                        次数 = 次数 +1
                    ElseIf 当前余额 > 上局余额 Then
                        TracePrint "哈哈哈,赢钱了!"
                        次数 = 1
                    ElseIf 当前余额 < 上局余额 Then
                        TracePrint "QNMLGB这是什么情况?"
                    End If
                    Call 判断倍数
                    Call 自动操作
                    Exit Do
                Else 
                    TracePrint "当前彩名堂推荐的号码还没有更新!现在开始重新选择公司"
                    '开始重新选择公式查看最新的计划,
                    Call 公式重选
                    Call 复制推荐号码
                End If
            Loop
        Else 
            TracePrint "当前未开奖,继续循环哦!"
            Call 浏览器刷新
        End If
        For i = 15 To 0 Step -1
            TracePrint i
            Delay 1000
        Next
    Loop
End Function
//----------------------------------------------------------
'循环体_操作
'[自动操作]
Function 自动操作
    '浏览器操作
    Call 浏览器操作
    '信息编辑
    上局开奖信息 = "上局开奖期号为[" & 当前开奖期号 & "],上局开奖号码为[" & 开奖号码 & "]"
    上局投注信息 = "上局购买的号码为[" & 上局计划 & "]"
    计划信息 = "当前购买的号码为[" & 当前计划 & "],当前是第[" & 次数 & "]次翻倍,倍数为[" & 倍数 & "]"
    投注信息 = "当前购买的倍数为[" & 购买倍数 & "]倍,投注金额为[" & 10 * 购买倍数 & "]元"
    余额信息 = "当前账号余额为[" & 上局余额 & "]元,当前账号启动资金为[" & 启动资金 & "]元"
    当前盈利 = "当前盈利[" & 差额 & "]元"
    上局计划 = 当前计划
    TracePrint 投注信息
    '对话窗口操作
    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
    '获取信息操作
    '获取开奖号码
    开奖号码 = 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
        '判断是否购买成功
        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 选号
    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
    '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, 175, 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
    '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 = 40 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    TracePrint "现在程序继续往下执行!"
    Call LibE.神梦_智能填表.网页_标签新建("http://gpkapiqt.ying036.com/OffcialOtherGame/Index/26")
    For i = 25 To 0 Step -1
        TracePrint i
        Delay 1000
    Next
    '软件初始化:1.绑定窗口;2.公式重选;3.获取初始资金;4.计算备用资金;
    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/q/1060.html 百度已收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

发表评论

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

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