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で表示中のページのタイトルとURLをリンクに変えてクリップボードにコピーするブックマークレット »

2012年5月20日 (日)

履歴からURLのWebページのタイトルを調べる。

履歴にはURLをキーとしてWebページのタイトルが記録されています。それは、

CreateObject("Shell.Application").NameSpace(url).Title

で得られます。
もし、履歴にないか、Webページにタイトルがなければ、代わりにhashを除くURLが返ります。

次はインターネットショートカットをドロップすると、タイトルを表示します。

url2title.vbs インターネットショートカット

Set Link=CreateObject("WScript.Shell").CreateShortcut(WScript.Arguments.Item(0))
MsgBox CreateObject("Shell.Application").NameSpace(Link.TargetPath).Title

« インターネットショートカットからリンクを作ってコピーする。 | トップページ | IEで表示中のページのタイトルとURLをリンクに変えてクリップボードにコピーするブックマークレット »