小伙伴们大家好~~今天给大家带来一个轻松赚钱的新姿势~~ 相信不少同学都有听说过有一些通过下载指定软件赚钱的app吧？（比如学生赚、米赚之类的）。这类软件只要是下载并安装里面指定的app应用，就能获取积分用来兑换现金或者其他奖品。通过写脚本来自动去下载很容易，但是很多同学卡在了自动安装软件的环节含恨告终~~今天就教大家解决这个问题 |
>>>> 插件教程目录 <<<<相关命令：| 命令名称： | ScanPath |
| 命令功能： | 遍历指定目录下的文件、文件夹 |
| 参数： | 参数1【必要】：字符串，指定遍历的目录
参数2【可选】：整数型，1代表遍历文件夹; 不填代表遍历文件
|
| 返回值： | 返回包含文件名的数组 |
范例代码：- Import "shanhai.lua"
- //通过找图色来点击下载app的部分这里就忽略了，假设app安装包都下载放在/sdcard/download文件夹
- // 遍历并安装/sdcard/download文件夹内的文件
- Dim apparr, path = "/sdcard/download/"
- apparr = shanhai.ScanPath(path)
- For Each v In apparr
- TracePrint v
- If InStr(1, v, ".apk") > 0 Then
- Call shanhai.Install(path & v)
- End If
- Delay 1000
- Next
这次的功能还涉及到静默安装app的命令，如果对这个命令还不太了解的话可以到上一篇教程里看看：【山海插件教程】惊呆了！自动安装apk还可以这么用！除了用来安装多个apk以外，遍历文件命令还能用到 什么地方呢？还可以用来批量修改文件！！可以先遍历出指定文件夹下的所有文件，然后通过重命名命令把每个文件的名称修改成统一的格式。废话不多说，小二！上代码！
范例代码：- Import "shanhai.lua"
- // 遍历并安装/sdcard/download文件夹内的文件
- Dim i = 1, apparr, path = "/sdcard/Pictures/"
- apparr = shanhai.ScanPath(path)
- For Each v In apparr
- TracePrint v
- dir.Rename(path & v, path & "Pic_" & i)
- Delay 100
- Next
此外，遍历文件命令能做的事情还有很多，比如说~~给自己的脚本推广app，在脚本附件里放上你想要推广的多个app，然后启动脚本之后先释放出来再遍历文件进行安装
- Import "shanhai.lua"
- // 释放所有apk包
- PutAttachment "/sdcard/apps/",""
- // 遍历并安装/sdcard/download文件夹内的文件
- Dim apparr, path = "/sdcard/apps/"
- apparr = shanhai.ScanPath(path)
- For Each v In apparr
- TracePrint v
- Call shanhai.Install(path & v)
- Delay 1000
- Next
闽公网安备 35010002000112号