AutoHotkey Community

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.

title = is it possible to write a script that opens specific chrome or firefox tabs - AutoHotkey Community - Google Chrome

f1::
	WinActivate, %title%
return

f12::
	ExitApp

Code: Select all

#g::WinActivate( "- Gmail", "https://mail.google.com/mail/u/0/#inbox" )
#t::WinActivate( "Todoist", "https://todoist.com/app?lang=en" )
#y::
	WinActivate( " - YouTube", "https://www.youtube.com/feed/subscriptions" )
	Send {Space}
return

WinActivate( TheWindowTitle, TheProgramTitle ) {
	if (TheWindowTitle = " - YouTube")
	{
		chrome := TheWindowTitle
	}
	else
	{
		chrome := " - Google Chrome"
	}

	found := "false"
	tabSearch := TheWindowTitle
	curWinNum := 0
	SetTitleMatchMode, 2
	WinGet, numOfChrome, Count, %chrome% ; Get the number of chrome windows
	WinActivateBottom, %chrome% ; Activate the least recent window
	WinWaitActive %chrome% ; Wait until the window is active
	ControlFocus, Chrome_RenderWidgetHostHWND1 ; Set the focus to tab control ???

	; Loop until all windows are tried, or until we find it
	while (curWinNum < numOfChrome and found = "false") { 
		WinGetTitle, firstTabTitle, A ; The initial tab title
		title := firstTabTitle
		Loop
		{
			if(InStr(title, tabSearch)>0){
				found := "true"
				break
			}
			Send {Ctrl down}{Tab}{Ctrl up}
			WinGetTitle, title, A  ;get active window title
			if(title = firstTabTitle){
				break
			}
		}
		WinActivateBottom, %chrome%
		curWinNum := curWinNum + 1
	}
	; If we did not find it, start it

	if(found = "false"){
		WinActivateBottom, %chrome%
		curWinNum := curWinNum + 1
		Run %TheProgramTitle%
	}
	return
}

Code: Select all

vPath := "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
Run, "%vPath%" "%vUrl%"
vPath := "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Run, "%vPath%" "%vUrl%"

Code: Select all

WinGet, hWnd, ID, A

;this works
oAcc := Acc_Get("Object", "4", 0, "ahk_id " hWnd)
vOutput := ""
Loop, % oAcc.accChildCount
vOutput .= A_Index " " oAcc.accName(A_Index) "`r`n"
Clipboard := vOutput
MsgBox % vOutput

;this doesn't work
oAcc := Acc_Get("Object", "4,22", 0, "ahk_id " hWnd)
vOutput := ""
Loop, % oAcc.accChildCount
vOutput .= A_Index " " oAcc.accName(A_Index) "`r`n"
Clipboard := vOutput
MsgBox % vOutput

Return