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

 >  > PC何でも掲示板
クチコミ掲示板 > パソコン > PC何でも掲示板

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

RSS


「PC何でも掲示板」のクチコミ掲示板に
PC何でも掲示板を新規書き込みPC何でも掲示板をヘルプ付 新規書き込み



ナイスクチコミ2

返信6

お気に入りに追加

標準

PC何でも掲示板

スレ主 たなぴさん
クチコミ投稿数:409件

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

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

書込番号:8186456

ナイスクチコミ!0


返信する
クチコミ投稿数:4589件Goodアンサー獲得:510件 口コミ返信は200件になります 

2008/08/09 12:35(1年以上前)

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

ナイスクチコミ!1


スレ主 たなぴさん
クチコミ投稿数:409件

2008/08/10 11:22(1年以上前)

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

書込番号:8190274

ナイスクチコミ!0


クチコミ投稿数:4589件Goodアンサー獲得:510件 口コミ返信は200件になります 

2008/08/10 13:23(1年以上前)

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

ナイスクチコミ!0


スレ主 たなぴさん
クチコミ投稿数:409件

2008/08/10 13:58(1年以上前)

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

書込番号:8190730

ナイスクチコミ!0


クチコミ投稿数:4589件Goodアンサー獲得:510件 口コミ返信は200件になります 

2008/08/10 16:12(1年以上前)

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

ナイスクチコミ!1


スレ主 たなぴさん
クチコミ投稿数:409件

2008/08/10 17:34(1年以上前)

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

書込番号:8191260

ナイスクチコミ!0


クチコミ一覧を見る


価格.com Q&Aを見る

クチコミ掲示板検索



検索対象カテゴリ
を対象として

新着ピックアップリスト

ピックアップリストトップ

新製品ニュース Headline

更新日:10月18日

クチコミ掲示板ランキング

(パソコン)