AutoHotkey Community

#1::Send #{tab}{tab}{enter}
#2::Send #{tab}{tab}{right}{enter}
#3::Send #{tab}{tab}{right 2}{enter}
#4::Send #{tab}{tab}{right 3}{enter}
#5::Send #{tab}{tab}{right 4}{enter}
#6::Send #{tab}{tab}{right 5}{enter}
#7::Send #{tab}{tab}{right 6}{enter}
#8::Send #{tab}{tab}{right 7}{enter}
#9::Send #{tab}{tab}{right 8}{enter}

#1::Send #{tab 2}{enter}

; Quick Launch using Win+Number Hotkey (like Windows Vista)
; v2.0
;
; AutoHotkey Version: 1.0.46.09 (tested version)
; Language:       English
; Platform:       Win9x/NT
; Author:         Bobbo
;
; Script Function:
;   Added win+num(0:9) as shortcut keys to whatever is in your quicklaunch toolbar
;   (just like Windows Vista)
;

#NoEnv
SendMode Input

#1::WinNumQL(1)
#2::WinNumQL(2)
#3::WinNumQL(3)
#4::WinNumQL(4)
#5::WinNumQL(5)
#6::WinNumQL(6)
#7::WinNumQL(7)
#8::WinNumQL(8)
#9::WinNumQL(9)

WinNumQL(button_num)
{
   ; do nothing if toolbar not loaded
   WinGetText, text, ahk_class Shell_TrayWnd
   if (InStr(text, "Quick Launch") = 0)
      return

   ; find the control name of the Quick Launch toolbar
   Loop,9
   {   
      ControlGetText,text2,ToolbarWindow32%A_Index%, ahk_class Shell_TrayWnd
      IfInString,text2,Quick Launch
      {
         qlname = ToolbarWindow32%A_Index%
         break
      }
   }

   ; do nothing if not enough buttons
   SendMessage, 0x418, 0, 0, %qlname%, ahk_class Shell_TrayWnd   ; TB_BUTTONCOUNT
   if (ErrorLevel<button_num)
      return

   ; get info about the requested button
   WinGet, pid, PID, ahk_class Shell_TrayWnd
   hProc := DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pid)
   pRB := DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 20, "Uint", 0x1000, "Uint", 0x4)
   VarSetCapacity(btn, 20)
   VarSetCapacity(nfo, 24)
   SendMessage, 0x417, button_num-1, pRB, %qlname%, ahk_class Shell_TrayWnd   ; TB_GETBUTTON
   DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pRB, "Uint", &btn, "Uint", 20, "Uint", 0)
      iBitmap := DecodeInteger(&btn + 0)
      idn     := DecodeInteger(&btn + 4)
      dwData  := DecodeInteger(&btn +12)
      iString := DecodeInteger(&btn +16)
   DllCall("ReadProcessMemory", "Uint", hProc, "Uint", dwData, "Uint", &nfo, "Uint", 24, "Uint", 0)
      hWnd  := DecodeInteger(&nfo + 0)
      uID   := DecodeInteger(&nfo + 4)
      nMsg  := DecodeInteger(&nfo + 8)
      hIcon := DecodeInteger(&nfo +20)

   ; execute the button
   ControlGet,qlhandle,Hwnd,,%qlname%, ahk_class Shell_TrayWnd
   PostMessage, 0x111, idn, qlhandle, %qlname%, ahk_class Shell_TrayWnd  ; WM_COMMAND
   return
}

DecodeInteger(ptr)
{
   Return *ptr | *++ptr << 8 | *++ptr << 16 | *++ptr << 24
}

EncodeInteger(ref, val, nSize = 1)
{
   DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", nSize * 4, "Uint", val)
}

;#1::Run "C:\Documents and Settings\HP_Administrator\Local Settings\Application Data\Google\Chrome\Application\chrome.exe"
;#2::Run "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"  /recycle
;#4::Run "%SystemRoot%\system32\mstsc.exe"

if WinExist("ahk_class classname")
{
WinActivate
}
else
{
;execute code
}