« IEの既存のプロセスの新規ウィンドウで開く。 | トップページ | Excelの終了を待ち合わせる。 »

2008年1月 6日 (日)

マイコンピュータゾーンになる汎用のURLになりそうなもの

インターネットゾーンでよければ、about:blankですが、インターネットゾーンのセキュリティレベルが高いと、何も出来ないので、マイコンピュータゾーンになるabout:blankのような標準的なURLはないものでしょうか?

そこで、
C:\WINDOWS\Web\tips.gif
C:\WINDOWS\system32\ntimage.gif
C:\WINDOWS\system32\eula.txt
C:\WINDOWS\I386\EULA.TXT
などがabout:blankの代わりに使えそうです。
環境依存なので自分用ですが。

例えば、クリップボードの定番、

Set ie=CreateObject("InternetExplorer.Application")
ie.Navigate "about:blank"
Do While ie.Busy Or ie.ReadyState<>4
  WScript.Sleep 100
Loop
ie.Document.parentWindow.clipboardData.setData "text","aaaa"
MsgBox ie.Document.parentWindow.clipboardData.getData("text")
ie.Quit

が駄目でも、

Set ie=CreateObject("InternetExplorer.Application")
ie.Navigate "C:\WINDOWS\Web\tips.gif"
Do While ie.Busy Or ie.ReadyState<>4
  WScript.Sleep 100
Loop
ie.Document.parentWindow.clipboardData.setData "text","aaaa"
MsgBox ie.Document.parentWindow.clipboardData.getData("text")
ie.Quit

にすればOKです。

ただ、これもマイコンピュータゾーンのセキュリティレベルを高くしてると駄目ですが。
その場合や他人用は、ExecWBを使う方式で。

« IEの既存のプロセスの新規ウィンドウで開く。 | トップページ | Excelの終了を待ち合わせる。 »