学习*强国#脚本#御坂脚本计划

嘛，真麻烦，本来多简单的一个脚本，先是学习强国兼容问题，后来是截图坐标问题，硬是搞到了大晚上一点了。本脚本实现了自动观看文章，自动收藏，自动随机评论，自动分享（暂时懒得弄坐标）。

Delay 2000
Dim screenX,screenY,deviceID,first=25
screenX = GetScreenX()
screenY = GetScreenY()
deviceID = GetDeviceID()
TracePrint ""&screenX&"*"&screenY&chr(10)
call messagebox ("御坂脚本，启动！")

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()
    
    Dim i,c //点中间学习图标，再点推荐，回到主界面做归零//
    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 243,371, 1, 400
        TouchUp 1
    call messagebox ("滑动一次")
        Delay 2000
    Next
    call messagebox ("点击收藏")
    Touch 1244,113, 100
    Delay 1000
    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
    //messagebox ("点击分享")//点击分享，点分享到学习强国，点击群，点发送//
    //Touch 677,1249, 100
    //Delay 1000
    //messagebox ("点分享到学习强国")//点分享到学习强国//
    //Touch 92,852, 100
    //Delay 1000
    //messagebox ("点击群")//点击群//
    //Touch 322,439, 100
    //Delay 1000
    //messagebox ("点发送")//点发送，坐标未确定//
    //Touch 469,645, 100
    //Delay 2000
    call messagebox ("返回主界面")//返回主界面，完成一次文章查看//
    Touch 76,676, 100
    Delay 2000
End Sub

//----------------//
Sub messagebox(box)
    TracePrint box
    ShowMessage box
    Delay 1500
End Sub