• 超长寒假里与脚本精灵的二三事


      一切的开始是同学们希望我找到一个自动打卡的方法.我想了一圈后发现可以写脚本模拟打卡.

      用免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:UsersasusDesktopA.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:UsersasusDesktopB.bmp",1.0, X, Y    
            MoveTo  X+10,Y+10
            LeftClick 1
        ElseIf A(i)=3 Then //选C
            FindPic 0,0,700,700,"C:UsersasusDesktopC.bmp",1.0, X, Y    
            MoveTo  X+10,Y+10
            LeftClick 1
        Else //选D
            FindPic 0,0,700,700,"C:UsersasusDesktopD.bmp",1.0,X, Y    
            MoveTo  X+10,Y+10
            LeftClick 1
        End If
        FindPic 0, 0, 700,700, "C:UsersasusDesktop下一页.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:UsersasusDesktop内容.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:UsersasusDesktop所有人可见.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:UsersasusDesktop发表.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日高考,那时就没有脚本可用了,加油!

  • 相关阅读:
    代码生成器所用到的东西
    被float.parse吃掉的0.03...
    Microsoft Visual Studio 2010 Ultimate ISO 官方下载地址
    关于.net实现网站模板机制(非标签替换)
    关于ACCESS的事务与存储过程的调用
    关于如何实现左中右三栏布局, 左右固定宽度,中间随屏幕自适应
    几个台湾优秀个人博客网站
    [转]MathType常见问题
    Qt中int转换成QString
    fatal error C1189: #error : The C++ Standard Library forbids macroizing keywords. Enable warning C4005 to find the forbidden macro.
  • 原文地址:https://www.cnblogs.com/qywyt/p/12440946.html
Copyright © 2020-2023  润新知