1

私はこのようなものを持っています:

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

私がやろうとしているのは、ループが実行されるようにすることですが、「停止しますか?」ダイアログ ボックスが開いていて、クリックすると停止値が true に設定され、ループが終了します。だから私が本当に求めているのは、ループの外側のコードをループの内側のコードと同時に実行できるかどうかということです。誰でも助けることができますか？

4

1 に答える 1

3

これには、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
于 2012-09-26T11:24:48.500 に答える