I made a HotKeySet() Example (I was bored ^^)
Source:
#comments-start
Made by: AlmarM
Example Script for:
HotKeySet()
Hope u enjoy ^^
#comments-end
$Site_1 = InputBox("Site 1", "Witch site you want to bind on SHIFT + 1 ?")
$Site_2 = InputBox("Site 2", "Witch site you want to bind on SHIFT + 2 ?")
$Site_3 = InputBox("Site 3", "Witch site you want to bind on SHIFT + 3 ?")
$Site_4 = InputBox("Site 4", "Witch site you want to bind on SHIFT + 4 ?")
$Site_5 = InputBox("Site 5", "Witch site you want to bind on SHIFT + 5 ?")
HotKeySet("{ESC}", "_Exit") ;If you press ESC the script will stop
HotKeySet("+{F1}", "_ShowSite") ;If you press SHIFT + F1, the script will show witch sites you have on witch keys
HotKeySet("+1", "_Site1") ;If you press SHIFT + 1, the script activates _Site1()
HotKeySet("+2", "_Site2") ;If you press SHIFT + 2, the script activates _Site2()
HotKeySet("+3", "_Site3") ;If you press SHIFT + 3, the script activates _Site3()
HotKeySet("+4", "_Site4") ;If you press SHIFT + 4, the script activates _Site4()
HotKeySet("+5", "_Site5") ;If you press SHIFT + 5, the script activates _Site5()
While 1
Sleep(100)
WEnd
Func _Exit()
Sleep(100)
Exit
EndFunc ;==> _Exit()
Func _ShowSite()
TrayTip("Sites:", "SHIFT + 1: " & $Site_1 & @CRLF & "SHIFT + 2: " & $Site_2 & @CRLF & "SHIFT + 3: " & $Site_3 & @CRLF & "SHIFT + 4: " & $Site_4 & @CRLF & "SHIFT + 5: " & $Site_5, 5)
EndFunc ;==> _ShowSite()
Func _Site1()
Run("cmd /c start " & $Site_1, "", @SW_HIDE)
EndFunc ;==> _Site1
Func _Site2()
Run("cmd /c start " & $Site_2, "", @SW_HIDE)
EndFunc ;==> _Site2
Func _Site3()
Run("cmd /c start " & $Site_3, "", @SW_HIDE)
EndFunc ;==> _Site3
Func _Site4()
Run("cmd /c start " & $Site_4, "", @SW_HIDE)
EndFunc ;==> _Site4
Func _Site5()
Run("cmd /c start " & $Site_5, "", @SW_HIDE)
EndFunc ;==> _Site5