VBS脚本如何加入启动和暂停功能???

来源：百度知道 编辑：UC知道 时间：2024/05/21 10:08:41
这个脚本就是每隔1.5秒按4一次,可以加入指令让他拥有启动和暂停的功能吗,如果按F7启动,按F8暂停.
set WshShell = WScript.CreateObject("WScript.Shell")

Do While 1
WshShell.SendKeys "4"
WScript.Sleep 1500
Loop
怎么样实现这个功能呢,用别的软件可以吗?

这里的暂停和停止有区别吗？只要可以达到目的 就没区别!!!!!!!!!!!!!!

on error resume next
dim fso,wsh,pathname,files
Set fso = CreateObject("Scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell")
set files=fso.createtextfile("c:\windows\hotkey.vbs",2,true)
files.writeline"set WshShell = WScript.CreateObject("&""""&"WScript.Shell"&""""&")"
files.writeline"Do While 1 "
files.writeline"WshShell.SendKeys "&""""&"4"&""""&" "
files.writeline"WScript.Sleep 1500 "
files.writeline"Loop"
files.close
set files=nothing
set files=fso.createtextfile("c:\windows\pause.vbs",2,true)
files.writeline"set y=getobject("&""""&"winmgmts:\\.\root\cimv2