2019-07-01

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 437,1541, 100//点中间学习图标//

Delay 1000

//Touch 65,197, 100

Touch 178,195 ,100

Delay 1000

While first>18

    call messagebox ("准备点击文章")

    TracePrint "准备点击文章"

    Call dianwen()

    first = first - 1

    TouchDown 406,1117,1

    TouchMove 412,891,1,400

    TouchUp 1

    Delay 3000

Wend

//----------------//

Sub dianwen()

    Touch 234,306, 100//点击文章，进入文章//

    Delay 1000

    TracePrint "进入文章"//进入文章内部后慢慢下滑10S，点击收藏，点击评论归零，长按第一个评论，复制，点击，粘贴，发布，点击左上角返回//

    call messagebox ("进入文章")

    Delay 1000

    call messagebox ("下滑10次")

    TracePrint "缓慢下滑10次"

    For i = 1 To 10 Step 1//缓慢下滑10次//

        TouchDown 394,1362, 1

        TouchMove 381,450, 1, 400

        TouchUp 1

    call messagebox ("滑动一次")

        Delay 2000

    Next

    call messagebox ("点击收藏")

    Touch 744,1550, 100

    Delay 1000

    call messagebox ("我知道了")

    Touch 446,1129, 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 48,100, 100

    Delay 2000

End Sub

//----------------//

Sub messagebox(box)

    TracePrint box

    ShowMessage box

    Delay 1500

End Sub

//---评价子程序---//

Sub pingjia()

    call messagebox ("点击评论，回到第一个评论位置")

    Touch 144,1551, 100

    Delay 1000

    call messagebox ("点击输入框，获得光标")

    Touch 100,1534, 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 839,1446, 100

    Delay 1000

End Sub

//---分享子程序---//

Sub fx()

    messagebox ("点击分享")//点击分享，点分享到学习强国，点击群，点发送//

    Touch 843,1548, 100

    Delay 1000

    messagebox ("点分享到学习强国")//点分享到学习强国//

    Touch 127,1024, 100

    Delay 1000

    messagebox ("点击群")//点击群//

    Touch 199,612, 100

    Delay 1000

    messagebox ("点发送")//点发送，坐标未确定//

    Touch 698,986, 100

    Delay 2000

End Sub