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

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