使用 720*1280 比率屏幕设置
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 803,1560, 100//点 我的 图标//
//
//Delay 1000
//Touch 65,197, 100 // tuijian
//Touch 178,195 ,100 // tuijian youmian
//Delay 1000
call messagebox ("点击学习积分！")
// 按照比率点击
Touch screenX*0.815, screenY*0.054, 100
Delay 3000
Call messagebox("准备去看看")
//Touch 629,1123, 100
Touch screenX*0.873, screenY*0.877, 100
Delay 1000
While first>0
call messagebox ("准备25次点击视频")
TracePrint "准备点击视频"
Call dianshiping()
first = first - 1
TouchDown 453,1106,1
TouchMove 460,555,1,400
TouchUp 1
Delay 3000
Wend
//----------------//
Sub dianshiping()
Call messagebox("寻找 视频")
c = Int((5 - 1+1) * Rnd() + 1)//产生一个5至1之间的随机数//
movexia(c)
// Touch 292,404, 1000 // 点击视频 进入
call messagebox ("进入视频")
Touch screenX*0.405, screenY*0.315, 1000
Delay 3000
TracePrint "进入文章"//进入文章内部后慢慢下滑10S，点击收藏，点击评论归零，长按第一个评论，复制，点击，粘贴，发布，点击左上角返回//
call messagebox ("点击收藏")
// Touch 600,1244, 100
Touch screenX * 0.833, screenY * 0.971, 100
call messagebox ("我知道了")
//Touch 357,872, 100
Touch screenX * 0.495, screenY * 0.681, 100
Delay 1000
call messagebox ("看5分钟")
Delay 300000 // 看5分钟
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 40,75, 100
Touch screenX * 0.055, screenY * 0.058, 100
Delay 2000
End Sub
// 下滑动几次//
Sub movexia(c)
Dim first =1
While first first = first + 1 TouchDown screenX*0.5, screenY*0.6,1 TouchMove screenX*0.5, screenY*0.3,1,400 TouchUp 1 Delay 3000 Wend End Sub //----------------// Sub messagebox(box) TracePrint box ShowMessage box Delay 1500 End Sub //---评价子程序---// Sub pingjia() call messagebox ("点击输入框，获得光标") // Touch 146,1248, 100 Touch screenX*0.202, screenY*0.975 ,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 2000 call messagebox ("点击发表") //Touch 670, 1161, 100 Touch screenX*0.930, screenY*0.907, 100 Delay 1000 call messagebox ("点击2发表") //Touch 670,1142, 100 Touch screenX*0.930, screenY*0.892, 100 Delay 1000 End Sub //---分享子程序---// Sub fx() messagebox ("点击分享")//点击分享，点分享到学习强国，点击群，点发送// // Touch 674, 1245, 100 Touch screenX*0.936, screenY*0.972, 100 Delay 1000 messagebox ("点分享到学习强国")//点分享到学习强国// // Touch 87,856, 100 Touch screenX*0.12, screenY*0.668, 100 Delay 1000 messagebox ("点击群")//点击群// //Touch 324, 455, 100 Touch screenX*0.45, screenY*0.355, 100 Delay 1000 messagebox ("点发送")//点发送，坐标未确定// // Touch 583,777, 100 Touch screenX*0.809, screenY*0.607, 100 Delay 2000 End Sub