2017年11月
      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    
無料ブログはココログ

« デスクトップのアイコンを作成日時の昇順にソートする。 | トップページ | 「Web アーカイブ、単一のファイル (*.mht)」で「名前を付けて保存」する。(その2) »

2011年7月22日 (金)

現ieのdefaultCharsetをutf-8に設定する。

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

defaultCharset=utf-8.vbs

WScript.Timeout=5
Set wShell=CreateObject("WScript.Shell")
wShell.SendKeys "^{f6}"
For Each ie In CreateObject("Shell.Application").Windows()
  If ie.ReadyState=4 Then If TypeName(ie.Document)="HTMLDocument" Then If ie.Document.hasFocus() Then Exit For
Next
If IsEmpty(ie) Then
  MsgBox "Current IE not found."
  WScript.Quit
End If
ie.Navigate "about:blank"
Do While ie.Busy Or ie.ReadyState<>4
  WScript.Sleep 100
Loop
ie.Document.body.innerText=ie.Document.defaultCharset
wShell.SendKeys "%(vdu)"
WScript.Sleep 100
ie.Document.body.innerText=ie.Document.defaultCharset
Do While ie.Document.defaultCharset<>"utf-8"
  Select Case ie.StatusText
  Case "編集に関するコマンドです。" wShell.SendKeys "du"
  Case"この Web ページを表示するために使用する文字コードを指定します。" wShell.SendKeys "u"
  Case Else wShell.SendKeys "%(vdu)"
  End Select
  WScript.Sleep 500
  ie.Document.body.innerText=ie.Document.defaultCharset
Loop

« デスクトップのアイコンを作成日時の昇順にソートする。 | トップページ | 「Web アーカイブ、単一のファイル (*.mht)」で「名前を付けて保存」する。(その2) »