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      
無料ブログはココログ

« 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の終了を待ち合わせる。 »