IEの画面一括消去

IEの画面一括消去

開きすぎて閉じるのが面倒になったIEの画面をURLをキーにして一括消去します

こちらは表示中のIEの画面を操作するためのVBのソースを生成の適用例です。若干WSH用に修正してます。指定内容を変えたいときは操作コードを出力して、下記のソースを修正してください
■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.このvbsファイルを実行（ダブルクリック）
5.IEが起動され、終了する画面のURLの1部を指定する
6.開始のチェックボックスをチェック
7.#5で指定した文字列を含むURLの画面が閉じます

■ソース

Set objIEx = CreateObject("InternetExplorer.application")
objIEx.Navigate "about:blank"
Do While objIEx.Busy
	WScript.Sleep 100
Loop
objIEx.Width=650	
objIEx.Height=500
objIEx.Visible = true
objIEx.StatusBar = True
objIEx.StatusText = t_date & " htm作成中"
objIEx.ToolBar = false
objIEx.MenuBar = false

objIEx.Document.Write "閉じる画面のURLに含まれる文字列を入力してください:<input name=key><br>"
objIEx.Document.Write "この画面を閉じる場合、終了から何秒後に閉じるかを指定してください:<input name=c_time size=1><br>"
objIEx.Document.Write "開始:<input type=checkbox name=start><br>"
objIEx.Document.Write "終了:<input type=checkbox name=quit><br>"
objIEx.Document.Write "<br>以下、閉じた画面の一覧です<br>"
Do
 Do
  WScript.Sleep 100
  if objIEx.Document.all.quit.checked=true then
   exit do
  end if
  if objIEx.Document.all.start.checked=true then
   objIEx.Document.all.start.checked=false
   exit do
  end if
 Loop
 if objIEx.Document.all.quit.checked=true then
  exit do
 end if
 Set xShell = CreateObject("Shell.Application")
 c_win=0
 For Each Window In xShell.Windows '対象URLが表示されているか？
  If TypeName(Window.Document) = "HTMLDocument" Then
   if instr(Window.Document.url,objIEx.Document.all.key.value)>0 then
'if MsgBox(Window.Document.url, VbOKCancel, "WS")=vbOK Then WScript.Quit
      objIEx.Document.Write Window.Document.url & "<br>"
    Set objIE = Window '対象URLが表示→その画面を使う
     objIE.Visible = False
     Set objIE = Nothing
     Set Window = Nothing
     c_win=c_win+1
   end if
  end if
 next
 objIEx.Document.Write c_win & "件の画面を閉じました key=" & objIEx.Document.all.key.value & "<br>"
 if objIEx.Document.all.c_time.value<>"" then
  WScript.Sleep 1000*objIEx.Document.all.c_time.value
  exit do
 end if
 Set xShell = Nothing
loop
objIEx.Visible = False
Set objIEx = Nothing

■このスクリプトで学べること
IE操作：CreateObject("InternetExplorer.application")　Navigate　Visible
文字列操作：InStr　Right　Left
構文：For Each Next IF THEN ELSE
関数：MsgBox　Sleep
その他多々
■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらからその他WSH,EXCEL VBAの活用例紹介しています

こちらのオークションでプログラミングの書籍を出品してます