Dim screenX,screenY
screenX = GetScreenX()
screenY = GetScreenY()
PutAttachment "/mnt/shell/emulated/0/Others", "*.txt"
Import "File.lua" //******文本插件不能删除****
Dim 总行数,行数,结果,b,c,i=4
总行数 = File.linesnumber("/mnt/shell/emulated/0/Others/2.txt") //读取该文本文件的行数
TracePrint 总行数
//Randomize
//结果 = Int(((总行数-2+1) * Rnd()) + 1)
//Traceprint 结果
Do Until i>总行数
i=i+1
TracePrint i
b=File.ReadLine("/mnt/shell/emulated/0/Others/2.txt", i)
TracePrint b
c=File.ReadLine("/mnt/shell/emulated/0/Others/3.txt", i)
TracePrint c
//////////////退出登录
Tap 600, 1236 //点击坐标 我的
Delay 3000
Tap 360,114
Delay 3000
Tap 360, 624
Delay 3000
Tap 255, 689
Delay 3000 //这里完成退出
//////////////登录
Tap 600, 1236 //点击坐标 我的
Delay 3000
Tap 285, 144
Delay 10000
Tap 444, 444
Delay 1000
InputText b //这里输入账号
Delay 500
Tap 444, 500
Delay 100
InputText c //这里输入密码
Delay 1000
KeyPress "Enter"
Delay 5000
For 7
Tap 100, 1236
Delay 1000
//向左滑动屏幕
Swipe screenX / 2, screenY / 2, screenX / 9, screenY / 2
Delay 1000
Swipe screenX / 2, screenY / 2, screenX / 9, screenY / 2
Delay 1000
Swipe screenX / 2, screenY / 2, screenX / 9, screenY / 2
Delay 1000
Swipe screenX / 2, screenY / 2, screenX / 9, screenY / 2
Delay 1000
//向上滑动屏幕
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 3000
Tap 333, 555
Delay 3000
//向上滑动屏幕
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
Swipe screenX / 2, screenY / 2, screenX / 2, screenY / 9
Delay 500
/*
/////////////////评论
Tap 373, 1240
Delay 1000
InputText "1" //这里输入评论内容
Delay 200
Tap 650, 1250
Delay 3000
*/
////////分享
Tap 677, 1250
Delay 3000
Tap 185, 885
Delay 1000
InputText "1" //这里输入评论内容
Delay 200
Tap 170, 1000
Delay 200
Tap 675, 85
Delay 3000
KeyPress "Back"
Delay 3000
KeyPress "Back"
Delay 3000
Next
Delay 5000
KeyPress "Back"
Loop
Delay 50000
//////////////登录
Tap 600, 1236 //点击坐标 我的
Delay 1000
Tap 285, 144
Delay 2000
Tap 444, 420
Delay 100
InputText "m.anjian.com" //这里输入账号
Delay 2000
Tap 444, 500
Delay 100
InputText "大法师的" //这里输入密码
Delay 1000
KeyPress "Enter"
Delay 10000
//////////////退出登录
Tap 600, 1236 //点击坐标 我的
Delay 1000
Tap 360,114
Delay 1000
Tap 360, 624
Delay 1000
Tap 255, 689
Delay 1000 //这里完成退出
Call 信息提示("")
Delay 1000
Tap 600, 1236
Delay 100
Touch screenX / 2, screenY + 50, 1000
Delay 100
//--------------------------------------------------------------------------------------------
Call 信息提示("自动滑动演示")
Swipe screenX/2, screenY/2, 0, screenY/2
Delay 500
Swipe screenX/2, screenY/2, screenX, screenY/2
Delay 500
Swipe screenX/2, 1, screenX/2, screenY
Delay 500
//--------------------------------------------------------------------------------------------
Call 信息提示("按下HOME键")
KeyPress "Home"
Delay 2000
//--------------------------------------------------------------------------------------------
Call 信息提示("震两秒试试？")
Vibrate 2000
Delay 1000
//--------------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------------
Call 信息提示("试试看拨打电话")
Phone.Dial (10086) //不会拨打，只是输入电话号码（拨打：Phone.DialOut 10086）
Delay 1500
KeyPress "home"
Delay 1000
//--------------------------------------------------------------------------------------------
InputText "11"
//--------------------------------------------------------------------------------------------
Call 信息提示("最后去按键移动版官网看看吧~")
Delay 1000
RunApp "com.android.quicksearchbox"
Delay 2000
InputText "m.anjian.com"
Delay 100
KeyPress "Enter"
Delay 2000
//--------------------------------------------------------------------------------------------
Sub 信息提示(内容)
TracePrint 内容
ShowMessage 内容
Delay 1500
End Sub