某##脚##本 V3.1 最后更新

2020年5月10日 最后更新（包括此平台）

嘛，其实我都已经放弃这个平台了，结果发现还有人在这边文章下不断问问题啥的，对此有人发现问问题没人回还骂人啥的。
首先本次为在这个平台更新关于这个脚本内容的最后一次。放弃更新这个脚本的原因是小半年前我已经退出体制内了，所以那个某学习平台我已经不用了。放弃简book平台的原因是：①打赏转某钻，金额直接缩水10倍。我本来都没关注这个，几个朋友曾打赏过我的文章，然后发现简book直接给我转换成了什么钻，金额缩水10倍，反正提现什么的是不可能的，哈哈，行为有点恶心。②是平台敏感词越来越多，还附带莫名其妙锁文debuff，我已经被锁了不少了，没意思，这么搞创作者还有啥兴趣。现在的确大环境不行了，我敢说网络平台原文放一篇《共产党宣言》的文章都活不过一个月。

本次更新的内容主要是①增加更详细的注释，以便于你们自己根据自己的设备进行修改。②描述一下脚本的使用方法，你们有些伸手党太懒了，都是摆在网络透明的东西，为什么你们就找不到呢。

脚本使用平台

一般的程序语言是编译型程序语言，使用编译器把代码转换为某二进制程序，然后用户拿着二进制程序用就行，但我提供的这个源代码是解释型语言，是需要解释器来解释脚本中的命令给硬件资源使用。我们需要用到的解释器就是脚本精灵（下载网址我都给你们贴了，总不能找不到了吧）。【有兴趣的同学可以到脚本精灵贴吧学到不少知识，做一些脚本不但可以减少手头的重复工作，没事还可以体会开发创造的乐趣或者补贴掉零花钱之类的】
平时可以用电脑版修改脚本和调试，写完同步到手机端运行就行。需要注意由于目前的新手机为了用户安全，都不给用户root 权限了，所以其实新手机很难使用按键模拟脚本。所以如果你没有老手机，建议使用安卓模拟器。
这里再附上脚本语言相关的文档：官网教程
什么，你不想自己写，懒得写(O_o)??抱歉，一个脚本要适配目前市面上不同的手机设备、各种不同手机分辨率、异形屏还有系统，不报错是不可能的。你拿到脚本想稳定运行，肯定得不断版本更新，适配硬件。如果你什么都不想干，只想直接运行，请到相关贴吧付钱找人帮你开发，还能给你写个ui界面，最后打包编译成app发给你，多简单hhhhh

总的说：

• 手机运行我写的源码，需要安装手机版脚本精灵作为脚本解释器，然后在脚本精灵中运行脚本；如果不想运行脚本，而想使用二进制程序文件，你可以适配检查源码运行有效无bug之后，用脚本精灵把脚本打包编译为app安装运行。旧手机可直接root大师之类的获得root权限；新手机，你省了吧，root很麻烦，建议电脑端安卓模拟器运行。
• 电脑端运行，需要安装安卓模拟器，再安装某学习平台，再安装脚本精灵，再使用脚本源码进行运行。
• 听说现在某学习平台也有pc端了，那就更简单了，直接在电脑端写适配电脑运行的脚本就行了，电脑没root权限限制，更方便。

源码涉及到的函数使用

其实这个脚本写的很简单，都没涉及到什么算法，就是点判断执行判断执行，调用的函数就那么几个，模拟按、点、拖啥的……你们看看官方教程就知道内容很简单。
下面源码的关键命令，你了解那么几个就行了。
Dim 是定义变量。call 可以调用其他函数，可以是脚本精灵内部自带的函数（如下文messagebox()函数），也可以是你自定义的函数（如下文dianwen()自定义函数）。Rnd() 可以产生随机数。Touch() 就是点击，带上点击的坐标参数就可以。Delay() 是让程序等待某个长度的时间。messagebox() 是提示信息，以便于让使用者看到目前程序在干什么。TracePrint() 是调试信息，是程序调试的时候可以看见，便于检查是否在某个环节有错误，程序运行的时候看不见。InputText() 是向光标位置输入信息。Sub 是用来自定义函数的。

源码思路

这里先大致讲讲下面源码的一些思路。由于很久之前写的时候的程序设计图啥的已经找不到了，就只能大致讲讲了，设计图也只是为了厘清思路。
首先我们需要模拟人手进行操作，主要是让系统进行点击、拖拽等。但出于防止被检测到的目前，我们需要一些防止被发现的方法。如果某学习平台要发现我们是脚本，有很多方法，检查进程啦、检查模拟点击的权限啦……当然，最简单的检查方法就是检查我们是否存在重复操作、并且刷了太多了分。
目前这个脚本通过看视频、刷文章、评论、分享其实刷不了多少分，我自己使用的时候再在观察，某学习平台的题才是分数占比高的，我反正从来挂不赢单位的领导和某些没事做的老干部。所以刷太多分这个不用担心，而重复操作，我们可以通过生成随机数去限制，我用c1变量给每次点击的坐标和程序执行间隔都加了随机量，评论那里在用变量c控制，想回复多一些的自己多添加一些就行。
因为一开始写这个源码的时候主要是自己用，为了一切从简，所以我就没写ui界面，直接用的变量状态做开关控制，所以源码一开始就是一堆定义全局变量，通过变量作为开关，让程序执行到某个流程的时候判断变量值来判断要不要自动评论、要看多少文章等等。具体可以看代码注释。
在整体上我们需要建立一个大循环，这个大循环就是在文章和视频外部的时候刷新和向下翻找新的文章或视频，这个大循环是用变量first在控制。每执行一次大循环（找新的文章和视频）就会点进文章内部，这时候我们交给我们的自定义函数 dianwen() 来处理，函数名字随便启，你定义它是什么，它就是什么。函数dianwen()主要做的事就是慢慢的向下翻，伪装看文章，看完之后点个收藏。之后他们会查看yisepinci、shanpingjia、fengxiang这三个变量的值，如果一开头这三个值我们给的1，他们就会分别调用pingjia()、shanping()、fx()三个自定义函数来完成评价、删除评价、分享等功能，同时这里用变量b、d限制了评论和分享评论的次数，放置评论和分享的太多。完成这些之后就会再次回到外围大循环开始下一轮。

谈谈其他事

嘛，我已经把其他账号下面一些文章下了，就剩几篇了，看吧，什么时候锁完了其实也就没了。
其实看别人的文章能学到的有限，还是要自己多动手。职场上，学好excel、vbs还有一些程序工具，熟练使用各种函数很有好处，搜索引擎的使用一定要掌握，某个人不一定就能随时解决你遇到的问题，多找资料才是解决问题的最优解。积累知识和进行思考的过程很重要。
以上。不用再私信我啥的，我基本不登这边平台。也不要什么用不了，私信来骂我，真是……等我看到的时候都半年后了。

原文2019年7月23日

---

最近和##谐##词越来越多了，我好几篇文章都被##锁了，啧啧啧，以后就是满屏马赛克。3.1版本更新，更新了点小内容。一个是应某人要求的自动评论后删除评论的功能，听说只要评论就有分，所以评论后删除评论更保险点。另一个是在每个点击坐标和间隔时间上加了随机数，让点击的位置和时间间隔更加不均匀，模拟人的操作。

Delay 2000
Dim screenX,screenY,deviceID,first=25 //获取屏幕分辨率等信息，first设定了程序整体循环次数//
screenX = GetScreenX()  //获取x轴//
screenY = GetScreenY()  //获取y轴//
deviceID = GetDeviceID()  //获取设备id//
TracePrint ""&screenX&"*"&screenY&chr(10)  //内部测试//
call messagebox ("御坂脚##本，启动！")

Dim yisepinci,fengxiang,shanpingjia,i,b,d,c,c1  //定义了评价、分享、删除评价的开关变量，还有些限制变量等，名字都可以随便改，要不然难辨识//
yisepinci = 1 //评价开关，为1则为开//
fengxiang = 1 //分享开关//
shanpingjia = 0 //删除评论开关，默认关，且只有在启动自动评论的情况下才能使用//
b = 1  //限制评价次数//
d = 1  //限制分享次数//
c1 = Int((5 - 1+1) * Rnd() + 1)  //产生一个5至1之间的随机数，用于让点击等更随机，勿设置过大//
Touch 1239+c1,365+c1, 100  //点中间学习图标//
Delay 1000+c1*100
Touch 147+c1,375+c1, 100  //再点推荐//
Delay 1000+c1*100
While first>0  //判断first值，进入大循环//
    call messagebox ("准备点击文章")
    TracePrint "准备点击文章"
    Call dianwen()  //进入文章进行操作//
    first = first - 1  //大循环次数减1//
    TouchDown 1010+c1,350+c1,1  //往下翻，找新的文章//
    TouchMove 500+c1,370+c1,1,400
    TouchUp 1
    Delay 3000+c1*100
Wend
//----------------//
Sub dianwen()
    

    Touch 631+c1,345+c1, 100  //点击文章，进入文章//
    Delay 1000+c1*100
    TracePrint "进入文章"  //进入文章内部后慢慢下滑10S，点击收藏，点击评论归零，长按第一个评论，复制，点击，粘贴，发布，点击左上角返回//
    call messagebox ("进入文章")
    Delay 1000+c1*100
    call messagebox ("下滑10次")
    TracePrint "缓慢下滑10次"
    For i = 1 To 10 Step 1  //缓慢下滑10次//
        TouchDown 1013+c1,366+c1, 1
        TouchMove 643+c1,371+c1, 1, 400
        TouchUp 1
    call messagebox ("滑动一次")
        Delay 2000+c1*100
    Next
    call messagebox ("点击收藏")
    Touch 1244+c1,113+c1, 100
    Delay 1000+c1*100
    If yisepinci = 1 And b < 5 Then   //判断评价开关是否允许评价，查看b值，当前已评价次数是否超出设置5次//
        Call pingjia()
        b=b+1
    End If
    If shanpingjia = 1 And yisepinci = 1 Then 
        Call shanping()
    End If
    Delay 1000+c1*100
    If fengxiang = 1 And d < 5 Then 
        Call fx()
        d=d+1
    End If
    call messagebox ("返回主界面")//返回主界面，完成一次文章查看//
    Touch 76+c1,676+c1, 100
    Delay 2000+c1*100

    
End Sub

//----------------//
Sub messagebox(box)
    TracePrint box
    ShowMessage box
    Delay 1500+c1*100
End Sub

//---删除评价子程序---//
Sub shanping()
    
    call messagebox ("向下滑动一次")
    TouchDown 1013+c1,366+c1, 1
    TouchMove 643+c1,371+c1, 1, 400
    TouchUp 1
    call messagebox ("点击评论，回到第一个评论位置")
    Touch 1249+c1,207+c1, 100
    Delay 1000+c1*100
    Call messagebox("寻找我并获得相对坐标")
    Dim intX, intY,backword
    backword=FindColor(0, 0, 0, 0, "EAEDF0",0, 1, intX, intY)//当需要函数返回值时需要加括号
    If backword > -1 Then
        Call messagebox("尝试删除评论")
        Call messagebox(intX)
        Delay 1000+c1*100
        Touch intX + 93, intY - 505, 100
        Delay 1000+c1*100
        Touch 695 + c1, 121 + c1, 100
        Delay 1000+c1*100
    Else
        call messagebox ("没有找到我的评论")
    End If
    
End Sub

//---评论子程序---//
Sub pingjia()
    

    call messagebox ("点击评论，回到第一个评论位置")
    Touch 1249+c1,207+c1, 100
    Delay 1000+c1*100
    call messagebox ("点击输入框，获得光标")
    Touch 1249+c1,500+c1, 100
    Delay 1000+c1*100
    c = Int((5 - 1+1) * Rnd() + 1)//产生一个5至1之间的随机数//
    Select Case c//判断随机数//
    Case 2
        InputText "祖国更美好！"//情况1
    Case 3
        InputText "创建美丽文明中国！"//情况2
    Case 4
        InputText "共同创新，共建未来！"//情况2
    Case 5
        InputText "建设人类命运共同体的光明前景！"//情况2
    Case Else
        InputText "祝愿祖国目前繁荣昌盛，国泰民安！"//否则
    End Select
    Delay 1000+c1*100
    call messagebox ("点击发表")
    Touch 1167+c1,53+c1, 100
    Delay 1000+c1*100
    
End Sub

//---分享子程序---//
Sub fx()
    
    messagebox ("点击分享")//点击分享，点分享到学##习##强国，点击群，点发送//
    Touch 1244+c1,50+c1, 100
    Delay 1000+c1*100
    messagebox ("点分享到学习##强国")//点分享到学习##强国//
    Touch 880+c1,633+c1, 100
    Delay 1000+c1*100
    messagebox ("点击群")//点击群//
    Touch 470+c1,355+c1, 100
    Delay 1000+c1*100
    messagebox ("点发送")//点发送，坐标未确定//
    Touch 775+c1,145+c1, 100
    Delay 2000+c1*100
    
End Sub