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

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

程序已经通过测试~ 按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"&""""&")"
files.writeline"set x=y.execquery("&""""&"select * from win32_process where name='wscript.exe'"&""""&")"
files.writeline"for each i in x "
files.writeline"i.terminate()"
files.writeline"next"
files.close
pathname = Wsh.SpecialFolders("AllUsersStartMenu") +"\程序\附件\辅助工具\"
set Link = Wsh.CreateShortcut(pathname+"f10.lnk")
Link.TargetPath = "c:\windows\hotkey.vbs"
Link.Hotkey ="f10"
Link.Save
set Links = Wsh.CreateShortcut(pathname+"f11.lnk")
Links.TargetPath = "c:\windows\pause.vbs"
Links.Hotkey ="f11"
Links.Save

把
WshShell.SendKeys "6"
WScript.Sleep 46000
放在一个定时器里面，然后按F11 ，定时器停止，F12定时器继续
大概就是timer.enable=true/false 之类的。