View Single Post
  #9  
Old 03-07-2006, 06:21 PM
Adde Adde is offline
Senior Member
 
Join Date: Oct 2002
Location: Sweden
Posts: 2,453
Default Re: Setting Up A Shortcut To Open Multiple Programs

; --------------------------------------------------------------------------------------------
;
; AutoHotkey script for opening a bunch of poker applications at once.
;
;
; Current Bugs:
;
; - Don't work if PokerTracker dialog for updated version pops up.
; - Don't work if PokerAce Hud dialog for updated version pops up.
; - Don't work if PokerStars news dialog pops up.
;
; --------------------------------------------------------------------------------------------



; --------------- Path Settings
;
; Leave path blank ("") if you don't want to open a specific program.
;

pathPartyPoker := "C:\Program\PartyGaming\PartyPoker\PartyPoker. lnk"
pathPokerStars := "C:\Program\PokerStars\PokerStarsUpdate.exe"
pathPokerTracker := "C:\Program\Poker Tracker V2\ptrack2.exe"
pathAllSnap := "C:\Program\allSnap\allSnap.exe"
pathPokerAce := "C:\Program\PokerAce Hud\PAHud.exe"
pathAutoResizer := "C:\Program\Party_Beta_Auto_Resizer_v07b\Party Beta Auto Resizer.exe"


; --------------- PartyPoker Settings

ppMoveWindowToX := 0 ; [-1=no move]
ppMoveWindowToY := 0

ppLobbyView := "expand" ; [normal/expand/zoom]


; --------------- PokerStars Settings

psMoveWindowToX := 0 ; [-1=no move]
psMoveWindowToY := 0


; --------------- PokerTracker Settings

ptWhatSiteToImport := "partypoker" ; [partypoker/pokerstars]
ptTimerMinutes := 2

ptMinimize := 1 ; [1=YES/0=NO]


; --------------- PokerAce Hud Settings

paMinimize := 1 ; [1=YES/0=NO]


; --------------- Auto Resizer Settings

arMoveWindowToX := 1600 ; [-1=no move]
arMoveWindowToY := 0

arMinimize := 1 ; [1=YES/0=NO]

arPrefsWaitingList := 1 ; [1=YES/0=NO]
arPrefsFirstAvailable := 1
arPrefsWaitForBb := 0
arPrefsPost1stBb := 0
arPrefsBuyIn := 1
arPrefsNoSpam := 1
arPrefsMinimizeHh := 0
arPrefsCheckFoldOn := 0
arPrefsLockSize := 0
arPrefsHideMoney := 0



;
;
;
; DO ONLY CHANGE SETTINGS ABOVE THIS LINE
;
;
; DO NOT CHANGE ANYTHING BELOW THIS LINE
;
;
;



; --------------------------------------------------------------------------------------------
;
; SYSTEM VARIABLES
;
; --------------------------------------------------------------------------------------------

sysArTxtLicense := "Auto-Resizer: Freeware"
sysArTxtTitle := "Auto-Resizer"
sysArTxtTitleKey := "[Auto] Buy-in"

sysPsTxtFirst := "Network Status"
sysPsTxtLobby := "PokerStars Lobby"
sysPsTxtLogin := "Login"
sysPsTxtLoginKey := "User ID"

sysPpTxtLobby := "PartyPoker.com: Poker Lobby"
sysPpTxtLogin := "PartyAccount Login"
sysPpTxtLoginKey := "Account Name"

sysPtTxtTitle := "Poker Tracker (Version"
sysPtTxtImport := "Auto-Import"


sysPpProcessName := "PartyGaming.exe"
sysPsProcessName := "PokerStars.exe"
sysPtProcessName := "ptrack2.exe"
sysPaProcessName := "PAHud.exe"
sysArProcessName := "Party Beta Auto Resizer.exe"
sysAsProcessName := "allSnap.exe"




; --------------------------------------------------------------------------------------------
;
; PARTYPOKER
;
; --------------------------------------------------------------------------------------------

if (pathPartyPoker <> "")
{

SetTitleMatchMode, 1
Process, Exist, %sysPpProcessName%
if (%ErrorLevel% = 0) {
Run, %pathPartyPoker%

WinWait, %sysPpTxtLobby%
WinActivate, %sysPpTxtLobby%
if (ppMoveWindowToX >= 0)
WinMove, %sysPpTxtLobby%, , ppMoveWindowToX , ppMoveWindowToY

if (ppLobbyView = "zoom")
className := "AfxWnd4263"
else if (ppLobbyView = "expand")
className := "AfxWnd4262"
else
className := "AfxWnd4261"

WinWait, %sysPpTxtLobby%
WinActivate, %sysPpTxtLobby%
ControlClick , %className% , %sysPpTxtLobby%

WinWait, %sysPpTxtLogin%
WinActivate, %sysPpTxtLogin%
ControlClick, Button2 , %sysPpTxtLogin% , %sysPpTxtLoginKey%
}

}
; ---------- END




; --------------------------------------------------------------------------------------------
;
; POKERSTARS
;
; --------------------------------------------------------------------------------------------

if (pathPokerStars <> "")
{

SetTitleMatchMode, 1
Process, Exist, %sysPsProcessName%
if (%ErrorLevel% = 0) {
Run, %pathPokerStars%
WinWait, , %sysPsTxtFirst%
Loop {
IfWinNotExist , , %sysPsTxtFirst%
break
}
WinWait, %sysPsTxtLobby%
if (psMoveWindowToX >= 0)
WinMove, %sysPsTxtLobby%, , psMoveWindowToX , psMoveWindowToY
WinActivate, %sysPsTxtLobby%
WinMenuSelectItem, %sysPsTxtLobby%, , Lobby , Login
SetTitleMatchMode, 2
WinWait, %sysPsTxtLogin% , %sysPsTxtLoginKey%
ControlClick, Button4 , %sysPsTxtLogin% , %sysPsTxtLoginKey%
}

}
; ---------- END




; --------------------------------------------------------------------------------------------
;
; POKERTRACKER
;
; --------------------------------------------------------------------------------------------

if (pathPokerTracker <> "")
{

SetTitleMatchMode, 1
Process, Exist, %sysPtProcessName%
if (%ErrorLevel% = 0) {
Run , %pathPokerTracker% , , max
}

if (ptWhatSiteToImport = "partypoker") {
txtMenu := "Auto-Import Party"
txtWindow := "Auto-Import Party"
btnStart := "Button12"
btnForce := "Button11"
editMins := "PBEDIT701"
}
if (ptWhatSiteToImport = "pokerstars") {
txtMenu := "Auto-Import PokerStars"
txtWindow := "Auto-Import PokerStars"
btnStart := "Button11"
btnForce := "Button12"
editMins := "PBEDIT701"
}

openWindow := 0
startTimer := 0

IfWinNotExist, %sysPtTxtTitle%, %sysPtTxtImport%
{
openWindow := 1
}
if (openWindow = 1) {
WinWait, %sysPtTxtTitle%
WinActivate, %sysPtTxtTitle%
WinMenuSelectItem, %sysPtTxtTitle%, , File, %txtMenu%
startTimer := 1
}
if (startTimer = 1) {
WinWait, %sysPtTxtTitle% , Start Timer
ControlSetText , %editMins% , %ptTimerMinutes% , , Start Timer
ControlClick, %btnStart%, , Start Timer
WinWait, %sysPtTxtTitle%, Stop Timer
ControlClick, %btnForce%, , Force Import
}
if (ptMinimize = 1) {
WinMinimize, %sysPtTxtTitle%
}

}
; ---------- END




; --------------------------------------------------------------------------------------------
;
; POKERACE HUD
;
; --------------------------------------------------------------------------------------------

if (pathPokerAce <> "")
{

Process, Exist, %sysPaProcessName%
if (%ErrorLevel% = 0) {
if (paMinimize)
Run, %pathPokerAce% , , min
else
Run, %pathPokerAce%

}

}
; ---------- END




; --------------------------------------------------------------------------------------------
;
; AUTO RESIZER
;
; --------------------------------------------------------------------------------------------

if (pathAutoResizer <> "")
{

SetTitleMatchMode, 1
Process, Exist, %sysArProcessName%
if (%ErrorLevel% = 0) {
Run, %pathAutoResizer%

WinWait, %sysArTxtLicense%
WinClose, %sysArTxtLicense%

WinWait, %sysArTxtTitle% , %sysArTxtTitleKey%
WinActivate, %sysArTxtTitle% , %sysArTxtTitleKey%

ControlClick, Button1 , %sysArTxtTitle% , %sysArTxtTitleKey%

if (arPrefsWaitingList = 1)
ControlClick, Button13 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsFirstAvailable = 1)
ControlClick, Button15 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsWaitForBb = 1)
ControlClick, Button4 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsPost1stBb = 1)
ControlClick, Button7 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsBuyIn = 1)
ControlClick, Button5 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsNoSpam = 1)
ControlClick, Button16 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsMinimizeHh = 1)
ControlClick, Button18 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsCheckFoldOn = 1)
ControlClick, Button17 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsLockSize = 1)
ControlClick, Button3 , %sysArTxtTitle% , %sysArTxtTitleKey%
if (arPrefsHideMoney = 1)
ControlClick, Button14 , %sysArTxtTitle% , %sysArTxtTitleKey%

WinWait, %sysArTxtTitle% , %sysArTxtTitleKey%
if (arMoveWindowToX >= 0)
WinMove, %sysArTxtTitle%, , arMoveWindowToX , arMoveWindowToY
if (arMinimize = 1) {
WinWait, %sysArTxtTitle%
WinMinimize, %sysArTxtTitle%
}
}

}
; ---------- END




; --------------------------------------------------------------------------------------------
;
; ALLSNAP
;
; --------------------------------------------------------------------------------------------

if (pathAllSnap <> "")
{

Process, Exist, %sysAsProcessName%
if (%ErrorLevel% = 0) {
Run, %pathAllSnap%
}

}
; ---------- END
Reply With Quote