以下存为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
取消
评论