标签:按键精灵脚本
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
标签:按键精灵脚本
原文地址:http://tianxingzhe.blog.51cto.com/3390077/1885586