使用按鍵精靈通過彩民堂追2期自動博彩,如果掛了則翻倍。

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


窗口名稱 = "萬法歸宗"對話窗口 = "QQ"http:// QQ / 微信 購彩金額 = "角"http:// 元 / 角程序路徑 = "C:\彩民堂\彩名堂.exe"位數 = "萬" '[萬] [千] [百] [十] [個]倍數 = 1 '(恒定)基數 = 1'(每注本金)次數 = 1'本期購買次數//告知用戶設置好的數據TracePrint "本次軟件啟動后設置的可使用資金為:" & 本金TracePrint "本次打法為:打" & 位數 & "位"TracePrint "本次軟件輸出對話窗口方式為:" & 對話窗口 & ";名稱為:" & 窗口名稱//==========================================================================================================================通用'下面是通用函數對Function 當前時間 當前時間 = Plugin.Sys.GetDateTime() & " "End FunctionFunction 查找并綁定窗口句柄 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 300End 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 300End 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 IfEnd 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 1000End 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 IfEnd Function'[判斷狀態]'說明:復制狀態之后判斷,如出現掛則更換公式Function 判斷狀態 Call 復制上局狀態 If 上局狀態 = "掛" Then TracePrint "當前出現一掛!開始更換公式" Call 激活推薦軟件 Call 公式重選 Else Delay 300 End IfEnd Function'[判斷次數]'說明:通過期數、推薦號碼、截止期判斷次數'[判斷是否需要更換公式]'說明:如果當前=第一期,并且上局狀態為"掛",這這需要更換公式Function 判斷是否需要更換公式 判斷次數=次數 mod 2 If 判斷次數 = 0 Then TracePrint "當前次數為偶數" Delay 300 ElseIf 判斷次數 = 1 Then TracePrint "當前次數為偶數,不需要更換公式,請繼續!" Call 判斷狀態 End IfEnd 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 IfEnd 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 3000End Function'[點擊滾動條]Function 點擊滾動條 Call 激活推薦軟件 '點擊滾動條 鼠標按下位置X = 原點X坐標 + 960 鼠標按下位置Y = 原點Y坐標 + 600 MoveTo 鼠標按下位置X,鼠標按下位置Y Delay 300 LeftDown 1 Delay 3000 LeftUp 1 Delay 500End 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 IfEnd 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 倍數 = 100 ElseIf 次數 = 8 Then 倍數 = 200 ElseIf 次數 = 9 Then 倍數 = 410 ElseIf 次數 = 10 Then 倍數 = 820 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 loopEnd Function//-----------------------------------------------------------------------------------------------瀏覽器_計算'[獲取啟動資金]'說明:[啟動資金]Function 獲取啟動資金 '注:只能在查找并綁定窗口句柄使用本函數 啟動資金 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@id='AvailableBalance']") TracePrint "啟動資金為:" & 啟動資金End Function'[計算基數]Function 計算基數 If 次數 = 1 Then 實時余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@id='AvailableBalance']") 基數 = int(實時余額 / 400) If 基數 < 最小基數 Then 基數 = 最小基數 End If TracePrint "當前基數為:" & 基數 Else Delay 300 End IfEnd 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 IfEnd 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 300End 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 300End FunctionFunction 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 300End 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 Call 瀏覽器刷新 For i = 5 To 0 Step -1 TracePrint i Delay 1000 Next 當前余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@id='AvailableBalance']") If 當前余額 = 上局余額 Then TracePrint "上一把扔下水了,應該增加倍數了..." 次數 = 次數 +1 ElseIf 當前余額 > 上局余額 Then TracePrint "哈哈哈,贏錢了!" 次數 = 1 ElseIf 當前余額 < 上局余額 Then TracePrint "QNMLGB這是什么情況?" End If 當前余額 = 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 LoopEnd 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 IfEnd 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 SubSub OnThreadExit() Call LibE.神夢_智能填表._銷毀()End Sub