msgbox "Questo script non è stato creato dallo staff di Screentiful, pertanto non ci assumiamo responsabilità sul suo funzionamento."
result= msgbox ("Vuoi creare le icone di Lohacker Lost sul desktop?", vbOKCancel)
if result = 1 then
Set WSHShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set LINKMIO1 = WSHShell.CreateShortcut(DesktopPath & "\Lohacker Lost 2.0 offline ctrl+alt+1.lnk")
Set LINKMIO2 = WSHShell.CreateShortcut(DesktopPath & "\lohacker lost 2.0 online ctrl+alt+2.lnk")

LINKMIO1.TargetPath = WSHShell.ExpandEnvironmentStrings("c:\lohacker lost 2.0\index.htm")
LINKMIO2.TargetPath = "http://www.screentiful.it/lohacker_lost"

LINKMIO1.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("c:\lohacker lost 2.0")

LINKMIO1.Hotkey = "Ctrl+Alt+1"
LINKMIO2.Hotkey = "Ctrl+Alt+2"

LINKMIO1.WindowStyle = 4
LINKMIO2.WindowStyle = 4

LINKMIO1.Save
LINKMIO2.Save 
msgbox "Lohacker Lost è stato salvato correttamente come icona sul tuo desktop."
else msgbox "Installazione rifiutata."
end if