Netwing: Link, der Icon (oder Verküpfung auf dem Desktop erstell)

Beitrag lesen

Hier ist ein Active X das eine Verknüpfung von der webseite die du definierst auf dem Desktop anlegt. Allerdings hab ich noch keine Möglichkeit gefunden ein eigenes Icon zu verwenden, aber das wird nicht so wichtig sein. Beim anlegen erscheint eine ActiveX warnung! Bitte nicht mißbräuchlich verwenden ;-)

<HTML>
<script language="JScript">
function fnGo()
{

var WshShell = new ActiveXObject("WScript.Shell");
       strDesktop = WshShell.SpecialFolders("Desktop");
       var oShellLink = WshShell.CreateShortcut(strDesktop + "\Verknüpfung auf Webseite.lnk");
       oShellLink.TargetPath = "http://www.tomgruber.com";
       oShellLink.WindowStyle = 1;
       oShellLink.Hotkey = "CTRL+SHIFT+F";
       oShellLink.Description = "www.Tomgruber.com";
       oShellLink.WorkingDirectory = strDesktop;
       oShellLink.Save();
}
</script>

<body>
<input type=button value="Verknüpfung erstellen" onclick="fnGo()">
</body>
</HTML>