Shortcut to send a hotkey combination?

Hello!
For these purposes I use this VBS-script:

Code:

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "(^%+1)"  
rem Hotkey combination CTRL + ALT + SHIFT + 1
rem Shift     +
rem Ctrl     ^
rem Alt     %

Past this code into the new text-format programm (like Notepad, Notepad ++) and save to any_name.vbs.
Try Google WshShell.SendKeys.