学习强国脚本v.3

发表于 | 分类于
字数统计: 11k

内容未公开》》》》》

由于种种原因，该页面并未完全对外开放。若需访问，需本文编写者告知访问。建议您可查看其他博客页面，或通过左侧联系方式联系作者提供访问密码。您也可尝试在网站上留言，但由于网站的留言系统是基于GitHub，您在大陆访问将可能遇到无法登录GitHub进行留言的情况。

写程序累脑袋，写材料累心。今天弄了一天，累的我想睡觉。
学习##强国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日

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
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
-------------本文结束感谢您的阅读-------------