edgeでファビコン付きショートカットをデスクトップに作る。

© ウィンドウズスクリプトプログラマ - Windows Script Programmer 2020

edgeで開くwebサイトのインターネットショートカット（.url）を、ファビコン付きで、デスクトップに作る。

ieで開いて右クリック、ショートカットの作成、でインターネットショートカットをデスクトップに作る。

ieで作るとファビコン付きになる。ファビコンは、urlファイルのntfs代替データストリーム内に格納される。

インターネットショートカットは、既定のブラウザで開く。既定のブラウザがedgeならedgeで開く。（違う場合はリンク先をmicrosoft-edge:http～に変更。）

※追加、
firefoxで開いて、ショートカットの作成　もよい哉。
アドレスバーの先頭アイコンをドラッグ、デスクトップなどにドロップ。
ieと違ってfirefox内にicoファイルを作成保存。

© ウィンドウズスクリプトプログラマ - Windows Script Programmer 2020

edgeで開くwebサイトのショートカット（.lnk）を、ファビコン付きで、デスクトップに作る。

edgeでやる、ieを使わない、なら、

1. .…、その他のツール、タスクバーにピン留めする。

2. エクスプローラで、shell:User Pinned\TaskBar を開いて、ショートカットをデスクトップにコピー。

3. タスクバーのピン留めを外す。
   

edgeで開く。ファビコンはedge内に作られる。

※仕様変更あり。

1. .…、アプリ、このサイトをアプリとしてインストール。

2. .…、アプリ、アプリの管理、アプリを右クリック、ショートカットの作成、アプリのピン留めで、デスクトップをチェック、ピン留め。
   

環境の違いなのか、過去に投稿頂いてる方法では favicon ができなかったため、別の方法を編み出してみました。

環境：

Microsoft Edge バージョン 88.0.705.68（Chromium 版）

Windows 10 ビルド 20H2

操作手順：

1) Edge で当該 Web ページを表示させる。

2) 設定（・・・）→ アプリ → このサイトをアプリとしてインストール → インストール

3) スタート メニューのプログラム一覧にある「最近追加されたもの」もしくはタイトルの頭文字のところにサイトが favicon 付きで表示される。

4) 3) をデスクトップにドラッグ＆ドロップ。

これでデスクトップでも、スタートメニューでも favicon つきサイトのショートカットができます。

開くウィンドウは余計なメニューがない、コンパクトなものになりますが、逆に業務用サイトなどを表示させるのに適しているのではないでしょうか。

© ウィンドウズスクリプトプログラマ - Windows Script Programmer 2021

edgeで作った「faviconなしインターネットショートカット」を「favicon付きインターネットショートカット」に変える方法

ie.website　ピン留めサイトショートカットです。

[{000214A0-0000-0000-C000-000000000046}]

Prop3=19,11

[InternetShortcut]

IDList=

URL=res://mshtml.dll/blank.htm

IconFile=C:\WINDOWS\System32\url.dll

IconIndex=5

HotKey=0

[{A7AF692E-098D-4C08-A225-D433CA835ED0}]

Prop5=3,0

Prop9=19,0

Prop2=65,2C0000000000000001000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF43000000050100003D010000A401000049

Prop6=3,1

Prop8=31,

[{9F4C2855-9F79-4B39-A8D0-E1D42DE1D5F3}]

Prop5=8,Microsoft.Website.B4BD2547.5E296137

事前準備、これを作っておく。タスクバーにピン留めするかは任意。

手順

１．これを開く。ieの小さいウィンドウが開く。

２．「faviconなしインターネットショートカット」をこのウィンドウにドロップ。

３．「お気に入りバーに追加」ボタンをクリック。

４．「お気に入りバー」の「favicon付きインターネットショートカット」を元の場所にドラッグドロップ。置換する。

Edgeのアイコンを右クリックしてIE11へ送る。（つまりIE11で同じUrlを見る）

アドレスバーにurlサイトのアイコンが見える。

それをデスクトップへドラッグ（ドロップしなくて良い。つまりドラグドロップのマネだけ）

アイコンがサイトのものに入れ代わる。

但し何かの拍子でEdgeアイコンへ戻ってしまう。（月1程度で）

戻る時は書き換えたすべてのアイコンが一斉に。

Edgeバージョン 91.0.864.54、ウィンドウズW10-21H1。

何だか理由不明だが1年前からこの状態で使ってる。

© ウィンドウズスクリプトプログラマ - Windows Script Programmer 2021

デスクトップにインターネットショートカットを作ったとき、同時にfaviconも作る。

アドレスバーのurlの先頭に

edge://favicon/

を入れる。

例えば、

画像を右クリック、名前を付けて画像を保存。※

インターネットショートカットのプロパティで、アイコンを設定する。

※　この場合、pngなので、以下の.cmdにドロップして、bmpに変換する。

png2bmp.cmd

powershell "[Reflection.Assembly]::LoadWithPartialName('System.Drawing');$img=[Drawing.Image]::FromFile('%~f1');$img.Save('%~f1'+'.bmp', 'BMP');$img.Dispose();"

© ウィンドウズスクリプトプログラマ - Windows Script Programmer 2021

ページのfaviconをファイル名「ドメイン名.ico」で保存する。

ブックマークレット

javascript:(function(){function save(url){var a=document.createElement('a');a.href=url;a.download=location.hostname+'.ico';a.click();}var items=document.querySelectorAll('link[rel="shortcut icon"]');if(items.length){save(items[0].href);}else{save(location.protocol+'//'+location.hostname+'/favicon.ico');} })()

© ウィンドウズスクリプトプログラマ - Windows Script Programmer 2021

インターネットショートカット(.url)のfaviconを「指定した特定フォルダ」の「ドメイン名.ico」に設定する。

インターネットショートカット(.url)を下記vbsファイルにドロップする。

FaviconFile.vbs

dir="C:\Users\ユーザ名\Desktop\Favicon\"

Set fso=CreateObject("Scripting.FileSystemObject")

For Each Path In WScript.Arguments

Path=fso.GetAbsolutePathName(Path)

SetIconPath Path

Next

Function SetIconPath(Path)

Set fso=CreateObject("Scripting.FileSystemObject")

If LCase(fso.GetExtensionName(Path))<>"url" Then Exit Function

Set File=fso.OpenTextFile(Path)

Do While Not File.AtEndOfStream

Line=LTrim(File.ReadLine)

If InStr(UCase(Line),"URL=")=1 Then

Exit Do

End If

Loop

File.Close

Icon=Mid(Line,InStr(Line,"//")+2)

Icon=Left(Icon,InStr(Icon,"/")-1)

If Icon<>"" Then

Set File=fso.OpenTextFile(Path,2)

File.WriteLine "[InternetShortcut]"

File.WriteLine Line

File.WriteLine "IconFile=" & dir & Icon & ".ico"

File.WriteLine "IconIndex=0"

File.Close

Set Link=CreateObject("WScript.Shell").CreateShortcut(Path)

link.targetpath=link.targetpath

Link.save

Else

MsgBox "no match"

End If

End Function

InternetShortcutに関連付けでおけば簡単。

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\SOFTWARE\Classes\InternetShortcut\shell\InternetShortcut]

"SubCommands"=""

[HKEY_CURRENT_USER\SOFTWARE\Classes\InternetShortcut\shell\InternetShortcut\Shell]

[HKEY_CURRENT_USER\SOFTWARE\Classes\InternetShortcut\shell\InternetShortcut\Shell\Favicon File]

[HKEY_CURRENT_USER\SOFTWARE\Classes\InternetShortcut\shell\InternetShortcut\Shell\Favicon File\command]

@="C:\\Windows\\System32\\wscript.exe \"C:\\Users\\ユーザ名\\Desktop\\Favicon\\FaviconFile.vbs\" \"%1\""