有空了,我还是再改一版吧,这个应该够简洁明了。
代码保存为run.bat,再新建一个空白的文本“地址列表.txt”,这两个文件跟你的多功能剪切板程序放在一起。
然后把你需要定义的F1-F10的路径直接复制到“地址列表.txt”文本里面。一行一个路径。
使用的时候直接运行run.bat,就可以自动把地址列表里的路径都自动添加到软件里,实现快速定义F1-F10了。
脚本在定义路径后,可以自动最小化程序,默认没开启,需要的自己改一下,去掉::就可以了。- @echo off&setlocal enabledelayedexpansion
- (echo set ws = createobject("wscript.shell"^)
- echo N = WScript.Arguments(0^)
- echo ws.appactivate("多功能剪切板"^)
- echo wscript.sleep 500
- echo For i = 1 To N-1
- echo ws.SendKeys "{TAB}"
- echo Next
- echo ws.sendkeys "^v"
- echo wscript.sleep 500
- echo ws.sendkeys "{TAB}"
- echo wscript.quit)>$.vbs
-
- start "" "多功能剪切板.exe"
- for /f "delims=" %%i in (地址列表.txt) do (
- set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
- )
- rem 地址粘贴完成,把软件最小化,需要的可以把::去掉
- ::mshta vbscript:execute("Set A=CreateObject(""WScript.Shell""):a.appactivate""多功能剪切板"":A.sendkeys(""%% n""):close")
- del $.vbs&exit/b
复制代码
|