2020年5月10日
关于本脚本的相关最新内容已移步更新文章中,请查看。
最后更新
另外如果点过去找不到文章,多半是被锁了。简book已经锁了我不少文章了。那就没办法了。我已退出此评论,不用发私信因为用不了来骂我了,我看不到。
写程序累脑袋,写材料累心。今天弄了一天,累的我想睡觉。
学习##强国v.3版本,别问我v.2去哪了,我忘了我v.2写了些啥了。目前相对前面版本,升级了自动分享功能;用变量开关实现对自动评论、自动分享等子功能的分离,即可以选择快关自动评价呵自动分享。加了限次计数,让评论和分享次数可控,防止刷屏。
我是更新的分割线
嘛,一直写的很随意,想的反正也没人看,自己当记录一写就行了,结果总有人问怎么用……
我写的脚本都没有适配多设备,也没有写UI界面,脚本使用最好和我测试的平台贴近——使用夜神模拟器、平板版本、分辨率1280*720,学习强国版本2.1.2,。
脚本中的参数
yosepinci是评论开关,1为开,0为关;
fengxinag是自动分享开关,同上;
b和d分别是限制评论和分享的次数的,请在“b<5”“d<5”那里更改次数;
随机评论内容我反正只写了几个,想加内容的同学自己加,最好使用“祖国美好”“中国前进”等等万金油评论,在哪评论都不出问题。
以上,更新于2019年7月4日
Delay 2000
Dim screenX,screenY,deviceID,first=25
screenX = GetScreenX()
screenY = GetScreenY()
deviceID = GetDeviceID()
TracePrint ""&screenX&"*"&screenY&chr(10)
call messagebox ("御坂脚本,启动!")
Dim yisepinci,fengxiang,i,b,d,c//如果为1则执行评价功能,b为设置评论次数//
yisepinci = 1
fengxiang = 1
b = 1
d = 1
Touch 1239,365, 100//点中间学习图标//
Delay 1000
Touch 147,375, 100//再点推荐//
Delay 1000
While first>0
call messagebox ("准备点击文章")
TracePrint "准备点击文章"
Call dianwen()
first = first - 1
TouchDown 1010,350,1
TouchMove 500,370,1,400
TouchUp 1
Delay 3000
Wend
//----------------//
Sub dianwen()
Touch 631,345, 100//点击文章,进入文章//
Delay 1000
TracePrint "进入文章"//进入文章内部后慢慢下滑10S,点击收藏,点击评论归零,长按第一个评论,复制,点击,粘贴,发布,点击左上角返回//
call messagebox ("进入文章")
Delay 1000
call messagebox ("下滑10次")
TracePrint "缓慢下滑10次"
For i = 1 To 10 Step 1//缓慢下滑10次//
TouchDown 1013,366, 1
TouchMove 643,371, 1, 400
TouchUp 1
call messagebox ("滑动一次")
Delay 2000
Next
call messagebox ("点击收藏")
Touch 1244,113, 100
Delay 1000
If yisepinci = 1 And b < 5 Then
Call pingjia()
b=b+1
End If
Delay 1000
If fengxiang = 1 And d < 5 Then
Call fx()
d=d+1
End If
call messagebox ("返回主界面")//返回主界面,完成一次文章查看//
Touch 76,676, 100
Delay 2000
End Sub
//----------------//
Sub messagebox(box)
TracePrint box
ShowMessage box
Delay 1500
End Sub
//---评价子程序---//
Sub pingjia()
call messagebox ("点击评论,回到第一个评论位置")
Touch 1249,207, 100
Delay 1000
call messagebox ("点击输入框,获得光标")
Touch 1249,500, 100
Delay 1000
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
call messagebox ("点击发表")
Touch 1167,53, 100
Delay 1000
End Sub
//---分享子程序---//
Sub fx()
messagebox ("点击分享")//点击分享,点分享到学习强国,点击群,点发送//
Touch 1244,50, 100
Delay 1000
messagebox ("点分享到学习强国")//点分享到学习强国//
Touch 880,633, 100
Delay 1000
messagebox ("点击群")//点击群//
Touch 470,355, 100
Delay 1000
messagebox ("点发送")//点发送,坐标未确定//
Touch 775,145, 100
Delay 2000
End Sub