Hi, I did a search yesterday and found this
WWW Link it is almost what I am looking for, but you have to put in the hotkey at runtime, and that is not what I want, I want to hardcode the hotkey in the script, but I have no clue how to do this, the script so far, which isn´t mine looks like this :
'Called when the script is executed
Sub Object_OnScriptEnter
End Sub
'Called when the script is terminated
Sub Object_OnScriptExit
Object.UnregisterHotkey(1)
End Sub
Dim h
Sub Object_OnLButtonUp(x,y,dragged)
If Not dragged Then
Set form=Desktopx.CreateForm
form.AddPreference("Hotkey")
form.Preference("Hotkey").Type="hotkey"
form.Preference("Hotkey").Caption="Hotkey:"
form.Preference("Hotkey").Value=h
If( form.Prompt ) Then
h=form.Preference("Hotkey").Value
MsgBox("Setting hotkey")
Object.RegisterHotkey 1, form.Preference("Hotkey").Value
End If
End If
End Sub
Sub Object_OnHotkey(id)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "http://www.google.com"
End Sub