loops - 使用按钮终止 VBS 中的循环

Question

我有这样的事情：

Stop = False
Do until stop = True
Objshell.sendkeys "Blah blah blah"
Wscript.sleep 100
Loop
Wscript.echo "Stop?"
Stop = True

我想要做的是让循环运行，但是“停止？” 对话框是打开的，当它被点击时，停止值设置为真，循环应该终止。所以我真正要问的是我是否可以让循环外的代码与循环内的代码同时运行。任何人都可以帮忙吗？

Answer 1

为此，您必须使用 InternetExplorer COM 对象创建一个自定义对话框：

Set ie = CreateObject("InternetExplorer.Application")
ie.Offline = True
ie.Navigate "about:blank"

Do While ie.Busy : WScript.Sleep 100 : Loop

ie.document.Title = "Exit loop?"
ie.document.body.innerHTML = "<button name='exit' " _
  & "onClick=document.all('continue').value='no'>Exit</button>" _
  & "<input name='continue' type='hidden' value='yes'>"

ie.Height     = 200
ie.Width      = 425
ie.MenuBar    = False
ie.StatusBar  = False
ie.AddressBar = False
ie.Toolbar    = False

ie.Visible = True

Do Until ie.document.all("continue").Value = "no"
  ' do stuff
  WScript.Sleep 100
Loop

ie.Quit