HSPTV!掲示板

デスクトップ上に、インターネットショートカットを作成するexeを作っています。
ショートカットの作成はできたのですが、
デフォルトのアイコン（紙？にe）ではなく、
独自のアイコンで表示させたいのですが、うまくできません。

できれば、ショートカットを作成するexeから、アイコンを抽出し、
指定（Cドライブなど）の場所に保存させ、
（↑ショートカット作成後にexeが削除されても変わらないようにしたい）
ショートカットをそのアイコンで表示させたいのです。

IconLocationで指定してもうまくいかないし、
LoadIconとか、ExtractIconExを使うのかな？と調べてみたのですが
どうもうまく動かないのです。
どうか、いい対処方法を教えてください。よろしくお願いします｡

以下、作成中のスクリプトです。
------------------------------------------------------------
newcom WshShell, "WScript.Shell"
newcom objFileSys, "Scripting.FileSystemObject"

fldDesktop=objFileSys("GetFolder",WshShell("SpecialFolders","Desktop"))
pathname=fldDesktop("Path")
pathname+= "\\ほげほげ.url"
sLink = "http://www.***.jp/"

oShellLink=WshShell("CreateShortcut",pathname)
oShellLink("TargetPath") = sLink

oShellLink->"Save"

delcom fldDesktop
delcom oShellLink
delcom WshShell
delcom objFileSys
dialog "デスクトップにショートカットが作成されました。",0,"確認"
stop
------------------------------------------------------------

インターネットショートカットならini操作モジュール等でも
作成、編集できると思います。

	iconIndex = 0
	iconPath = ""
	url = "http://hsp.tv/"
	buf = "[InternetShortcut]\n"
	if strlen(iconPath) {
		buf+="IconIndex="+iconIndex+"\n"
		buf+="IconFile=\""+iconPath+"\"\n"
	}
	buf+="URL=\""+url+"\"\n"

	path = dirinfo(0x10000)+"\\test.url"
	exist path
	if strsize != -1 : dialog ""+path+"は既に存在します。" : end
	
	notesel buf
	notesave path
	dialog ""+path+"を保存しました。"
	end

ご返信、ありがとうございます。
実行してみたのですが、
iconPath = ""のパスの書き方が悪いのか（？）、アイコン指定ができません。
任意の場所に　test.exe（実行ファイル）があるとして
そのtest.exeからアイコンを抽出するにはどう記述すればよいのでしょうか？
初心者で、すみません。ご教授ください。

test.exeがHSPで作った実行ファイル(自作)で、アイコンをパックしてあるのなら、
bloadとbsaveで抽出できると思います。

実行ファイルのリソースから抽出したい場合は
「アイコンの抽出」で過去ログを検索してみてください。