基本_對話窗口操作_[QQ][微信]

發送數據到QQ、微信窗口,可以實現通過這些聊天工具監控軟件的運行狀態。

Function 微信操作
    當前信息 = "當前購買的號碼為:[" & 當前推薦購買號碼 & "],當前追號期數為[" & 當前追號期數 & "],當前購買的倍數為[" & 購買倍數 & "]倍,投注金額為[" & 10 * 購買倍數 & "]元"
    本局信息 = "當前連對:" & 初始連對次數 &  " ,預設終止數量為:" & 預設連對終止 & ",本局連對次數為:" & 本局連對次數
    余額信息 = "上局余額為[" & 上局余額 & "]元,當前賬號余額為[" & 當前余額 & "]元,可以使用資金為[" & 可以使用資金 & "]元,當前盈利[" & 差額 & "]元"
    當前盈利 = "當前盈利[" & 差額 & "]元"
    TracePrint 當前信息
    '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 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
    '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 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
    '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操作
    當前信息 = "當前購買的號碼為:[" & 當前推薦購買號碼 & "],當前追號期數為[" & 當前追號期數 & "],當前購買的倍數為[" & 購買倍數 & "]倍,投注金額為[" & 10 * 購買倍數 & "]元"
    本局信息 = "當前連對:" & 初始連對次數 &  " ,預設終止數量為:" & 預設連對終止 & ",本局連對次數為:" & 本局連對次數
    余額信息 = "上局余額為[" & 上局余額 & "]元,當前賬號余額為[" & 當前余額 & "]元,可以使用資金為[" & 可以使用資金 & "]元,當前盈利[" & 差額 & "]元"
    當前盈利 = "當前盈利[" & 差額 & "]元"
    TracePrint 當前信息
    '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
    '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
    '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 50
    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

推薦軟件部分

調用出計劃軟件,前臺獲取各種數據

//==========================================================================================================================
'推薦軟件操作
'當前推薦軟件為:助贏軟件(注:保守打法:僅適用于2.3.4期穩定打,虧損有限,盈利較慢)
'[推薦軟件操作] : 1.激活;2.推薦號轉化為元素;3.獲取當前追號期數;4.取消置頂(通用)
Function 推薦軟件操作
    Call Plugin.Window.Top(推薦軟件, 0)
    Delay 300
    '推薦號轉化為元素
    Call 激活推薦軟件
    Delay 300
    Call 復制推薦號碼
    Delay 300
    Call 推薦值轉化
    Delay 300
    Call 五星元素匹配
    Delay 300
    '獲取當前追號期數
    Call 獲取當前追號期數
    Delay 300
    Call Plugin.Window.Top(推薦軟件, 1)
    Delay 300
End Function
'[激活推薦軟件] : 激活并還原推薦軟件,獲取窗口大小(通用)
Function 激活推薦軟件
    '1.激活并還原窗口
    Call Plugin.Window.Active(推薦軟件)
    Delay 300
    Call Plugin.Window.Restore(推薦軟件)
    Delay 300
    '2.下面這句是得到窗口句柄的客戶區大小   
    sRect = Plugin.Window.GetClientRect(推薦軟件)
    Delay 300
    dim MyArray   
    MyArray = Split(sRect, "|")   
    L = Clng(MyArray(0)): T = Clng(MyArray(1))   
    R = Clng(MyArray(2)) : B = Clng(MyArray(3))
    Delay 500
End Function
//-------------------------------------------------------------------------------------------------------------------------
'[公式重選] : 1.激活軟件;2.進行重選操作;3.修改計劃周期
Function 公式重選
    TracePrint "[" & 當前時間 & "] 推薦軟件_重選公式:定碼萬位"
    Call 激活推薦軟件
    '1.點擊關閉當前公式
    鼠標按下位置X = L + 354
    鼠標按下位置Y = T + 172
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftClick 1
    Delay 500
    '2.點擊全部折疊
    鼠標按下位置X = L + 182
    鼠標按下位置Y = T + 170
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftClick 1
    Delay 500
    '3.點擊展開定位膽系列
    鼠標按下位置X = L + 25
    鼠標按下位置Y = T + 193
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftClick 1
    Delay 500
    '4.點擊萬位定碼
    鼠標按下位置X = L + 52
    鼠標按下位置Y = T + 219
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftClick 1
    Delay 3000
    '6.修改計劃周期
    鼠標按下位置X = L + 515
    鼠標按下位置Y = T + 200
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 2000
    LeftClick 1
    Delay 300
    '5.判斷打法
    If 打法 = 2 Then 
        KeyPress "BackSpace", 1
        Delay 300
        SayString "2"
        Delay 300
    ElseIf 打法 = 3 Then 
        KeyPress "BackSpace", 1
        Delay 300
        SayString "3"
        Delay 300
    ElseIf 打法 = 4 Then 
        KeyPress "BackSpace", 1
        Delay 300
        SayString "4"
        Delay 300
    End If
    Delay 300
    KeyPress "Enter", 1
    Delay 3000
End Function
//-------------------------------------------------------------------------------------------------------------------------
//推薦軟件_復制操作
'[復制開獎信息]
Function 復制開獎信息
    '復制開獎信息
    鼠標按下位置X = L + 125
    鼠標按下位置Y = T + 138
    鼠標彈起位置X = L + 569
    鼠標彈起位置Y = T + 138
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftDown 1
    Delay 300
    MoveTo 鼠標彈起位置X,鼠標彈起位置Y 
    LeftUp 1
    Delay 300
    KeyDown 17, 1
    KeyPress 67, 1
    KeyUp 17, 1
    Delay 300
    開獎信息 = Plugin.sys.GetCLB()
    Delay 300
End Function
'[復制推薦號碼] : [當前推薦購買號碼]
Function 復制推薦號碼
    '移動鼠標到指定復制位置
    鼠標按下位置X = L + 960
    鼠標按下位置Y = T + 230
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    當前推薦購買號碼 = Plugin.sys.GetCLB()
    Delay 300
End Function
'[復制當前計劃] 
Function 復制當前計劃
    鼠標按下位置X = L + 213
    鼠標按下位置Y = T + 629
    鼠標彈起位置X = L + 492
    鼠標彈起位置Y = T + 668
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftDown 1
    Delay 300
    MoveTo 鼠標彈起位置X,鼠標彈起位置Y 
    LeftUp 1
    Delay 300
    KeyDown 17, 1
    KeyPress 67, 1
    KeyUp 17, 1
    Delay 300
    當前計劃 = Plugin.sys.GetCLB()
    Delay 300
End Function
'[復制歷史數據] 
Function 復制歷史數據
    TracePrint  "["  & 當前時間 & "] 推薦軟件_復制歷史數據"
    鼠標按下位置X = L + 225
    鼠標按下位置Y = T + 231
    MoveTo 鼠標按下位置X, 鼠標按下位置Y
    Delay 500
    LeftClick 1
    Delay 500
    MoveTo 鼠標按下位置X + 20, 鼠標按下位置Y + 15
    Delay 500
    RightClick 1
    Delay 500
    MoveTo 鼠標按下位置X + 120, 鼠標按下位置Y + 50
    Delay 500
    LeftClick 1
    Delay 500
    歷史預測信息 = Plugin.sys.GetCLB()
    Delay 300
End Function 
//-------------------------------------------------------------------------------------------------------------------------
//推薦軟件_轉化
'[獲取連對次數] : [當前連對數量]  [本局連對次數] : 1.激活推薦軟件;2.復制當前計劃;3.得到當前連對句子;4.得到當前數量;5.得到本局連對次數(要求該函數前運行“獲取初始連對次數”)
Function 獲取連對次數
    Call Plugin.Window.Top(瀏覽器, 1)
    Call 激活推薦軟件
    '1.復制當前計劃狀態
    鼠標按下位置X = L + 214
    鼠標按下位置Y = T + 650
    鼠標彈起位置X = L + 900
    鼠標彈起位置Y = T + 650
    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()
    TracePrint 當前計劃狀態
    '2.分割當前計劃狀態
    dim 當前計劃狀態數組   
    當前計劃狀態數組 = Split(當前計劃狀態, ",")   
    當前連對 = 當前計劃狀態數組(4)
    Delay 300
    '3.得到當前連對數量
    當前連對 =  Replace(當前連對, "當前連對", "")
    當前連對數量 =  Replace(當前連對, "個", "")
    '4.得到本局連對次數
    本局連對次數 = 當前連對數量 - 初始連對次數
    Delay 300
    Call Plugin.Window.Min(推薦軟件)
    TracePrint "本局連對次數:" & 本局連對次數
    Delay 300
End Function
'[獲取初始連對次數] : [獲取初始連對次數]  [預設連對終止]
Function 獲取初始連對次數
    Call 獲取連對次數
    '1.得到初始連對次數
    初始連對次數 = 當前連對數量
    '2.預設連對終止次數
    If 打法 = 2 Then //連贏4把
        預設連對終止 = 初始連對次數 + 3
    ElseIf 打法 = 3 Then 
        預設連對終止 = 初始連對次數 + 6
    ElseIf 打法 = 4 Then 
        預設連對終止 = 初始連對次數 + 9
    End If
    TracePrint "["  & 當前時間 & "] 當前連對:" & 初始連對次數 &  " ; 預設終止數量為:" & 預設連對終止
    Delay 500	
End Function
'[獲取當前追號期數] : [當前追號期數]
Function 獲取當前追號期數
    Call 激活推薦軟件
    Delay 300
    Call 復制當前計劃
    Delay 300
    '獲取當前追號期數 
    當前追號期數 = Right(當前計劃, 2)
    TracePrint "當前追號期數為:" & 當前追號期數
    Delay 300
End Function
//-------------------------------------------------------------------------------------------------------------------------
'[追號期數轉化數組_沖鋒(當前追號期數)]
Function 追號期數轉化數組_沖鋒(當前追號期數)
    TracePrint  "["  & 當前時間 & "] 數據轉化_追號期數轉化數組_1/3/6/12"
    If 當前追號期數 = "1期" Then 
        倍數 = 1
    ElseIf 當前追號期數 = "2期" Then
        倍數 = 3
    ElseIf 當前追號期數 = "3期" Then
        倍數 = 6
    ElseIf 當前追號期數 = "4期" Then
        倍數 = 12
    End If
    上局追號期數 = 當前追號期數
    TracePrint "選擇了倍數:" & 倍數
End Function
'[追號期數轉化數組_常規(當前追號期數)]
Function 追號期數轉化數組_常規(當前追號期數)
    TracePrint  "["  & 當前時間 & "] 數據轉化_追號期數轉化數組_1/2/4/8"
    If 當前追號期數 = "1期" Then 
        倍數 = 1
    ElseIf 當前追號期數 = "2期" Then
        倍數 = 2
    ElseIf 當前追號期數 = "3期" Then
        倍數 = 4
    ElseIf 當前追號期數 = "4期" Then
        倍數 = 8
    End If
    上局追號期數 = 當前追號期數
End Function

瀏覽器操作

使用chrome軟件進行各種操作

//==========================================================================================================================
'瀏覽器操作
'[瀏覽器操作] : 1.激活、置頂、最大化;2.定位膽、選號、選倍數、選金額、購彩;3.除錯、取消置頂
Function 瀏覽器操作
    'header
    Call Plugin.Window.Active(瀏覽器)
    Delay 300
    Call Plugin.Window.Top(瀏覽器, 0)
    Delay 300
    Call Plugin.Window.Max(瀏覽器)
    Delay 300
    '鍵入ESC瀏覽器除錯
    Call Plugin.Bkgnd.KeyPress(瀏覽器, 27)
    '讀取當前余額
    當前余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@id='AvailableBalance']")
    '點擊定位膽
    Call LibE.神夢_智能填表.元素_點擊("http://*[@id='PLAY-CONTAINER']/div[1]/div[1]/a[8]")
    TracePrint "點擊選擇定位膽完畢"
    '1.選號
    Call 選號
    '2.選擇倍數
    Call 計算倍數
    Call LibE.神夢_智能填表.元素_置輸入框(購買倍數, "http://*[@id='PLAY-CONTAINER']/div[5]/div/div[1]/div[1]/input")
    Delay 300
    '判斷投注購彩金額:元/角
    Call 判斷購彩金額
    '3.點擊立即購買
    Call LibE.神夢_智能填表.元素_點擊("http://*[@id='PLAY-CONTAINER']/div[5]/a[2]")
    Delay 2000
    '鍵入ESC瀏覽器除錯
    Call Plugin.Bkgnd.KeyPress(瀏覽器, 27)
    Delay 200
    'c.取消瀏覽器置頂
    Call LibE.神夢_智能填表.網頁_是否就緒(20)
    Call Plugin.Window.Top(瀏覽器, 1)
    Delay 300
End Function
//-------------------------------------------------------------------------------------------------------------------------
//瀏覽器_計算
'瀏覽器_計算
'[計算備用資金] : [開局余額]  [備用資金]
Function 計算備用資金
    '注:只能在查找并綁定窗口句柄使用本函數
    開局余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@id='AvailableBalance']")
    TracePrint "開局余額為:" & 開局余額
    備用資金 = 開局余額 - 本金
    TracePrint "備用資金為:" & 備用資金
End Function
'[計算可以使用資金] : [上局余額]  [可以使用資金]  [差額]
Function 計算可以使用資金
    '注:在獲取當前余額后使用本函數
    '讀取當前余額
    當前余額 = LibE.神夢_智能填表.元素_取屬性值("title", "http://*[@id='AvailableBalance']")
    '得到上局余額
    上局余額 = 當前余額
    Delay 300
    '得到差額
    差額 = 當前余額 - 開局余額
    Delay 300
    If 差額 = 0 Then 
        可以使用資金 = 本金
    ElseIf 差額 < 0 Then
        可以使用資金 = 差額 + 本金
    Else 
        可以使用資金 = 當前余額 - 備用資金
    End If
End Function
'[計算基數] : [基數]
Function 計算基數
    Call 計算可以使用資金
    '計算可以使用資金后可以使用該函數
    TracePrint "當前可以使用資金" & 可以使用資金
    If 可以使用資金 <= 本金 * 3 Then 
        基數 = Int((可以使用資金) / 300)
        TracePrint 基數
    Else 
        基數 = Int((可以使用資金 - 本金) / 200)
        TracePrint 基數     
    End If
    '設置當前基數最小為一,即本金發生虧損的情況下,投注基數保持不變
    If 差額 < 0 Then 
        基數 = Int((本金) / 300)
    End If
End Function
'[計算倍數] : [倍數]  [購買倍數]
Function 計算倍數
    Call 獲取連對次數
    If 本局連對次數 < 7 Then 
        '如果連對次數小于7次則沖鋒
        Call 追號期數轉化數組_沖鋒(當前追號期數)
    Else 
        '如果連對次數大于7次則常規
        Call 追號期數轉化數組_常規(當前追號期數)
    End If
    If 本局連對次數 = 0 Then 
        倍數 = 1
    End If
    '輸出購買倍數
    購買倍數 = 基數 * 倍數
    TracePrint "基數:" & 基數
    TracePrint "倍數:" & 倍數
    TracePrint "購買倍數:" & 購買倍數
End Function
//-------------------------------------------------------------------------------------------------------------------------
'瀏覽器_操作
'[選號] : 依次點擊號碼
Function 選號
    TracePrint "[" & 當前時間 & "] 網頁操作_開始購買: " & 當前推薦購買號碼
    '網頁陸續點擊選擇好的推薦號碼
    Call 推薦購買匹配(推薦購買一)
    Call LibE.神夢_智能填表.元素_點擊(元素)
    Call 推薦購買匹配(推薦購買二)
    Call LibE.神夢_智能填表.元素_點擊(元素)
    Call 推薦購買匹配(推薦購買三)
    Call LibE.神夢_智能填表.元素_點擊(元素)
    Call 推薦購買匹配(推薦購買四)
    Call LibE.神夢_智能填表.元素_點擊(元素)
    Call 推薦購買匹配(推薦購買五)
    Call LibE.神夢_智能填表.元素_點擊(元素)
    TracePrint "[" & 當前時間 & "] 點選號碼完畢"
End Function
'[判斷購彩金額] : 判斷投注購彩金額:元/角
Function 判斷購彩金額
    If 購彩金額 = "角" Then 
        Call LibE.神夢_智能填表.元素_點擊("#PLAY-CONTAINER > div.betNum-btn.row_btm.clear > div > div.amount-box > div.unit-box.select-box")
        Delay 300
        Call LibE.神夢_智能填表.元素_執行事件("mouseover", "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 300
    '點擊當前余額
    Call LibE.神夢_智能填表.元素_點擊("http://*[@id='AvailableBalance']")
    Call Plugin.Window.Min(瀏覽器)
    Delay 888
End Function
//-------------------------------------------------------------------------------------------------------------------------
/*
運行以下代碼需要獲取:當前推薦購買號碼 
以下代碼將推薦的號碼轉換成可點擊的網頁元素代碼 
*/
'[推薦值轉化] : [上局推薦購買號碼] (通用)
Function 推薦值轉化
    dim 推薦購買數組   
    推薦購買數組 = Split(當前推薦購買號碼, " ")   
    推薦購買一 = Clng(推薦購買數組(0))
    推薦購買二 = Clng(推薦購買數組(1))
    推薦購買三 = Clng(推薦購買數組(2))
    推薦購買四 = Clng(推薦購買數組(3))
    推薦購買五 = Clng(推薦購買數組(4))
    Delay 300
    上局推薦購買號碼 = 當前推薦購買號碼
End Function
'[五星元素匹配] (通用)
Function 五星元素匹配
    '萬位元素
    萬零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(1) > a"
    萬一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(2) > a"
    萬二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(3) > a"
    萬三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(4) > a"
    萬四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(5) > a"
    萬五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(6) > a"
    萬六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(7) > a" 
    萬七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(8) > a" 
    萬八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(9) > a" 
    萬九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(1) > div.sumBtn_left > div > span:nth-child(10) > a"
    '千位元素
    千零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(1) > a"
    千一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(2) > a"
    千二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(3) > a"
    千三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(4) > a"
    千四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(5) > a"
    千五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(6) > a"
    千六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(7) > a" 
    千七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(8) > a" 
    千八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(9) > a" 
    千九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(2) > div.sumBtn_left > div > span:nth-child(10) > a"
    '百位元素
    百零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(1) > a"
    百一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(2) > a"
    百二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(3) > a"
    百三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(4) > a"
    百四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(5) > a"
    百五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(6) > a"
    百六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(7) > a" 
    百七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(8) > a" 
    百八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(9) > a" 
    百九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(3) > div.sumBtn_left > div > span:nth-child(10) > a"
    '十位元素
    十零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(1) > a"
    十一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(2) > a"
    十二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(3) > a"
    十三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(4) > a"
    十四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(5) > a"
    十五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(6) > a"
    十六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(7) > a" 
    十七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(8) > a" 
    十八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(9) > a" 
    十九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(4) > div.sumBtn_left > div > span:nth-child(10) > a"
    '個位元素
    個零 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(1) > a"
    個一 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(2) > a"
    個二 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(3) > a"
    個三 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(5) > a"
    個四 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(5) > a"
    個五 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(6) > a"
    個六 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(7) > a" 
    個七 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(8) > a" 
    個八 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(9) > a" 
    個九 = "#PLAY-CONTAINER > div.sumBtn_box > div > div > div:nth-child(5) > div.sumBtn_left > div > span:nth-child(10) > a"
End Function
'[推薦購買匹配()] (通用)
Function 推薦購買匹配(推薦購買)
    Call 五星元素匹配
    If 推薦購買 = 0 Then 
        元素 = 萬零
    ElseIf 推薦購買 = 1 Then
        元素 = 萬一
    ElseIf 推薦購買 = 2 Then
        元素 = 萬二
    ElseIf 推薦購買 = 3 Then
        元素 = 萬三
    ElseIf 推薦購買 = 4 Then
        元素 = 萬四
    ElseIf 推薦購買 = 5 Then
        元素 = 萬五
    ElseIf 推薦購買 = 6 Then
        元素 = 萬六
    ElseIf 推薦購買 = 7 Then
        元素 = 萬七
    ElseIf 推薦購買 = 8 Then
        元素 = 萬八
    ElseIf 推薦購買 = 9 Then
        元素 = 萬九
    End If
End Function
//-------------------------------------------------------------------------------------------------------------------------
循環體

串聯腳本各分布的核心所在

//==========================================================================================================================循環體
'[判斷是否中止] : 本金為0則終止
Function 判斷是否中止
    Call 計算可以使用資金
    If 可以使用資金 <= 0 Then 
        '如果可以使用的資金小于0,則停止
        TracePrint "[" & 當前時間 & "] 已經輸光了本金[" & 本金 & "]元,當前盈利[" & 差額 & "]元,程序終止!"
        ExitScript 
    Else 
        '繼續運行
        TracePrint "[" & 當前時間 & "] 當前可以使用的資金為:[" & 可以使用資金 & ",], 盈利[" & 差額 & "]元,請再接再厲!"
        Delay 300
    End If
End Function
'[判斷是否換公式] : 出現1掛或達到預設連對次數更換公式
Function 判斷是否換公式
    Call 獲取連對次數
    If 當前連對數量 = 0 Then 
        TracePrint "[" & 當前時間 & "] 當前這一局公式沒贏到10局就掛了!當前連勝" & 本局連對次數
        Call 公式重選
        Call 獲取初始連對次數
    ElseIf 當前連對數量 = 預設連對終止 Then
        TracePrint "當前連對數量:" & 當前連對數量
        TracePrint "預設連對終止:" & 預設連對終止	 
        '如果當前公式連續對了10個,則換公式
        TracePrint "[" & 當前時間 & "] 當前這一局公式連勝" & 當前連對數量 & "局,現在開始換一種公式!"
        Call 公式重選
        Call 獲取初始連對次數
    Else 
        '不換公式
        TracePrint "[" & 當前時間 & "] 不需要換公式!本局連對次數為:" & 本局連對次數
        Delay 100
    End If
End Function
'[一期判斷] : 如果當前為1期則判斷程序是否中止、是否更換公式并計算基數
Function 一期判斷
    Call 獲取當前追號期數
    If 當前追號期數 = "1期" Then 
        Call 判斷是否中止
        Delay 300
        Call 判斷是否換公式
        Delay 300
        Call 計算基數
        Delay 300
    End If	
End Function
//-------------------------------------------------------------------------------------------------------------------------
'循環體_循環
'[核心循環] : 通過判斷當前開獎期號判斷是否需要進行購彩操作
Function 核心循環
    Do
        上局期號 = 當前期號
        Do
            '如果是新的一期則開始投注操作
            If 上局期號 <> 當前期號 Then 
                Call 一期判斷
                TracePrint  "[" + 當前時間 + "]當前期號不等于上局期號"
                TracePrint "上局" + 上局期號
                TracePrint "當前" + 當前期號
                上局期號 = 當前期號
                Delay 300
                Call 自動操作
                Exit Do 
            End If
            '如果期號一致則繼續循環
            Delay 1000
            TracePrint "[" + 當前時間 + "]期號一致,刷新頁面后繼續循環"
            '獲取最新開獎數據
            Call 瀏覽器刷新
            Delay 300
            Call 激活推薦軟件
            Call 復制開獎信息
            當前期號 = Left(開獎信息, 15)
            TracePrint "[" + 當前時間 + "]當前" + 當前期號
            '每次循環有30秒鐘間隔
            For i = 30 To 0 Step -1
                TracePrint i
                Delay 1000
            Next
        Loop
    Loop
End Function
//-------------------------------------------------------------------------------------------------------------------------
'循環體_操作
'[自動操作]
Function 自動操作
    '0.預先準備
    Call 激活推薦軟件
    Call 復制開獎信息
    上局開獎信息 = "上局開獎信息為:[" & 開獎信息 & "]" 
    上局投注信息 = "上局投注信息為:[" & 上局推薦購買號碼 & "],上局追號期數為[" & 上局追號期數 & "]"
    '1.推薦軟件操作
    Call 推薦軟件操作
    '2.瀏覽器操作
    Call 瀏覽器操作
    '3.對話窗口操作
    If 對話窗口 = "QQ" Then 
        Call QQ操作
    ElseIf 對話窗口 = "微信" Then
        Call 微信操作
    End If
End Function