以下存为BAT文件。双击安装一次脚本，以后可以通过快捷键调用f10开始、f11停止

@echo off

title 每隔1秒同时按下回车

mode con: cols=50 lines=5

color 1a

echo set WshShell = WScript.CreateObject(WScript.Shell)%systemroot%\hotkey.vbs

echo Do While 1 %systemroot%\hotkey.vbs

echo WshShell.SendKeys {enter} %systemroot%\hotkey.vbs

echo WScript.Sleep 900 %systemroot%\hotkey.vbs

echo Loop%systemroot%\hotkey.vbs

echo set y=getobject(winmgmts:\\.\root\cimv2)%systemroot%\pause.vbs

echo set x=y.execquery(select * from win32_process where name='wscript.exe')%systemroot%\pause.vbs

echo for each i in x %systemroot%\pause.vbs

echo i.terminate()%systemroot%\pause.vbs

echo next%systemroot%\pause.vbs

@echo 按键脚本正在安装.......

echo on error resume next %temp%\install.vbs

echo dim fso,wsh,pathname,files %temp%\install.vbs

echo Set fso = CreateObject(Scripting.FileSystemObject) %temp%\install.vbs

echo set Wsh = WScript.CreateObject(WScript.Shell) %temp%\install.vbs

echo pathname = Wsh.SpecialFolders(AllUsersStartMenu) +\程序\附件\辅助工具\ %temp%\install.vbs

echo set Link = Wsh.CreateShortcut(pathname+f10.lnk) %temp%\install.vbs

echo Link.TargetPath = %systemroot%\hotkey.vbs %temp%\install.vbs

echo Link.Hotkey =f10 %temp%\install.vbs

echo Link.Save %temp%\install.vbs

echo set Links = Wsh.CreateShortcut(pathname+f11.lnk) %temp%\install.vbs

echo Links.TargetPath = %systemroot%\pause.vbs %temp%\install.vbs

echo Links.Hotkey =f11 %temp%\install.vbs

echo Links.Save%temp%\install.vbs

echo WScript.Sleep 3000%temp%\install.vbs

cscript //nologo %temp%\install.vbs

del %temp%\install.vbs

@echo.

echo 按键脚本安装完毕，开始执行请按F10，停止按F11

@echo.

echo 正在关闭本窗口......

ping -n 7 127.1nul

取消

评论