超長寒假裏與腳本精靈的二三事

  一切的開始是同學們希望我找到一個自動打卡的方法.我想了一圈後發現可以寫腳本模擬打卡.

  用免root自動化助手,研究了半小時後發現真是簡單,然而我的破紅米四不支持點擊屏幕,非要Android 7.0以上的才能做到.於是中午又用我的新手機(來自zz)試了半小時,最後成功了,發了個說說慶祝然而應該沒有人會爲了個這而學習腳本製作.我也沒辦法製作成小程序,最後

  然後騰訊課堂裏,每6秒可以給老師送一個花.如何才能一直送還不影響我聽課呢?我百度了一下鼠標連點器,找到了鼠大俠.它支持6s點一下一個位置,正好是我需要的.

學校語文組忘了何時開始要求每天中午做文言常識練習,15min20道選擇.做完後可以查看全校排行榜,以分數爲第一關鍵字,用時爲第二關鍵字,第三關鍵字就不知道是啥了.前幾次我還是好好做的,直到有一次我做完後丁某給我發了他刷榜的諸葛大力的截圖,我十分好奇.原來這羣人有了答案後就拼手速打榜.我自認爲手速很快,於是也來了一次.第一次就力壓羣雄成爲第一.剛開始我的wifi不好,每天中午起牀後把筆記本拿到wifi旁的餐桌開始打榜,那個時候還會因爲緊張而手抖,常常覺得自己失誤了,不過用時還是不變.用電腦答題的我已經比用手機的起點高了,我換了鼠標後時間又提升了一點,最後穩定在21s.20道選擇加上最開始的姓名班級選擇頁面達到了驚人的平均1s一個頁面. 

  有了腳本編寫經驗後我開始思考如何用腳本編寫程序.下載按鍵精靈,在長長的命令列表裏看到了可以用的:findpicture語句,支持在屏幕的一定範圍內找到電腦上特定路徑的圖片並記錄下座標,而每個題的選項雖然位置可能不同,但ABCD這四個打頭是不變的.還有每一頁下面的"下一題"按鍵.這樣就又出現了一次飛躍,寫四個這樣的腳本並設置快捷鍵爲1234,敲完名字班級後每道題都調用一個這道題答案對應腳本,但是時間也就是十幾s好像.

  剛開始因爲用的圖片是ABCD的全部,常常出現識別錯誤而無法識別.最後改進成只要最有特徵的一部分,從此沒有再變過,用到了最後.

      

    用了幾天後覺得還是不夠爽,寫個for循環也不至於這樣啊.於是在一個沒有作業的星期天把ABCD揉在了一起.從此成績再次飛躍,穩定在了7s,偶爾6s.如果想再進一步就會因爲跑得太快而出現問題.

A = Array(999,2,1,4,1,1,3,4,2,3,4,4,3,2,2,4,4,4,1,3,1)//定義一個數組A,現在是今天的20道題的答案轉化成1234

MoveTo 340,318//移動到名字框上
LeftClick 1 //左擊鼠標
KeyPress "Q", 1 //按下q鍵
KeyPress "2", 1 //按2,這個時候'邱宇'二字就出來了
MoveTo 267,363 //移動到班級框上
LeftClick 1 //左擊鼠標
SayString "13" //輸入13
MoveTo 332,447 //移動到 下一頁
LeftClick 1//左擊鼠標
Delay 20
For i = 1 To 20//循環20次

    If A(i) = 1 Then //如果選A
        FindPic 0,0,700,700,"C:\Users\asus\Desktop\A.bmp",1.0, X, Y//找到A.bmp的位置並把座標存在X和Y兩個數字中    
        MoveTo  X+10,Y+10//移動到X,Y向左下角移一點的位置
        LeftClick 1//按鼠標左鍵
    ElseIf A(i) = 2 Then //如果選B
            
        FindPic 0,0,700,700,"C:\Users\asus\Desktop\B.bmp",1.0, X, Y    
        MoveTo  X+10,Y+10
        LeftClick 1
    ElseIf A(i)=3 Then //選C
        FindPic 0,0,700,700,"C:\Users\asus\Desktop\C.bmp",1.0, X, Y    
        MoveTo  X+10,Y+10
        LeftClick 1
    Else //選D
        FindPic 0,0,700,700,"C:\Users\asus\Desktop\D.bmp",1.0,X, Y    
        MoveTo  X+10,Y+10
        LeftClick 1
    End If
    FindPic 0, 0, 700,700, "C:\Users\asus\Desktop\下一頁.bmp", 1.0, X, Y
    MoveTo X+10, Y+10
    LeftClick 1
    
    Delay 20//等一會
Next

MoveTo 1,1

LeftClick 1
語文午測2.1

  這算是寫的最大的一個腳本了,後面的都是小打小鬧了.

  一個是複製粘貼指令.可以適用於QQ刷"鬥圖帝","會撩更會聊","羣聊我最嗨"和"幸運字符".雖然我只刷了一個鬥圖帝和幸運字符.

For i=0 To 200
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyPress "Enter", 1
Next
複製粘貼兩百條

   爲了刷"不曬會死星人",我還寫了個自動發僅自己可見的說說的腳本.由於發一會就會被禁言,爲了避免被騰訊爸爸gank,玩了一會就停了.

While (1)
    FindPic 0, 0, 1024, 768, "C:\Users\asus\Desktop\內容.bmp", 1.0, X, Y
    MoveTo X+50,Y-50
    LeftClick 1
    KeyDown 17, 1
    KeyPress 86, 1
    KeyUp 17, 1
    FindPic 0, 0, 1024, 768, "C:\Users\asus\Desktop\所有人可見.bmp", 1.0, X, Y
    MoveTo X, Y+5
    LeftClick 1
    Delay 1000
    MoveTo X,Y+170
    LeftClick 1
    FindPic 0, 0, 1024, 768, "C:\Users\asus\Desktop\發表.bmp", 1.0, X, Y
    MoveTo X, Y
    LeftClick 1
    Delay 3000
Wend
不曬會死星人

  甚至連QQ自動點讚我都做了出來.用了一天後發現我本來的互贊之交紛紛掉了.問了期中一個才知道這樣點出來的贊好友不會收到提示.於是就廢除了.

Rem here
FindPic 0,0,1024,768,"C:\\贊.bmp",1.0,X,Y
If (X > 0) Then 
    MoveTo X +10, Y +10
    Rem are
    LeftClick 1
    Delay 1000
    FindPic 0,0,1024,768,"C:\\夠了!.bmp",1.0,X1,Y2
    If X1 <=0 Then 
        Goto are
    End If
    Delay 5000
Else 
    MouseWheel - 3
    Delay 2000
End If
Goto here
自動QQ名片贊2.2

  這就是我超長寒假裏用腳本精靈寫過的幾個有意義的腳本了.非常有趣也很感謝它們.後天開學,7月7日高考,那時就沒有腳本可用了,加油!

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章