『コマンドラインから既存IE７の新しいタブへの追加表示』 の クチコミ掲示板

[たなぴ]

コマンドラインから既に開いているIE7の新しいタブに表示することはできないのでしょうか?(XP SP3とIE7を使用、IE7のタブ設定はタブに表示するよう設定)

具体的にはWWWCというホームページ更新チェックソフトを使用しているのですが、デフォルト設定だとタブに表示してくれるのですが、DDE通信に手間取っているのかWWWCに制御が戻ってくるのに少し時間がかかります。そこで、外部ツールとしてコマンドラインを指定してIE7に表示するようにすると、上記問題は解決してサクサク動くようになったのですが、今度は新しいタブではなく新しいウインドウに表示されるようになってしまいました。
以上、よろしくお願いします。

書込番号：8186456

[すたぱふ]

OpenByNewTag

例えばC:\にOpenByNewTag.vbsを記載し内容を記載
-----スクリプト(改行されてしまうので画像もつけます。)-----
Option Explicit

Dim DefaultBrowser
Dim objShell

Set objShell = CreateObject("Shell.Application")

With objShell.Windows
If .Count = 0 Then
.Item.Navigate2 URL
Else
.Item(.Count - 1).Navigate2 WScript.Arguments(0), &H800
End If
End With

Set objShell = Nothing

アプリケーションの起動コマンドに「OpenByNewTag.vbs http://bbs.kakaku.com/bbs/」と記載すれば既定のブラウザ(IEやFirefoxなど)の開いているブラウザ(なければ新規)の新しいタブに表示されると思います。

コマンドラインからはバッチファイルを作成し「cscript //nologo OpenByNewTag.vbs %1」とかにし、「バッチファイル http://bbs.kakaku.com/bbs/」とすれば同じ結果になります。

書込番号：8186687

[たなぴ]

既にブラウザが立ち上がっているときはいいのですが、立ち上がっていないときに実行すると、エラーが出るようです。
時間があるときにも見ていただけますか?
よろしくお願いします。

書込番号：8190274

[すたぱふ]

OpenByNewTag

URIの指定を忘れてました

Option Explicit

Dim DefaultBrowser
Dim objShell
Dim URL

Set objShell = CreateObject("Shell.Application")

URL=WScript.Arguments(0)

With objShell.Windows
If .Count = 0 Then
.Item.Navigate2 URL
Else
.Item(.Count - 1).Navigate2 URL, &H800
End If
End With

Set objShell = Nothing

書込番号：8190641

[たなぴ]

何度もすみません、やはりエラーが出ます。
.Item.Navigate2 URL のところで、Itemオブジェクトが無いとのエラーです。
自分でも調べてみたのですが、やはりすたぱふさんのソースのようにWindows.Item.Navigate2でウインドウが無くても開くような記載がありました。
私の環境のせいなのでしょうか。。。

書込番号：8190730

[すたぱふ]

OpenByNewTag3

既定のブラウザが起動していなければブラウザオブジェクトを明示的に作成してページを表示するように改良しました。
もしかしたら私はOfficeのProfessionalとかインストールしているので、VBS関係の補完機能が自動的に働いてしまっているのかも知れません。
もし下記で動作しないようでしたら、一度MicrosoftUpdateからアップデートを試してみても良いかもしれません。
また、既定のブラウザが起動するのは最初にコメントした「cscript //nologo OpenByNewTag.vbs <URI>」形式でVBSを呼び出した時のみでした。VBSを引数付きで起動した時は常にIE7が起動します。

Option Explicit

Dim objShell
Dim URL

Set objShell = CreateObject("Shell.Application")

URL = WScript.Arguments(0)

If objShell.Windows.Count = 0 Then
with CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate2 URL
end with
Else
objShell.Windows.Item(objShell.Windows.Count - 1).Navigate2 URL, &H800
End If

Set objShell = Nothing

書込番号：8191048

[たなぴ]

IEが既に開いているとき、開いていないときの両方において正常に動作するようになりました。
わざわざ時間を割いていただきありがとうございました。

書込番号：8191260