在vbs循环上加个开关 暂停vbs程序

来源：百度知道 编辑：UC知道 时间：2024/07/08 01:36:44
恩 是这样的一个循环

set WshShell = WScript.CreateObject("WScript.Shell")

Do While 1
WshShell.SendKeys "6"
WScript.Sleep 46000
Loop

我想 按下 比方 F11 暂停 再按 继续
或者 F12 继续

怎么弄？
要不然停止 就要 调出 任务管理器 不方便

程序已经通过测试~ 按f11暂停 f10
开始~ 代码如下:

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 "&""""&"6"&""""&" "
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&quo