« IE9の「名前を付けて保存」のデフォルト形式はキャッシュの有無で変わる。 | トップページ | IE9でタブブラウズを無効にすると、タイトルがどこにも表示されない。 »

2011年8月14日 (日)

「Web アーカイブ、単一のファイル (*.mht)」で「名前を付けて保存」する。(その3)

IE9で「名前を付けて保存」のデフォルトが「Web ページ、完全 (*.htm;*.html)」に変わりました。

デスクトップフォルダなどで作成し、お気に入りバーフォルダに移動で入れます。ieのお気に入りバーから起動します。

Web アーカイブ、単一のファイル (.mht).vbs

Set ies=CreateObject("Shell.Application").Windows()
For Each ie In ies
  If ie.ReadyState=4 Then If TypeName(ie.Document)="HTMLDocument" Then If ie.Document.hasFocus() Then Exit For
Next
If IsEmpty(ie) Then
  For Each ie In ies
    If ie.ReadyState<>4 Then
    ElseIf TypeName(ie.Document)="HTMLDocument" Then
      ie.Document.focus
      If ie.Document.hasFocus() Then Exit For
    End If
  Next
End If
If IsEmpty(ie) Then
  MsgBox "Not Found"
  WScript.Quit
End If
href=ie.Document.parentWindow.location.href
Set a=ie.Document.createElement("a")
a.href=href
a.hash="##"
ie.Document.parentWindow.setTimeout "location.replace """ & a.href & """",0,"vbscript"
Do While ie.Document.parentWindow.location.hash<>"##"
  WScript.Sleep 100
Loop
ie.ExecWB 4,1
ie.Document.parentWindow.location.replace href

ページがキャッシュされてないと、デフォルトがアーカイブ形式に変わります。

« IE9の「名前を付けて保存」のデフォルト形式はキャッシュの有無で変わる。 | トップページ | IE9でタブブラウズを無効にすると、タイトルがどこにも表示されない。 »