2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« 常駐のWSHスクリプトを外部からの指示で終了する。(その2) | トップページ | WSFファイルをCScript.exeで実行するための拡張子(.wsfc)を追加する。 »

2009年4月 2日 (木)

常駐のWSHスクリプトを外部からの指示で終了する。(その3)

以下のスクリプトを実行して、出てきたIEのページで「終了」ボタンを押すと、スクリプトもIEも終了します。

Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=True
ie.Navigate "about:blank"
Do While ie.Busy Or ie.ReadyState<>4
  WScript.Sleep 100
Loop
ie.document.body.innerHTML="<button id=button1>終了</button>"
Set ie.document.all.button1.onclick=GetRef("sub1")
MsgBox "waiting..."

Sub sub1()
ie.quit
WScript.Timeout=1
End Sub

« 常駐のWSHスクリプトを外部からの指示で終了する。(その2) | トップページ | WSFファイルをCScript.exeで実行するための拡張子(.wsfc)を追加する。 »