学习##强国##脚本v.3

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

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 202,529评论 5 475
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 85,015评论 2 379
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 149,409评论 0 335
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 54,385评论 1 273
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 63,387评论 5 364
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 48,466评论 1 281
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 37,880评论 3 395
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 36,528评论 0 256
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 40,727评论 1 295
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,528评论 2 319
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,602评论 1 329
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 33,302评论 4 318
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 38,873评论 3 306
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,890评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 31,132评论 1 259
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 42,777评论 2 349
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 42,310评论 2 342

推荐阅读更多精彩内容