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則執(zhí)行評價功能,b為設(shè)置評論次數(shù)//

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 "進入文章"http://進入文章內(nèi)部后慢慢下滑10S，點擊收藏，點擊評論歸零，長按第一個評論，復制，點擊，粘貼，發(fā)布，點擊左上角返回//

? ? 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)//產(chǎn)生一個5至1之間的隨機數(shù)//

? ? Select Case c//判斷隨機數(shù)//

? ? Case 2

? ? ? ? InputText "努力夯實國家文化軟實力的根基！"http://情況1

? ? Case 3

? ? ? ? InputText "根植歷史，放眼未來，創(chuàng)建美麗文明中國！"http://情況2

? ? Case 4

? ? ? ? InputText "友誼天長地久，加強交流，增加合作，共同創(chuàng)新，共建未來！"http://情況2

? ? Case 5

? ? ? ? InputText "政治清明、經(jīng)濟發(fā)展、文化繁榮、社會穩(wěn)定、人民團結(jié)、山河秀美的東方大國！"http://情況2

? ? Case Else

? ? ? ? InputText "增強對外話語的創(chuàng)造力、感召力、公信力，講好中國故事，傳播好中國聲音！"http://否則

? ? End Select

? ? Delay 1000

? ? call messagebox ("點擊發(fā)表")

? ? Touch 839,1446, 100

? ? Delay 1000

End Sub

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

Sub fx()

? ? messagebox ("點擊分享")//點擊分享，點分享到學習強國，點擊群，點發(fā)送//

? ? Touch 843,1548, 100

? ? Delay 1000

? ? messagebox ("點分享到學習強國")//點分享到學習強國//

? ? Touch 127,1024, 100

? ? Delay 1000

? ? messagebox ("點擊群")//點擊群//

? ? Touch 199,612, 100

? ? Delay 1000

? ? messagebox ("點發(fā)送")//點發(fā)送，坐標未確定//

? ? Touch 698,986, 100

? ? Delay 2000

End Sub