按键精灵脚本

Posted 2020-08-24

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"

本文出自 “点滴积累” 博客，请务必保留此出处http://tianxingzhe.blog.51cto.com/3390077/1885586