該腳本為張凱個人原創,將重慶SSC推薦軟件上的數據轉化,自動發送到Emlog建立的網站上,網址為:[2019.5.19]網址已經荒廢,下面先看一下本地運行效果圖:

屏幕截圖(17).png


網址 = "網址已荒廢"
賬號 = "******"
密碼 = "******"
文件地址 = "C:\開獎數據.txt"
//綁定軟件進程
SSC = Plugin.Window.Find(0, "重慶SSC")
Function 當前時間
    當前時間 = Plugin.Sys.GetDateTime() & " "
End Function
Function 寫出數據(寫入變量)
    Call Plugin.File.WriteFileEx(文件地址,寫入變量)
End Function
Function 獲取實時數據并存檔
    Call Plugin.File.DeleteFile(文件地址)
    Call 激活推薦軟件
    Call 復制推薦號碼
    寫出數據("當前推薦購買號碼:" & 推薦購買號碼)
    寫出數據 ("--------------------------------------------------------------------------")
    Call 復制開獎信息
    寫出數據 (開獎信息)
    寫出數據 ("--------------------------------------------------------------------------")
    Call 復制當前計劃
    寫出數據(當前計劃)
    寫出數據 ("--------------------------------------------------------------------------")
    Call 復制歷史數據
    寫出數據 (歷史預測信息)
    //數據轉HTML
    內容 = Plugin.File.ReadFileEx(文件地址)
    Dim 內容, 替換文本   
    替換文本 = Plugin.SMWH.ReplaceEx(內容, "|", "<br>", 0)
    替換文本 = Plugin.SMWH.ReplaceEx(替換文本, "	", "&nbsp;&nbsp;&nbsp;&nbsp;", 0)
    Call Plugin.File.DeleteFile(文件地址)
    寫出數據 (替換文本)
End Function
Function 激活推薦軟件
    //激活并還原窗口
    Call Plugin.Window.Active(SSC)   
    Call Plugin.Window.Restore(SSC)
    //下面這句是得到窗口句柄的客戶區大小   
    sRect = Plugin.Window.GetClientRect(SSC)     
    dim MyArray   
    MyArray = Split(sRect, "|")   
    L = Clng(MyArray(0)): T = Clng(MyArray(1))   
    R = Clng(MyArray(2)): B = Clng(MyArray(3))   
End Function
Function 復制開獎信息
    //1.復制開獎信息
    鼠標按下位置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()
End Function
Function 復制推薦號碼
    //移動鼠標到指定復制位置
    鼠標按下位置X = L + 965
    鼠標按下位置Y = T + 230
    MoveTo 鼠標按下位置X,鼠標按下位置Y 
    Delay 300
    LeftClick 1
    Delay 300
    推薦購買號碼 = Plugin.sys.GetCLB()
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()
End Function
Function 復制歷史數據
    鼠標按下位置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()
End Function 
Function 網站操作
    Call 獲取實時數據并存檔
    標題 = Left(開獎信息, 32)
    內容 = Plugin.File.ReadFileEx(文件地址)
    '進入寫文章
    寫文章頁面 = "http://" & 網址 & "/admin/write_log.php"
    Call LibE.神夢_智能填表.網頁_跳轉(寫文章頁面)
    '判斷網頁是否加載完畢
    Call LibE.神夢_智能填表.網頁_是否就緒加強("高級選項", 1, 10)
    文本索引 = LibE.神夢_智能填表.網頁_是否就緒加強("高級選項", 1, 5)
    Delay 3000
    '輸入標題
    Call LibE.神夢_智能填表.元素_置輸入框(標題, "id:title")
    Delay 500
    '選擇分類
    Call LibE.神夢_智能填表.元素_置下拉框(1, "id:sort")
    Delay 1000
    '點擊源碼
    Call LibE.神夢_智能填表.元素_點擊("http://*[@id='post']/div[3]/div/div[1]/span[35]/span")
    '輸入內容
    Call LibE.神夢_智能填表.元素_置輸入框(內容 , "tag:TEXTAREA&type:textarea&index:0")
    Delay 1000
    '點擊保存
    Call LibE.神夢_智能填表.元素_點擊("tag:INPUT&type:submit")
    Delay 1000
End Function
//初始化命令庫
If LibE.神夢_智能填表._初始化("", "") = False  Then 
    MsgBox "出錯,智能填表初始化失??!", 1 + 16 + 4096, "警告!"
    ExitScript 
End If
//啟動Chrome瀏覽器
If LibE.神夢_智能填表.綁定("Chrome.exe") Then 
    //啟動IE瀏覽器
    //If LibE.神夢_智能填表.綁定("IE.exe") Then 
    //    '獲取IE瀏覽器句柄
    //    瀏覽器句柄 = Plugin.Window.Find("IEFrame", 0)
    Call 獲取窗口大小及其他操作
    //------------------------------------------------------------------------------------------------------------------------------
    //開始操作(使用For循環,進行網站的循環發布)
    '打開網頁
    當前網站后臺 = "http://" & 網址 & "/admin"
    Call LibE.神夢_智能填表.網頁_跳轉(當前網站后臺)
    '識別是否加載成功
    Call LibE.神夢_智能填表.網頁_是否就緒加強("記住我", 1, 10)
    '判斷網頁是否加載完畢
    文本索引 = LibE.神夢_智能填表.網頁_是否就緒加強("記住我", 1, 5)
    If 文本索引 Then 
        TracePrint  "[" + 當前時間 + "] " + " [" & 網址 & "] 打開成功!"
    Else 
        TracePrint  "[" + 當前時間 + "] " + " [" & 網址 & "] 打開失??!"
    End If
    '輸入賬號
    Call LibE.神夢_智能填表.元素_置輸入框(賬號, "tag:INPUT&id:user")
    '輸入密碼
    Call LibE.神夢_智能填表.元素_置輸入框(密碼, "tag:INPUT&id:pw")
    '點擊登錄
    Call LibE.神夢_智能填表.元素_點擊("tag:INPUT&value: 登 錄&index:3")
    Delay 500
    '判斷網頁是否加載完畢
    Call LibE.神夢_智能填表.網頁_是否就緒加強("歡迎使用", 1, 10)
    文本索引 = LibE.神夢_智能填表.網頁_是否就緒加強("歡迎使用", 1, 5)
    If 文本索引 Then 
        TracePrint  "[" + 當前時間 + "] " + " [" & 網址 & "] 登陸成功!"
    Else 
        TracePrint  "[" + 當前時間 + "] " + " [" & 網址 & "] 登陸失??!"
    End If
    //判斷是否為新的一期
    Do
        上局期號 = 當前期號
        Do 
            If 上局期號 <> 當前期號 Then 
                TracePrint  "[" + 當前時間 + "] 當前期號不等于上局期號"
                TracePrint "上局" + 上局期號
                TracePrint "當前" + 當前期號
                上局期號 = 當前期號
                Call 網站操作
                Exit Do 
            End If
            Delay 1000
            TracePrint  "[" + 當前時間 + "] 號碼一致,繼續循環" 
            Call 激活推薦軟件
            Call 復制開獎信息
            當前期號 = Left(開獎信息, 15)
            TracePrint "[" + 當前時間 + "] 當前" + 當前期號
            Delay 30000
        Loop
        TracePrint "再次循環"
    Loop
Else 
    MsgBox "出錯,綁定瀏覽器失??!", 1 + 16 + 4096, "警告!"
    ExitScript 
End If
//把這個代碼放到腳本末尾,避免按鍵精靈奔潰
//Sub OnScriptExit()
//    Call LibE.神夢_智能填表._銷毀()
//End Sub
//Sub OnThreadExit()
//    Call LibE.神夢_智能填表._銷毀()
//End Sub
Function 獲取窗口大小及其他操作
    Delay 2000
    //    '獲取Chrome瀏覽器句柄
    //    瀏覽器句柄 = Plugin.Window.Find("Chrome_WidgetWin_1", 0)
    //    TracePrint "瀏覽器句柄為:" + 瀏覽器句柄
    //    '獲取標簽窗口大小
    //    sRect = Plugin.Window.GetClientRect(瀏覽器句柄)
    //    dim 標簽坐標
    //    標簽坐標 = Split(sRect, "|")
    //    窗口左上X = Clng(標簽坐標(0)) : 窗口左上Y = Clng(標簽坐標(1))
    //    窗口右下X = Clng(標簽坐標(2)) : 窗口右下Y = Clng(標簽坐標(3)) 
    //    '設置窗口句柄大小
    //    Call Plugin.Window.SetClientSize(瀏覽器句柄, 1024, 768)   
    //    '激活句柄
    //    Call Plugin.Window.Active(瀏覽器句柄)  
    '禁止彈窗
    Call LibE.神夢_智能填表.網頁_禁止彈窗
    '禁止警報
    Call LibE.神夢_智能填表.網頁_禁止警報(True)
    '清除Cookie   
    Call LibE.神夢_智能填表.清除Cookie
    '清除歷史記錄   
    Call LibE.神夢_智能填表.清除歷史記錄
    TracePrint "完成獲取窗口大小及其他操作"
End Function