通過彩民堂計劃軟件追2期自動博彩

彩民堂追2期[1-3].png

窗口名稱 = "萬法歸宗"
對話窗口 = "QQ"				// QQ / 微信 
購彩金額 = "角"http:// 元 / 角
程序路徑 = "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.神夢_智能填表.元素_點擊("http://*[@id='PLAY-CONTAINER']/div[1]/div[1]/a[8]")
    TracePrint "點擊選擇定位膽完畢"
    '1.選號
    Call 選號
    '2.計算基數
    Call 計算基數
    '3.選擇倍數
    購買倍數 = 倍數 * 基數
    Call LibE.神夢_智能填表.元素_置輸入框(購買倍數, "http://*[@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", "http://*[@id='AvailableBalance']")
End Function
'[瀏覽器操作]
'說明: 1.激活、置頂、最大化;2.定位膽、選號、選倍數、選金額、購彩;3.除錯、取消置頂
Function 瀏覽器操作
    購買前當前余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@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", "http://*[@id='AvailableBalance']")
    TracePrint "啟動資金為:" & 啟動資金
End Function
'[計算基數]
Function 計算基數
    If 次數 = 1 Then 
        實時余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@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", "http://*[@id='MoneyModel']/li[2]/a")
        Delay 300
        Call LibE.神夢_智能填表.元素_執行事件("click", "http://*[@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.神夢_智能填表.元素_點擊("http://*[@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", "http://*[@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