⑴ 手机按键精灵安装包文件名叫什么
文件全名为：MobileAnjian2.3.1.apk
后面是截图：
⑵ 按键精灵截图后怎么手动选择保存路径和保存文件名。
Text = Plugin.File.ReadFileEx("E:\111.txt") MyArray = Split(Text, "|")Text1 = Plugin.File.ReadFileEx("E:\222.txt") MyArray1 = Split(Text1, "|")Text2 = Plugin.File.ReadFileEx("E:\333.txt") MyArray2 = Split(Text2, "|")Text3 = Plugin.File.ReadFileEx("E:\444.txt") MyArray3 = Split(Text3, "|")For i=0 to UBound(MyArray)-1 SayString MyArray(i)Set WshShell=CreateObject("WScript.Shell")Set objFSO=CreateObject("Scripting.FileSystemObject")Set objFile=objFSO.OpenTextFile("E:\111.txt",1)strLine=objFile.ReadlineKeyPress "Tab", 1SayString MyArray1(0)Delay 500KeyPress "Tab", 1SayString MyArray2(0) Delay 500KeyPress "Tab", 1SayString MyArray2(0)Delay 500KeyPress "Tab", 1SayString MyArray3(0) Delay 500KeyPress "Tab", 1SayString MyArray3(0)Delay 500FindPic 0,0,1024,768,"E:\1.bmp",0.9,intX,intYIf intX > 0 And intY > 0 ThenMoveTo intX+20, intY+10Delay 500LeftClick 1Delay 500如果找到图片4.bmp在坐标50，50，100，100以刚才从E：\111.txt输入的文本为名截图，保存到E：\如果找到图片3.bmpKeyPress "Enter", 1Delay 500FindPic 0,0,1024,768,"E:\2.bmp",1,intX,intYIf intX > 0 And intY > 0 ThenMoveTo intX+20, intY+15LeftClick 1Delay 300End IfEnd IfNext 感谢各位大神我刚接触按键精灵，需要保存大量网页，另存文件名那里不会弄了。积分奉上，谢谢帮忙。//1.点右键查看源文件弹出记事本另存RightClick 1Delay 50KeyPress "V", 1Delay 50KeyDown 18, 1KeyPress 70, 1KeyUp 18, 1Delay 50KeyPress "A", 1Delay 50//2.输入文件名*.txt并且，每次循环一次*+1，*其实可定义。//3.关闭记事本
⑶ 按键精灵怎样读取一个不固定文件夹内的固定文件名的EXCEL文件的数据
Function遍历指定目录下所有文件夹名(文件夹路径)//注意：返回的是数组变量，存储着每一个文件夹名。//例子：数组=lib.文件.遍历指定目录下所有文件夹名("C:")//Fori=0toUBound(数组)-1//TracePrint数组(i)//NextDim文件夹名,fso,folder,f,files文件夹名=""Setfso=CreateObject("Scripting.FileSystemObject")Setfolder=fso.getfolder(文件夹路径)Setfiles=folder.SubFoldersForEachfInfiles文件夹名=文件夹名&f.name&","NextSetfso=Nothing//遍历指定目录下所有文件夹名=文件夹名遍历指定目录下所有文件夹名=Split(文件夹名,",")EndFunction
⑷ 按键精灵如何判断文件名称，比如说文件夹里面有，王者1，王者2，王者3，大师1，大师2，大师3，
Function遍历指定目录下所有文件名(文件夹路径)//注意：返回的是数组变量，存储着每一个文件名。//例子：数组=lib.文件.遍历指定目录下所有文件名("C:")//Fori=0toUBound(数组)-1//TracePrint数组(i)//NextDim文件名,fso,folder,f,files文件名=""Setfso=CreateObject("Scripting.FileSystemObject")Setfolder=fso.getfolder(文件夹路径)Setfiles=folder.filesForEachfInfiles文件名=文件名&f.name&","NextSetfso=Nothing//遍历指定目录下所有文件名=文件名遍历指定目录下所有文件名=Split(文件名,",")EndFunction
⑸ 按键精灵如何批量改图片文件名
按键精灵实现不到的东西可以借用VB语句实现，按键9代码如下
call修改文件夹内的所有名字("d:我的文档桌面新建文件夹")Function修改文件夹内的所有名字(文件夹路径)//按键9编写Dim文件名,fso,folder,f,filesSetfso=CreateObject("Scripting.FileSystemObject")Setfolder=fso.getfolder(文件夹路径)Setfiles=folder.filesForEachfInfiles文件名=文件名&f.name&","NextSetfso=Nothing遍历指定目录下所有文件名=Split(文件名,",")Fori=0toUBound(遍历指定目录下所有文件名)-1扩展名分开=Split(遍历指定目录下所有文件名(i),".")要改的名字=扩展名分开(0)&(i+1)&"图片"//扩展名分开(0)为原名称+修改后的名称，如不需要原名称就去掉（扩展名分开(0)）CallPlugin.File.ReNameFile(文件夹路径&""&扩展名分开(0)&"."&扩展名分开(1),文件夹路径&""&要改的名字&"."&扩展名分开(1))NextEndFunction
⑹ 按键精灵怎么修改文件夹名称，要求名字是输入框一的内容，例如桌面文件夹a 输入框一的内容是b a改b
利用系统自带的搜索功能：一、先打开你D盘二、点搜索，在弹出搜索标准中输入文件名A.xls三、等待搜索完毕，全部选择右边窗口中文件四、在文件上面右健–重命名五、输入你想要的名字，比如：输入“表”，系统自动修改文件名字效果是表.xls、表（1）.xls、表（2）.xls如果想要满意的效果，你可以再把表.xls修改诚表（3）.xls,OK!表（1）.xls表（2）.xls表（3）.xls形成六、再全选文件，复制–粘贴到你想要的文件！祝你好运！
⑺ 按键精灵怎么读取指定目录下所有文件夹名
Function FindAllFiles(FolderPath) Dim AllFiles,fso,Folder,f,files AllFiles = "" Set fso = CreateObject("Scripting.FileSystemObject") Set Folder = fso.getfolder(FolderPath) Set files = Folder.files For Each f In files AllFiles = AllFiles & f.name & "," Next Set fso = Nothing FindAllFiles = Split(AllFiles, ",")End Function //下面是调用方法：FileEx = FindAllFiles(文件路径) //文件路径是字符串，要加双撇If UBound(FileEx) > 0 Then For i = 0 To UBound(FileEx) – 1 MessageBox FileEx(i) NextElse MessageBox "文件夹没有文件"End If
⑻ 按键精灵如何通过文件名绑定EXCEL，不需要知道完整路径
看到一个提问中提到一个方法，（同一个人？），需要先下载LazyOffice插件，网上搜索即可。
正常来说用VBS的 GetObject，先获得一个Excel.Application 对象，从里面遍历Workbook，找其中文件名中包含/等于已知的标题名。
set Ex = GetObject(,"Excel.Application")
For i=1 to Ex.WorkBooks.Count
msgbox "第" & i & "个Excel文件的路径是：" &Ex.WorkBooks(i).path
Next
【但按键中 GetObject第一个参数如果不写，提示出错，没法运行】
⑼ 按键精灵 遍历文件夹内的所有文件名保存在一个数组里然后怎么样才可以每次输出一个结果
Function FindAllFiles(FolderPath)Dim AllFiles,fso,Folder,f,filesAllFiles = ""Set fso = CreateObject("Scripting.FileSystemObject")Set Folder = fso.getfolder(FolderPath)Set files = Folder.filesFor Each f In filesAllFiles = AllFiles & f.name & ","NextSet fso = NothingFindAllFiles = Split(AllFiles, ",")End Function//下面是调用方法：FileEx = FindAllFiles(文件路径) //文件路径是字符串，要加双撇If UBound(FileEx) > 0 ThenFor i = 0 To UBound(FileEx) – 1MessageBox FileEx(i)NextElseMessageBox "文件夹没有文件"End If
未经允许不得转载：山九号 » 按键精灵文件名|按键精灵怎么读取指定目录下所有文件夹名
