Desktop Internet Shortcut

[jimbog]

This probably isn't as slick as something the Ginmaster could create, but this works pretty well for me as a replacement for the old Deskcut add on for Firefox. I actually like it better. You can select the name for the shortcut from text on the page or just type it in (ie, remember to fill out this form).

Macro Desktop Internet Shortcut

Code:

Copy      Help

str name.getsel
if(name.len=0)
,str typedname
,if(!inp(typedname "Please enter a name for the shortcut." "Desktop Shortcut")) ret
,name=typedname

str unmodified=name
name-"$desktop$\"
name+".url"

Acc a=acc("Search Bookmarks and History" "TEXT" win("" "MozillaUIWindowClass") "MozillaUIWindowClass" "" 0x1801 0x0 0x20000040)
str address=a.Value

CreateInternetShortcut name address
mes("A shortcut has been created for: %s" "Desktop Shortcut" "s" unmodified)