/*
作用:主要是为了不方便截图 我们可以直接做一个截图脚本 运行一次或者点击下音量减就运行一次脚本截图一次 截图文件存放在指定目录下 命名是当前时间 自己用
一个截图的函数 图片主要是存放到sdcard目录下的 脚本截图 这个文件夹
参数1 :截图存放目录 不要以/结尾 而且再调用这个函数前 请一定要确保这个路径是存在的 不用每次都判断路径是否存在 只需要在脚本开头判断下即可
*/
Function 截图(截图存放目录)
Dim t,当前截图文件名,当前截图文件完整路径
//检测下存放目录 不过这个检测最好放到初始化里面检测比较好
当前截图文件名 = DateTime.Format("%Y_%m_%d_%H_%M_%S",time()) & ".png"
//TracePrint 当前截图文件名
当前截图文件完整路径 = 截图存放目录 & "/" & 当前截图文件名
SnapShot 当前截图文件完整路径
ShowMessage "截图文件[" & 当前截图文件完整路径 & "]"
Delay 500
End Function