1电脑版读取文件脚本
Dim path path = "C:/Users/Administrator/Desktop/accounts" //直接读取文件到变量,文件的每一行在变量中以|分隔 Text = Plugin.File.ReadFileEx(path) MessageBox "Text" & text TracePrint Text //只是调试状态才显示 //打开文件，循环读取每一行 Dim fileHandle fileHandle = Plugin.File.OpenFile(path) i=0 Dim arrays(9) ,fileline //定义数组 Do While true fileline = Plugin.File.ReadLine(fileHandle) TracePrint fileline // MessageBox "fileline " & fileline If ( fileline="" )then Call Plugin.File.CloseFile(fileHandle) //一定要关闭，不关闭无法读取文件 Exit Do Else arrays(i)=fileline i=i+1 End If Loop TracePrint UBound(arrays) Delay 8000 //遍历数组 For j=0 To UBound(arrays) step 1 TracePrint arrays(j) Next
2.安卓版模拟手机操作脚本
Import "ShanHai.lua"
//浮窗锁定并且在右侧0.5的位置
SetControlBarPos 0.5,1
//清理app数据
//Tap 1088, 620
//Delay 2000
//Tap 221, 666
//Delay 2000
//Dim intX1,intY1
//FindPic 0,0,0,0,"Attachment:今日头条.png","000000",0,0.9,intX1,intY1
//If intX1 > -1 And intY1 > -1 Then
// TracePrint intX1
// TracePrint intY1
// Touch intX1+10, 254,2000
//Else
// TracePrint "未找到"
//End If
//Delay 3000
//Tap 970, 484
//Dim intConfirmX,intConfirmY
//FindPic 0,0,0,0,"Attachment:确认.png","000000",0,0.9,intConfirmX,intConfirmY
//If intConfirmX > -1 And intConfirmY > -1 Then
// TracePrint intConfirmX
// TracePrint intConfirmY
// Touch 839, 453, 2000
//Else
//TracePrint "未找到"
//Touch 839, 453, 2000
//End If
//Delay 2000
//KeyPress "Back"
//Delay 1000
//KeyPress "Back"
//Delay 1000
//KeyPress "Back"
//Delay 1000
//ShanHai.AppClean("com.ss.android.article.news")
Delay 2000
RunApp "com.ss.android.article.news"
Delay 12000
//TracePrint sys.GetFront()
Dim plusX_,plusY_
FindPic 0,0,0,0,"Attachment:加号.png","000000",0,0.9,plusX_,plusY_
If plusX_ > -1 And plusY_ > -1 Then
TracePrint plusX_
TracePrint plusY_
Tap plusX_, plusY_
Else
Tap 49,20
TracePrint "未找到+号"
End If
Delay 2000
//删除标题
//Touch 116, 44, 1000
//Delay 1000
//For k = 1 To 60 Step 1
//tap 162, 436
//Delay 1000
//变量rColor需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
//Dim rColor
//rColor = GetPixelColor(147, 200)
//TracePrint "这个点的颜色为："&rColor
//If rColor <> "CCCCCC" Then
//Exit For
//End If
//Next
//Delay 1000
//完成
//Touch 116, 44, 1000
//Delay 1000
//点击X号
//Touch 51, 21, 1000
//Delay 1000
Dim width=GetScreenX()
dim height = GetScreenY()
TracePrint width
TracePrint height
For j = 1 To 60 Step 1
//点击加号
Dim plusX,plusY
FindPic 0,0,0,0,"Attachment:加号.png","000000",0,0.9,plusX,plusY
If plusX > -1 And plusY > -1 Then
TracePrint plusX
TracePrint plusY
Tap plusX, plusY
Else
Tap 49,20
TracePrint "未找到+号"
End If
Delay 1000
///循环添加频道
For i = 1 To 1 Step 1
call addRecommend()
TracePrint "第",j,"个频道"
Next
Delay 1000
//保存
Dim intX,intY
FindPic 0,0,0,0,"Attachment:保存.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX,intY
Delay 1000
Else
TracePrint "未找到"
End If
Next
Sub addRecommend()
Dim intX,intY
FindPic 0,0,0,0,"Attachment:频道推荐.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX+62, intY
Delay 1000
Else
TracePrint "未找到"
End If
End Sub
Tap 98, 605
Delay 2000
For i = 1 To 5 Step 1
call slide()
TracePrint i
Next
KillApp "com.ss.android.article.news"
/////滑动屏幕下拉
Sub slide()
Dim i=1
TouchDown 1100,300,i
TouchMove 200,300,i,1500
TouchUp i
End sub
//KeyPress "PageDown"