| |
h-tom です。
> Windows Vistaだとたしかにそれでうまくいくみたいですね。でも僕の
>WindowsXP+IE7だとダメでした。
XP+IE7だと全然ダメですね。
ということでXP対応版です。Vistaでも問題ないです。
'------test_ie.vbs--------------------
Option Explicit
Const navOpenInNewTab = &H800
Const navOpenInBackgroundTab = &H1000
Dim WshIe
Dim Shell
Dim WindowList
Dim ie_check
Dim ie_flg
'IEを検索
ie_flg = 0
Set Shell = Wscript.CreateObject("Shell.Application")
Set WindowList = Shell.Windows
For Each ie_check In WindowList
'wscript.echo ie_check.FullName & vbtab & ie_check.LocationName
if right(lcase(ie_check.FullName),13) = "\iexplore.exe" then
'wscript.echo "match!"
Set WshIe = ie_check
ie_flg = 1
exit for
end if
Next
if ie_flg = 0 then
'なければ普通に起動
Set WshIe = WScript.CreateObject("InternetExplorer.Application")
WshIe.Navigate "http://hide.maruo.co.jp/"
WshIe.Visible = True
else
'IEが見つかれば、タブで開く
WshIe.Navigate2 "http://hide.maruo.co.jp/",navOpenInNewTab
if WshIe.Visible = false then WshIe.Visible = True
end if
set WshIe = Nothing
set WindowList = Nothing
Set Shell = Nothing
Wscript.Quit
'-------------------------------------
|
|