Two Plus Two Publishing LLC
Two Plus Two Publishing LLC
 

Go Back   Two Plus Two Poker Forums > > >

Notices

Free Software Discussion of Free / Freeware / Donationware / Open Source poker software and Free Graphics mods

Reply
 
Thread Tools Display Modes
Old 04-06-2015, 02:08 PM   #1076
Weetam
centurion
 
Join Date: Apr 2012
Posts: 156
Re: AHK script:Stars Filtered SNG Opener

@rysf

Short one:
- download autohotkey
- download script (link above - v 4.01.c)
- run script and set parameters in GUI as you wish
- filter pokerstars lobby to have visible all SNGs that you would like to auto register
- click "submit + run" when you are ready
Weetam is offline   Reply With Quote
Old 04-15-2015, 03:56 PM   #1077
brbrbrbr
journeyman
 
Join Date: Sep 2010
Posts: 257
Re: AHK script:Stars Filtered SNG Opener

"Idle (Lobby not found)" is what it says in the status bar.


I'm running the .exe version. It was said somewhere in this thread that it looks for "PokerStars lobby - logged as" text in the title to find pokerstars window. However, it just says "PokerStars Lobby" on my client, and yes I'm logged in. Now what?

Is version 7 even supported?

Today version 7 was a forced upgrade, so TN1 sng registration thingy finally stopped working. I'm hoping somebody can help me with this.
brbrbrbr is offline   Reply With Quote
Old 04-15-2015, 05:24 PM   #1078
AAFunk
newbie
 
Join Date: Feb 2014
Location: Denmark
Posts: 46
Re: AHK script:Stars Filtered SNG Opener

tried several times earlier today, but can't get links to work? redirected to page not found/the like
AAFunk is offline   Reply With Quote
Old 04-15-2015, 05:57 PM   #1079
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

Here is 4.01c version:
Code:
; Author:         Everlong@2p2 Code assembled from misc sources, thanks to _dave_, chris228, finnisher
; v.4.01c
; added: PS 7 support
; 4.0x version fixed by Max1mums 
#NoEnv
#SingleInstance, Force
SendMode Input
SetWorkingDir %A_ScriptDir%
setwindelay,-1
setcontroldelay,-1
SetBatchLines, -1
SetTitleMatchMode, 2
SetTimer, register, off
SetTimer, safeguard, off
SetTimer, numcheck, 75
StringTrimRight, thisahk, A_ScriptName, 4
onexit,exitsub
IniRead, pspath, %thisahk%.ini, Settings, path


;;;;;;;;;;;SET YOUR pokerstars.log.0 file path below;;;;;;;;;;;;;;;
;;;;;;;;;;;eg: logfile:="c:\Program Files\PokerStars\pokerstars.log.0"
logfile:= pspath . "pokerstars.log.0" ;<-


IfNotExist,%logfile%
{
Loop, %A_ProgramFiles%\* , 2
{
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
}
IfNotExist,%logfile%
Loop, %A_AppData%\* , 2
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
IfNotExist,%logfile%
{
StringReplace,logfile,A_AppData,Roaming,Local
Loop, %logfile%\* , 2
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
}
}
IfNotExist,%logfile%
{
logfile:= pspath . "pokerstars.log.0"
IfNotExist,%logfile%
msgbox, PokerStars.log.0 file path is probably incorrect, recheck the configuration
}
IniRead, Targetnum, %thisahk%.ini, Settings, Targetnum
if Targetnum is not number
Targetnum:=0
;==============================================================
RegSofar=0
OpenTables=0
trows=17
SysGet,mon, MonitorworkArea
fivesec=0
ft:=0
two=0
ddlist4=Off|
ddlist5=Off|
ddlist6=Off|
ddlist7=Off|
LobbyList=Default|Black|
ddlist2:=ddlist2 . 1 . "|"
ddlist2:=ddlist2 . 2 . "|"
Loop 100
{
two:=two+2
ddlist3:=ddlist3 . two . "|"
ddlist:=ddlist . A_index . "|"
If (A_index<51)
{
fivesec:=fivesec+5
ddlist2:=ddlist2 . fivesec . "|"
ddlist6:=ddlist6 . fivesec . "|"
If (A_index<22)
{
ddlist7:=ddlist7 . A_Index . "|"
If (A_index<16)
{
ddlist4:=ddlist4 . A_index . "|"
}
}
}
else
{
ft:=ft+15
ddlist5:=ddlist5 . ft . "|"
}
}
ddlist3:=ddlist3 . 9999 . "|"
Gosub, BuildGui
Return
;==============================================================
;==============================================================

BuildGui:
Gui, color, white
Gui, font, cOlive
Gui, add, tab, h340 w240, General|Advanced Settings
Gui, add, text, , Auto-register
Gui, add, Checkbox, yp xp+80 Check3 Checked-1 vRegister
Gui, add, text, yp xp+30, Reg. next if full?
Gui, add, Checkbox, yp xp+80 VAutoifFull


Gui, add, text,xp-190 yp+30 , Register every (sec):
Gui, add, DropDownList, w50 yp-5 xp+140  vInterval1, %ddlist2%
Gui, add, text, xp-140 yp+30, No of SNG:s to keep open:
Gui, add, DropDownList, w50 yp-5 xp+140 vKeepOpen , %ddlist%
Gui, add, text,xp-140 yp+30, Limit total SNG:s to:
Gui, add, DropDownList, w50 yp-5 xp+140 vTotalLimit , %ddlist3%
Gui, add, text,xp-140 yp+30, Limit total time to (min):
Gui, add, DropDownList, w50 yp-5 xp+140 vLimitTime , %ddlist5%

Gui, add, text, xp-140 yp+30 cred vcdown w200
Gui, add, text, xp  yp+30 w200 vRegSofar, SNG:s registered so far:
Gui, add, text,  w200 vOpenTables, Tables open/waiting:
Gui, add, text, w200 cRed vStatus, Status: Idle
Gui, add, Button, w68 ggetgui, &Submit+Run
Gui, add, text, xp+72 yp+5, (Autosaves your settings)
Gui, Add, Button, Disabled xp-72 yp+20 w48 h20 Center , &Resume
Gui, Add, Button, Disabled  w45 h20 yp xp+48 Center , &Pause
Gui, Add, Button, w80 h20 yp xp+45 Center globbyrestore, &Lobby restore
Gui, tab, 2

Gui, add, Text, x25 y65 , Lobby Theme:
Gui, add, DropDownList, w65 yp-5 xp+140 vLobby, %LobbyList%
Gui, add, text,xp-140 yp+30 , Close lobbies every (sec):
Gui, add, DropDownList, w50 yp-5 xp+140  vCloseInterv, %ddlist6%
Gui, add, text, xp-140 yp+18 , (manually Close with ctrl+e)
Gui, add, text, yp+30, Disable if no user Input (min):
Gui, add, DropDownList, w50 yp-5 xp+140 vGuardtimer Choose1 , %ddlist4%
Gui, add, text, xp-140 yp+30 ,Batch-register?
Gui, add, Checkbox,yp xp+140 vBatchReg
Gui, add, text, yp+20 xp-140 ,SetReg* mode?
Gui, add, Checkbox,yp xp+140 vSetReg
Gui, add, text, yp+20 xp-140 ,Minimize lobby?
Gui, add, Checkbox,yp xp+140 vMinlob
Gui, add, Text, xp-140 yp+30, Times to scroll down:
Gui, add, DropDownList, w50 yp-5 xp+140 vscrldwn, %ddlist7%
Gui, add, Text, xp-140 yp+25, Always start at top of lobby?
Gui, add, Checkbox, yp xp+140 vTopReturn
Gui, show, w256, %thisahk%
WinGetPos, x, y, w, h, SFSO
;x:=monRight-w
;y:=monBottom-h
x:=monLeft
y:=monTop
Gosub, GetIni
Gui, show, x%x% y%y%, %thisahk%
Return

getgui:
GuiControl,, Register, -1
Register = 1
Gui, Submit, NoHide
displayedTime=
If (lobby="Default")
{
regButton:="PokerStarsButtonClass10"
}
Else If (lobby="Black" or lobby="Custom*")
{
regButton:="PokerStarsButtonClass10"
}
PS6list=PokerStarsListClass3
PS7list1=PokerStarsListClass13
PS7list2=PokerStarsListClass12
Gosub, MakeIni
PausedTime:=LimitTime
Gosub, TimeLimit
interval:=interval1*1000
If interval is not Number
interval=off
If guardtimer is not Number
{
SetTimer, safeguard, off
}
Else
{
killtime:=guardtimer*60000
SetTimer, safeguard, 1000
}
if CloseInterv is not number
SetTimer, NukeLobbies, off
else
{
lobclose:=CloseInterv*1000
SetTimer, NukeLobbies, %lobclose%
}
register=1
sleep,-1
Gosub, ButtonResume
Return

Safeguard:
If (A_TimeIdle > killtime)
{
Gosub, ButtonPause
GuiControl, , cdown, Stopped  due to inactivity!!! %displayedTime%
}
Return

TimeLimit:
If LimitTime is Number
{
allowedMinutes := LimitTime
endTime := A_Now
endTime += %allowedMinutes%, Minutes
SetTimer, CountDown, 1000
}
Else
{
SetTimer, CountDown, off
sleep,-1
GuiControl, , cdown, Time Limit off
}
Return

Countdown:
remainingTime := endTime
EnvSub remainingTime, %A_Now%, Seconds
m := remainingTime // 60
s := Mod(remainingTime, 60)
displayedTime := Format3Digits(m) ":" Format2Digits(s)
GuiControl, , cdown, Running another (mm:ss): %displayedTime%
If (A_now > endTime)
{
SetTimer, Countdown, off
Gosub, ButtonPause
GuiControl, , cdown, Time Limit reached.
}
Return

GuiClose:
Gui, Submit
Gosub, MakeIni
ExitApp
Return

ButtonResume:
Gui, Submit, NoHide
GuiControl, Disable, &Resume
GuiControl, Enable, &Pause
if LimitTime is Number
If PausedTime is Number
LimitTime:=PausedTime
Gosub, TimeLimit
GuiControl, , Register, -1
Register:=1
SetTitleMatchMode, 2
WinGet, LobbyID, id, PokerStars Lobby,,Tournament
wingettitle,lobbytitle,ahk_id%LobbyID%
if !instr(lobbytitle,"Logged In")>0
{
WinGet,ctrls,ControlList,ahk_id%LobbyID%
Loop,Parse,ctrls,`n
{
 controlgettext,text,%A_LoopField%,ahk_id%LobbyID%
 if text=Register
 regButton:=A_LoopField
}
}
settimer, AutoReg,37
OpenTables:=0
tables=
OpenTables:=CountTourneys(1)
Gosub,Register
SetTimer, Register, %Interval%
sleep,-1
Return

ButtonPause:
Critical
Gui, Submit, NoHide
if LimitTime is Number
PausedTime:=remainingTime/60
Register:=0
settimer, AutoReg,off
SetTimer, Countdown, off
SetTimer, Register, off
GuiControl, Disable, Pause
GuiControl, Enable, Resume
GuiControl, , Register, 0
GuiControl, , cdown, Manually Paused %displayedTime%
GuiControl, , Status, Status: Waiting ;TEST
Return

Register:
SetTitleMatchMode, 2
WinGet, LobbyID, id, PokerStars Lobby,,Tournament
If !LobbyID
{
Gosub, ButtonPause
GuiControl,, Status, Status: PokerStars Lobby not found
Gui, show, NoActivate, %thisahk%
Return
}
If (TopReturn=1)
{
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
ControlSend, %list%, {NumpadUp 20}, ahk_id%lobbyid%
}
WinGet, PhysicalTables, list,Table ahk_class PokerStarsTableFrameClass
If PhysicalTables is not Number
PhysicalTables:=0
If (PhysicalTables >= KeepOpen)
{
GuiControl,, Status, Set Full waiting
Return
}
OpenTables:=CountTourneys()
If OpenTables is not Number
OpenTables:=0
GuiControl, , OpenTables, Tables open/waiting: %OpenTables%
GuiControl, , RegSofar, SNG:s registered so far: %RegSofar%
If (RegSofar >= TotalLimit)
{
Gosub, ButtonPause
GuiControl, , cdown, SNG Total Limit reached
GuiControl, , Status, Status: Idle ;TEST
Return
}
If (OpenTables >= TotalLimit)
{
Gosub, ButtonPause
GuiControl, , cdown, SNG Total Limit reached
GuiControl, , Status, Status: Idle ;TEST
Return
}
If (OpenTables>=KeepOpen)
{
GuiControl, , OpenTables, Tables open/waiting: %OpenTables% (Set full)
GuiControl, , Status, Status: Waiting ;TEST
Return
}
Else
{
If (BatchReg=1)
{
Times:= KeepOpen - OpenTables
RegSNGexec(LobbyID, Times, scrldwn)
}
Else
{
RegSNGexec(LobbyID, 1, scrldwn)
}
}
Return

MakeIni:
IniWrite, %AutoIfFull%, %thisahk%.ini, Settings, AutoIfFull
IniWrite, %TopReturn%, %thisahk%.ini, Settings, TopReturn
IniWrite, %scrldwn%, %thisahk%.ini, Settings, scrldwn
IniWrite, %Lobby%, %thisahk%.ini, Settings, Lobby
IniWrite, %BatchReg%, %thisahk%.ini, Settings, BatchReg
IniWrite, %Setreg%, %thisahk%.ini, Settings, SetReg
IniWrite, %Minlob%, %thisahk%.ini, Settings, MinLob
IniWrite, %Interval1%, %thisahk%.ini, Settings, Interval1
IniWrite, %CloseInterv%, %thisahk%.ini, Settings, CloseInterv
IniWrite, %KeepOpen%, %thisahk%.ini, Settings, KeepOpen
IniWrite, %TotalLimit%, %thisahk%.ini, Settings, TotalLimit
IniWrite, %GuardTimer%, %thisahk%.ini, Settings, GuardTimer
IniWrite, %LimitTime%, %thisahk%.ini, Settings, LimitTime
Return

GetIni:
IfExist, %thisahk%.ini
{
IniRead, AutoIfFull, %thisahk%.ini, Settings, AutoIfFull
IniRead, TopReturn, %thisahk%.ini, Settings, TopReturn,0
IniRead, scrldwn, %thisahk%.ini, Settings, scrldwn
IniRead, Lobby, %thisahk%.ini, Settings, Lobby
IniRead, BatchReg, %thisahk%.ini, Settings, BatchReg
IniRead, SetReg, %thisahk%.ini, Settings, SetReg, 1
IniRead, MinLob, %thisahk%.ini, Settings, MinLob, 0
IniRead, Interval1, %thisahk%.ini, Settings, Interval1
IniRead, CloseInterv, %thisahk%.ini, Settings, CloseInterv
IniRead, KeepOpen, %thisahk%.ini, Settings, KeepOpen
IniRead, TotalLimit, %thisahk%.ini, Settings, TotalLimit
IniRead, GuardTimer, %thisahk%.ini, Settings, GuardTimer, Off
IniRead, LimitTime, %thisahk%.ini, Settings, LimitTime, Off
GuiControl, , AutoIfFull, %AutoIfFull%
StringReplace, ddlist7, ddlist7, %scrldwn%, %scrldwn%|
GuiControl, , scrldwn, |%ddlist7%
StringReplace, LobbyList, LobbyList, %Lobby%, %Lobby%|
GuiControl, , Lobby, |%LobbyList%
GuiControl, , BatchReg, %BatchReg%
GuiControl, , SetReg, %SetReg%
GuiControl, , MinLob, %MinLob%
GuiControl, , TopReturn, %TopReturn%
StringReplace, ddlist2, ddlist2, %interval1%, %Interval1%|
GuiControl, , Interval1, |%ddlist2%
StringReplace, ddlist6, ddlist6, %CloseInterv%, %CloseInterv%|
GuiControl, , CloseInterv, |%ddlist6%
StringReplace, ddlist, ddlist, %KeepOpen%, %KeepOpen%|
GuiControl, , KeepOpen, |%ddlist%
StringReplace, ddlist3, ddlist3, %TotalLimit%, %TotalLimit%|,
GuiControl, , TotalLimit, |%ddlist3%
StringReplace, ddlist4, ddlist4, %GuardTimer%, %GuardTimer%|
GuiControl, , GuardTimer, |%ddlist4%
StringReplace, ddlist5, ddlist5, %LimitTime%, %LimitTime%|
GuiControl, , LimitTime, |%ddlist5%
}
Return

#e::
gosub,NukeLobbies
Return

NukeLobbies:
SetTitleMatchMode, 2
GroupAdd, TLobbies, Lobby ahk_class PokerStarsTableFrameClass,,, PokerStars Lobby
GroupClose, TLobbies, A
Return

#H::
WinHide, %thisahk%
return

#S::
WinShow, %thisahk%
return

F11::
TmpSetReg:=SetReg
SetReg=0
CountTourneys()
SetReg:=TmpSetReg
Return
ManualCount:
CountTourneys()
Return

FindLobby:
If (%A_GuiEvent% = DoubleClick)
{
LV_GetText(TournId,A_EventInfo)
TournID:=SubStr(TournID, 1,10)
WinMenuSelectItem, PokerStars Lobby,, Requests, Find a Tournament
WinWait, Find Tournament ahk_class #32770, , 10
WinGet, fat, id
ControlFocus, Edit1, ahk_id%fat%
Sleep, -1
ControlSend, Edit1, %TournId%, ahk_id%fat%
ControlFocus, Button1, ahk_id%fat%
Sleep, -1
ControlSend, Button1, {Space}, ahk_id%fat%
}
Return

Format2Digits(_val) {
_val :=Round(_val) + 100
StringRight _val, _val, 2
Return _val
}

Format3Digits(_val) {
_val :=Round(_val) + 1000
StringRight _val, _val, 3
StringTrimRight, FirstZ, _val, 2
If FirstZ=0
{
StringTrimLeft, _val, _val, 1
}
StringTrimRight, FirstZ, _val, 1
If FirstZ=0
{
StringTrimLeft, _val, _val, 1
}
Return _val
}
LobbyRestore:
WinGet, lobbyid, id, PokerStars Lobby
WinShow, ahk_id%lobbyid%
WinMove, ahk_id%lobbyid%,,0,0
return

RegSNGexec(id, times, scrldwn) {
global RegSofar
global Register
global OpenTables
global KeepOpen
global TotalLimit
global RegButton
global AutoIfFull
global list,lobbytitle,lobbyid,PS7list1,PS7list2,PS6list

Loop %times%
{
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
ControlSend, %list%, {NumpadUp 20}, ahk_id%id%
If (OpenTables >= KeepOpen)
Exit
If (OpenTables >= TotalLimit)
Exit
ClickdirectionCount=0
direction=0
GuiControl, , Status, Status: Registering ;TEST
Loop 16
{
If (Register=0)
{
GuiControl, , Status, Status: Idle ;TEST
Exit
}
ControlGet, v, Visible, , %regButton%, ahk_id%id%
If (v = 0)
If (scrldwn!="Off")
{
If (ClickdirectionCount<scrldwn) {
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
If (direction=0) {
ControlSend, %list%, {NumpadDown}, ahk_id%id%
} Else {
ControlSend, %list%, {NumpadUp}, ahk_id%id%
}
ClickdirectionCount:=ClickdirectionCount+1
} Else {
If (direction=0) {
direction:=1
} Else {
direction:=0
}
ClickdirectionCount:=0
}
Sleep,1000
}
If ( v = 1 ) {
wingetclass,class,A
SetTitleMatchMode, 2
ControlSend, %regButton%, {Space}, ahk_id%id%
ControlSend, %regButton%, {Space}, ahk_id%id%
WinWait, Tournament Registration ahk_class #32770,,1
{
WinGet, regid, id, Tournament Registration ahk_class #32770
wingettext,text,
if instr(text,"Confirm")>0
{
autobtn=PokerStarsButtonClass3
okbtn=PokerStarsButtonClass2
}
else
{
autobtn=Button2
okbtn=PokerStarsButtonClass1
}
controlget,vis,visible,,%autobtn%,ahk_id%regid%
if vis
{
 If (AutoIfFull = 1)
 {
 Control,Check,,%autobtn%, ahk_id%regid%
 ;ControlSend, %autobtn%, {Space}, ahk_id%regid%
 Sleep, 30
 }
ControlSend, %okbtn%, {Space}, ahk_id%regid%
}
}
sleep,30
WinWait, Tournament Registration ahk_class #32770,,1
{
WinGet, regid, id, Tournament Registration ahk_class #32770
controlget,vis,visible,,Button2,ahk_id%regid%
controlget,vis1,visible,,PokerStarsButtonClass3,ahk_id%regid%
if !vis && !vis1
winclose,ahk_id%regid%
;ControlSend, PokerStarsButtonClass1, {Space}, ahk_id%regid%
}
GuiControl, , Status, Status: Waiting ;TEST
;if class=PokerStarsTableFrameClass
;winactivate,ahk_class PokerStarsTableFrameClass
Break
}
}
}
}
return

AutoReg:
AutoReg()
return

AutoReg()
{
global AutoIfFull
setwindelay,-1
settitlematchmode,2
IfWinExist, Tournament Registration ahk_class #32770
{
wingettext,text,
if instr(text,"Confirm")>0
{
autobtn=PokerStarsButtonClass3
okbtn=PokerStarsButtonClass2
}
else
{
autobtn=Button2
okbtn=PokerStarsButtonClass1
}
winget,id,id,
controlget,vis,visible,,%autobtn%,ahk_id%id%
if vis
{
If (AutoIfFull = 1)
{
ControlFocus, %autobtn%, ahk_id%id%
Sleep, -1
ControlSend, %autobtn%, {Space}, ahk_id%id%
Sleep, 30
}
ControlSend, %okbtn%, {Space}, ahk_id%id%
}
else
ControlSend, %okbtn%, {Space}, ahk_id%id%
;winclose,ahk_id%id%
}
}
return

CountTourneys(mode=0) {
global logfile,RegSofar,regtourneys,tables,Targetnum
If (SetReg=1)
Return 0
log := CheckFile(logfile,mode)
Loop, Parse, log, `n,
{
tnumber=
if (instr(A_loopField,"RT add")>0)
{
 tnumber:=RegExReplace(A_loopField, "RT add ", "")
 if instr(tnumber,A_space)
 StringLeft, tnumber, tnumber, instr(tnumber,A_space)-1
 tnumber:=RegExReplace(tnumber, "[`n,`r]", "")
 tnumber:=Floor(tnumber)
 if !instr(tables,tnumber) && ((Targetnum=0) || ((Targetnum>0) && (tnumber>=(Targetnum-50000)) && (tnumber<(Targetnum+100000))))
 listadd(tables,tnumber)
}
else
If (instr(A_loopField,"RT remove")>0)
{
 stringtrimleft,tnumber,A_loopField,instr(A_loopField,A_space,"",0)
 tnumber:=RegExReplace(tnumber, "[`n,`r]", "")
 tnumber:=Floor(tnumber)
 if instr(tables,tnumber)
 listDelItem(tables,tnumber)
}
}
log=
tcount:=0
Loop, Parse, tables, -,
{
if A_Loopfield is number
{
tcount++
if !(instr(regtourneys,A_Loopfield)>0)
{
listadd(regtourneys,A_Loopfield)
if mode=0
RegSofar++
}
}
}
return tcount
}

numcheck:
winget,nlist,list,Table ahk_class PokerStarsTableFrameClass
loop %nlist%
{
id:=nlist%A_index%
wingettitle,title,ahk_id%id%
stringtrimleft,num,title,instr(title,A_space,"",instr(title,"Tournament"))
stringleft,num,num,instr(num,A_space)-1
if num is not number
num:=0
if (num>targetnum)
targetnum:=num
StringReplace,targetnum,targetnum,A_space,,All
StringReplace,targetnum,targetnum,`n,,All
StringReplace,targetnum,targetnum,`r,,All
}
return

Ansi2Unicode(sString, CP = 0)
{
	  nSize := DllCall("MultiByteToWideChar"
		, "Uint", CP
		, "Uint", 0
		, "Uint", &sString
		, "int",  -1
		, "Uint", 0
		, "int",  0)

	VarSetCapacity(wString, nSize * 2)

	DllCall("MultiByteToWideChar"
		, "Uint", CP
		, "Uint", 0
		, "Uint", &sString
		, "int",  -1
		, "Uint", &wString
		, "int",  nSize)
return wstring
}

ReplaceByte( hayStackAddr, hayStackSize, ByteFrom=0, ByteTo=1, StartOffset=0, NumReps=-1)
{	Static fun
	IfEqual,fun,
	{
		h=
		( LTrim join
			5589E553515256579C8B4D0C8B451831D229C17E25837D1C00741F8B7D0801C70FB6451
			00FB65D14FCF2AE750D885FFF42FF4D1C740409C975EF9D89D05F5E5A595BC9C21800
		)
		VarSetCapacity(fun,StrLen(h)//2)
		Loop % StrLen(h)//2
			NumPut("0x" . SubStr(h,2*A_Index-1,2), fun, A_Index-1, "Char")
	}
	Return DllCall(&fun
		, "uint",haystackAddr, "uint",hayStackSize, "short",ByteFrom, "short",ByteTo
		, "uint",StartOffset, "int",NumReps)
}

CheckFile(File, mode=0) {
   ; THX Sean for File.ahk : http://www.autohotkey.com/forum/post-124759.html
   Static CF := ""   ; Current File
   Static FP := 0    ; File Pointer
   Static OPEN_EXISTING := 3
   Static GENERIC_READ := 0x80000000
   Static FILE_SHARE_READ := 1
   Static FILE_SHARE_WRITE := 2
   Static FILE_SHARE_DELETE := 4
   Static FILE_BEGIN := 0
   BatchLines := A_BatchLines
   SetBatchLines, -1
   If (File != CF) {
      CF := File
      FP := 0
   }
   hFile := DllCall("CreateFile"
                  , "Str",  File
                  , "Uint", GENERIC_READ
                  , "Uint", FILE_SHARE_READ|FILE_SHARE_WRITE|FILE_SHARE_DELETE
                  , "Uint", 0
                  , "Uint", OPEN_EXISTING
                  , "Uint", 0
                  , "Uint", 0)
   If (!hFile) {
      CF := ""
      FP := 0
      SetBatchLines, %BatchLines%
      Return False
   }
   DllCall("GetFileSizeEx"
         , "Uint",   hFile
         , "Int64P", nSize)
   if mode=1
   FP:=1
   If (FP = 0 Or nSize <= FP) {
      FP := nSize
      SetBatchLines, %BatchLines%
      DllCall("CloseHandle", "Uint", hFile) ; close file
     Return False
   }
   DllCall("SetFilePointerEx"
         , "Uint",  hFile
         , "Int64", FP
         , "Uint",  0
         , "Uint",  FILE_BEGIN)
   VarSetCapacity(Tail, Length := nSize - FP, 0)
   DllCall("ReadFile"
         , "Uint",  hFile
         , "Str",   Tail
         , "Uint",  Length
         , "UintP", Length
         , "Uint",  0)
   DllCall("CloseHandle", "Uint", hFile)
   FP := nSize
   if A_IsUnicode
   {
   tail:=Ansi2Unicode(tail)
   Length:=strlen(tail)
   }
   ReplaceByte( &Tail, Length)
   VarSetCapacity(Tail, -1)
   SetBatchLines, %BatchLines%
   Return Tail
}

listAdd( byRef list, item, del="-" ) {
  list:=( list!="" ? ( list . del . item ) : item )
  return list
}

listDelItem( byRef list, item, del="-") {
  ifEqual, item,, return list
  list:=del . list . del
  StringReplace, list, list, %del%%item%%del%,%del%,All
  StringTrimLeft, list, list, 1
  StringTrimRight, list, list, 1
  return list
}

lobbyStars() {
SetTitleMatchMode 2
WinGet, id, id, PokerStars Lobby ahk_class #32770,,Tournament
Return id
}

;~^!Q::
;ExitApp

exitsub:
if Targetnum>0
IniWrite, %Targetnum%, %thisahk%.ini, Settings, Targetnum
exitapp
return
Max1mums is offline   Reply With Quote
Old 04-17-2015, 06:46 AM   #1080
RobengoSini
centurion
 
Join Date: Feb 2015
Posts: 128
Re: AHK script:Stars Filtered SNG Opener

Max1mums, whats up?
im thespecial12, u should know, the super fish
RobengoSini is offline   Reply With Quote
Old 04-17-2015, 08:49 AM   #1081
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

RobengoSini, hey.
Max1mums is offline   Reply With Quote
Old 04-17-2015, 11:18 AM   #1082
AAFunk
newbie
 
Join Date: Feb 2014
Location: Denmark
Posts: 46
Re: AHK script:Stars Filtered SNG Opener

Thanks a lot !
AAFunk is offline   Reply With Quote
Old 05-05-2015, 01:53 PM   #1083
Summoner500
adept
 
Join Date: Feb 2013
Posts: 968
Re: AHK script:Stars Filtered SNG Opener

is it possible to use this software on full tilt? they dont have filters for different buy ins , so its kinda impossible to pin point the specific games you want with the script , any ideas?
Summoner500 is offline   Reply With Quote
Old 06-11-2015, 01:36 PM   #1084
castor_ades7
stranger
 
Join Date: Jul 2014
Posts: 4
Re: AHK script:Stars Filtered SNG Opener

Hi all,

This is an updated version of the script posted before.

also on sourceforge: autoreg dot sourceforge dot net

It now handles the issue of "Register" Button Class
It can also Check if Sitting Out and Go Back

Please let me know of any issues

Tried to create a new thread (AHK script:PS SnG autoregister) but have no permission.


; autoreg.ahk
; a simple poker stars auto register script by castor_ades7
; based on/inspired by SFSO_4.01b.ahk
; Thanks go to: Everlong@2p2, _dave_, chris228, finnisher, Max1mums

; ================================================== ======================
; Log in before starting the script
; In Lobby, activate "Show registering/upcoming only"
; In Lobby, use "Games View"
; Choose the "Classic" Table Theme
; Do not minimize PokerStars Lobby, just move it out of the way
; Enable option: Allow registration(s) without showing Buy-In dialog
; It is suggested that:
; PokerStars hotkeys are used and Go to 'First Action' Table = SPACE
; Tested with PS7 Classic Theme for SnG tournaments, Favorites via filters
;
; on Getting the "Register" Button Class
; value is obtained at initial start of script
; value may change during play, hence it is suggested to keep the "Auto"
; option, to check the current value automatically, every so often
;
; user may change some options in script:
; "User defined variables" at around line 70 onwards
; Gui "Checked" options at around line 110 onwards
; hotkeys at end of script
;
; on Check if Sitting Out and Go Back
; there are two methods to do this automatically:
; - Auto: via checking the current table window
; - Auto_hh: via checking the hand history if hero is sitting out
; ================================================== ======================

Code:
; vim: set foldmethod=marker:  

; autoreg.ahk
; a simple poker stars auto register script by castor_ades7
; based on/inspired by SFSO_4.01b.ahk
; Thanks go to: Everlong@2p2, _dave_, chris228, finnisher, Max1mums

; ========================================================================
; Log in before starting the script 
; In Lobby, activate "Show registering/upcoming only"
; In Lobby, use "Games View"
; Choose the "Classic" Table Theme
; Do not minimize PokerStars Lobby, just move it out of the way
; Enable option: Allow registration(s) without showing Buy-In dialog	
; It is suggested that: 
;  PokerStars hotkeys are used and Go to 'First Action' Table = SPACE
; Tested with PS7 Classic Theme for SnG tournaments, Favorites via filters
;
; on Getting the "Register" Button Class
;  value is obtained at initial start of script
;  value may change during play, hence it is suggested to keep the "Auto"
;   option, to check the current value automatically, every so often
; 
; user may change some options in script:
;  "User defined variables" at around line 70 onwards
;  Gui "Checked" options at around line 110 onwards
;  hotkeys at end of script
;
; on Check if Sitting Out and Go Back
;  there are two methods to do this automatically:
;  - Auto: via checking the current table window
;  - Auto_hh: via checking the hand history if hero is sitting out
; ========================================================================

; init {{{
#NoEnv
#SingleInstance, Force
#WinActivateForce
SendMode Input
SetWorkingDir %A_ScriptDir%
SetBatchLines, -1
SetTitleMatchMode, 2
StringTrimRight, thisahk, A_ScriptName, 4
regButton := "PokerStarsButtonClass999"
unregButton := "PokerStarsButtonClass997"
regList := "PokerStarsListClass12"
unregAll_selBtn := "PokerStarsButtonClass1"
unregAll_unregBtn := "PokerStarsButtonClass3"
AutoRegister := 0
AutoRegister_prev := 0
AutoAutoClose := 0
AutoInfoTab := 0
AutoSittingOut := 0
AutoSittingOut_hh := 0
AutoWindowMaximize := 0
AutoActivateTableWin := 0
AutoGetRegButtonClass := 0
ct_Tables_Now := 0 ; number of open tables currently
ct_Tables_SoFar := 0 ; number of tables so far, since start of script
window_position_to_move := "Center"
ScriptStarted := 0
LogFile := "autoreg_" A_Now ".log"
Hero_Name := "noname" ; set in StartScript from lobby
so_tables_already_clicked_count := 0 ; sitting out
it_tables_already_clicked_count := 0 ; info tab
ct_tables_already_counted_count := 0 ; count tables
Register_in_progress := 0

; ----------------------
; User defined variables
; ----------------------
MaxTablesInit:=6 ; Maximum number of Tables to keep open, Initial value
AutoCloseInterval:=50 ; Check if any and close "confirm" windows every X msec
RegisterInterval:=30*1000 ; Register every X millisec
GetRegButtonClassInterval:=10*60*1000 ; Check Register Class every X millisec
MaxTimesToReg:=6 ; Maximum number of registrations per interval
SittingOut:=10 ; Check active table window if Sitting Out every X millisec 
SittingOut_hh:=5*1000 ; Check if Sitting Out every X millisec via hh
WindowMaximize:=2*1000 ; Check and Maximize all table Windows every X millisec
ActivateTableWinTime:=10*1000 ; Activate a Table  Window every X millisec
InfoTab:=200 ; Check active table win if InfoTab was clicked, every X millisec
CountTables:=3*1000 ; Count physical tables every X millisec
IdleTime:=10*60*1000 ; PauseScript and UnRegisterAll, if Idle for X millisec
MaxTablesSoFar:=500 ; Maximum number of total registered tables so far
SafeguardInterval:=1*60*1000 ; Do safeguard checks every X millisec
Path_to_HH:="C:\Program Files\PokerStars\HandHistory\" 
alt_Path_to_HH := "C:\HandHistory\"
; Path_to_HH is combined with Hero_Name in StartScript
; Hand histories are used to check if hero is sitting out
; ----------------------
; ----------------------

ifExist, %alt_Path_to_HH%
	Path_to_HH := alt_Path_to_HH

if (SafeguardInterval>0)
	Sleep, 37
	SetTimer, Safeguard, %SafeguardInterval%
Gosub, BuildGui
Return
; }}}

QuitScript: ; {{{
ExitApp
Return ; }}}

GuiClose: ; {{{
ExitApp
Return ; }}}

BuildGui: ; {{{
Gui, Color, White
Gui, Font, cOlive
Gui, Add, Text, x10 y12, Max Number of Open Tables:
Gui, Add, Edit, x155 y10 w42
Gui, Add, UpDown, vMaxTables, %MaxTablesInit%
Gui, Add, GroupBox, x5 y30 w92 h130,
Gui, Add, Button, x10 y40 w80 gStartScript
					, &[S]tart
Gui, Add, Text, x100 y45, Submit and start/continue script
Gui, Add, Button, x10 y70 w80 gUnRegisterAll
					, &S[T]op
Gui, Add, Text, x100 y75, Un-register all and stop registering
Gui, Add, Button, x10 y100 w80 gPauseScript
					, &[P]ause
Gui, Add, Text, x100 y105, Cancel all automated functions
Gui, Add, Button, x10 y130 w80 gQuitScript
					, &[Q]uit
Gui, Add, Text, x100 y135, Exit script and close window
Gui, Add, Checkbox, x10 y160 vSpaceG2FAT Checked
   , &PokerStars hotkeys are used and`nSPACE goes to "First Action" Table
Gui, Add, Button, x10 y190 w190 gSittingOut_via_button
					, &Check all if Sitting [O]ut and Go Back
Gui, Add, Checkbox, x205 y190 vAutoSittingOut Checked, &Auto
Gui, Add, Checkbox, x205 y202 vAutoSittingOut_hh Checked, &Auto_hh
Gui, Add, Button, x10 y220 w190 gInfoTab_via_button
					, &Check all if [I]nfo Tab is selected
Gui, Add, Checkbox, x205 y225 vAutoInfoTab, &Auto
Gui, Add, Button, x10 y250 w190 gInfoTab_via_button_active
					, &Click In(f)o Tab on active table
Gui, Add, Button, x10 y280 w190 gWindowMaximize_via_button
					, &Maximize all Table [W]indows
Gui, Add, Checkbox, x205 y285 vAutoWindowMaximize Checked, &Auto
Gui, Add, Button, x10 y310 w190 gActivateTableWin_via_button
					, &[A]ctivate a Table Window 
Gui, Add, Checkbox, x205 y315 vAutoActivateTableWin, &Auto
Gui, Add, Button, x10 y340 w190 gAutoClose_via_button
					, &Close small confirmation windows
Gui, Add, Checkbox, x205 y345 vAutoAutoClose Checked, &Auto
Gui, Add, Button, x10 y370 w190 gGetRegButtonClassViaButton
					, &Get Register Button Class
Gui, Add, Checkbox, x205 y375 vAutoGetRegButtonClass Checked, &Auto
Gui, Add, Button, x10 y400 w190 gMoveLobbyInOut
					, &Move [L]obby In/Out of Screen
Gui, Add, Text, x10 w255 cBlue
		, hotkeys: Ctl + Alt + letter_in_brackets`nOR letter_in_parentheses
Gui, Add, Text, w255 cGreen vStatus, Status: Idle
Gui, Add, Text, w255 cBlack vInfo1, n/a
Gui, Add, Text, w255 cBlack vInfo2, n/a
Gui, Add, Text, w255 cBlack vInfo3, n/a
Gui, Add, Text, w255 cBlack vInfo4, n/a
Gui, Add, Text, w255 cRed vInfo_Reg
	          , Registered now/total: %ct_Tables_Now%/%ct_Tables_SoFar%
Gui, Show, w265, %thisahk%
Gui, Show, x0 y0, %thisahk%
Sleep, -1
Gosub, Wait 
Return ; }}}

Safeguard: ; {{{
if ((A_TimeIdle > IdleTime) OR (ct_Tables_SoFar > MaxTablesSoFar))
{
	Gosub, UnRegisterAll
	GuiControl,, Status, Status: Stop registering due to safeguard
	FileAppend, %A_Now% Stop registering due to safeguard `n, %LogFile%
}
Return ; }}}

Wait: ; {{{
GuiControl,, Status, Status: Waiting
Return ; }}}

PauseScript: ; {{{
AutoRegister:=0
AutoAutoClose:=0
AutoInfoTab:=0
AutoSittingOut:=0
AutoSittingOut_hh:=0
AutoWindowMaximize:=0
AutoActivateTableWin:=0
AutoGetRegButtonClass:=0
GuiControl,, Status, Status: Script Paused
FileAppend, %A_Now% Script Paused `n, %LogFile%
Return ; }}}

StartScript: ; {{{
GuiControl,, Status, Status: Started/Continued on %A_Hour%:%A_Min%:%A_Sec%
FileAppend, %A_Now% Script Started/Continued `n, %LogFile%
Gui, Submit, NoHide ; update all AutoX switches
AutoRegister := 1
WinGet, LobbyId, Id, PokerStars Lobby ahk_class #32770
if !LobbyId {
	GuiControl,, Status, Status: PokerStars Lobby not found
	FileAppend, %A_Now% PokerStars Lobby not found `n, %LogFile%
	Return
}
WinActivate, ahk_id%LobbyId%
DetectHiddenText, On
SetTitleMatchMode, Slow
WinGetText, Lobby_Txt, ahk_id%LobbyId%
SetTitleMatchMode, Fast
StringMid, Lobby_Txt_short, Lobby_Txt, 1, 64
StringSplit, Lobby_Txt_split, Lobby_Txt_short, `n, `r
Hero_Name := Lobby_Txt_split1
Path_to_hero_HH := Path_to_HH Hero_Name "\*.txt"
GuiControl,, Info1, %A_Hour%:%A_Min%:%A_Sec% Hero_Name: %Hero_Name%
if !ScriptStarted
{
	Gosub, GetRegButtonClassViaButton
	Sleep, 3000
	if (CountTables>0)
		SetTimer, CountTables, %CountTables%
	Sleep, 37
	if (AutoCloseInterval>0)
		SetTimer, AutoClose, %AutoCloseInterval%
	Sleep, 37
	if (InfoTab>0)
		SetTimer, InfoTab, %InfoTab%
	Sleep, 37
	if (SittingOut>0)
		SetTimer, SittingOut, %SittingOut%
	Sleep, 37
	if (SittingOut_hh>0)
		SetTimer, SittingOut_hh, %SittingOut_hh%
	Sleep, 37
	if (WindowMaximize>0)
		SetTimer, WindowMaximize, %WindowMaximize%
	Sleep, 37
	if (ActivateTableWinTime>0)
		SetTimer, ActivateTableWin, %ActivateTableWinTime%
	Sleep, 37
	if (GetRegButtonClassInterval>0) {
		Gosub, GetRegButtonClass
		SetTimer, GetRegButtonClass, %GetRegButtonClassInterval%
	}
	Sleep, 37
	if (RegisterInterval>0) {
		Gosub, Register
		SetTimer, Register, %RegisterInterval%
	}
	FileAppend, %A_Now% Script Initial Start `n, %LogFile%
	ScriptStarted := 1
	Sleep, -1
}
Sleep, -1
Return ; }}}

ActivateTableWin: ; {{{
if AutoActivateTableWin
	ActivateTableWin()
Return
ActivateTableWin_via_button:
ActivateTableWin()
Return
ActivateTableWin() {
	Global SpaceG2FAT
	SetTitleMatchMode, 2
	if !SpaceG2FAT {
		WinActivate, Table ahk_class PokerStarsTableFrameClass
		Return
	}
	WinGetTitle, active_win_title, A
	IfInString, active_win_title, Table
		SendInput, {Space} ; Go to 'First Action' Table
	else {
		WinActivate, Table ahk_class PokerStarsTableFrameClass
		WinGetTitle, active_win_title, A
		IfInString, active_win_title, Table
			SendInput, {Space} ; Go to 'First Action' Table
	}
}
Return ; }}}

Register: ; {{{
if AutoRegister
	Register()
Return
SetListClass()
{
	Global ; all variables of this function will be globals
	SetTitleMatchMode, 2
	ControlGet, gh_vis, Visible,, PokerStarsHeaderClass15, ahk_id%rg_LobbyId%
	if gh_vis
		regList := "PokerStarsListClass12"
	else
		regList := "PokerStarsListClass13"
	Sleep, -1
}
Return
Register()
{
	Global ; all variables of this function will be globals
	SetTitleMatchMode, 2
	Register_in_progress := 1
	WinGet, rg_LobbyId, Id, PokerStars Lobby ahk_class #32770
	if !rg_LobbyId {
		GuiControl,, Status, Status: PokerStars Lobby not found
		FileAppend, %A_Now% PokerStars Lobby not found `n, %LogFile%
		Return
	}
	if (ct_Tables_Now >= MaxTables) {
		GuiControl,, Status, Status: Set Full at %ct_Tables_Now% tables_Waiting
		FileAppend, %A_Now% registering: set full %ct_Tables_Now% `n, %LogFile%
		Return
	}
	rg_TimesToReg := MaxTables - ct_Tables_Now 
	if (rg_TimesToReg > MaxTimesToReg) 
		rg_TimesToReg := MaxTimesToReg
	GuiControl,, Status, Status: Registering %rg_TimesToReg%
	FileAppend, %A_Now% registering %rg_TimesToReg% tables_now:%ct_Tables_Now% `n, %LogFile%
	SetListClass()
	ControlSend, %regList%, {PgUp}, ahk_id%rg_LobbyId%
	Loop %rg_TimesToReg%
	{
		Sleep, 1000
		ControlGet, rg_regBtnVis, Visible,, %regButton%, ahk_id%rg_LobbyId%
		if (rg_regBtnVis == 1) {
			GuiControl,, Status, %A_Index%/%rg_TimesToReg% NewRegistration
			FileAppend, %A_Now% reg_NewRegistration %A_Index%/%rg_TimesToReg% `n, %LogFile%
			ControlSend, %regButton%, {Space}, ahk_id%rg_LobbyId%
			ControlSend, %regButton%, {Space}, ahk_id%rg_LobbyId%
		} else {
			ControlGet, rg_unregBtnVis
				      , Visible,, %unregButton%, ahk_id%rg_LobbyId%
			if (rg_unregBtnVis == 1) {
				GuiControl,, Status, %A_Index%/%rg_TimesToReg% RegisteredAlready
				FileAppend, %A_Now% reg_AlreadyRegistered %A_Index%/%rg_TimesToReg% `n, %LogFile%
			} else {
				GuiControl,, Status, %A_Index%/%rg_TimesToReg% NoGameFound
				FileAppend, %A_Now% reg_NoGameFound %A_Index%/%rg_TimesToReg% `n, %LogFile%
			}
		}
		SetListClass()
		ControlSend, %regList%, {NumpadDown}, ahk_id%rg_LobbyId%
		ActivateTableWin() 
	}
	Register_in_progress := 0
	Sleep, -1
}
Return ; }}}

GetRegButtonClass: ; {{{
if AutoGetRegButtonClass
	GetRegButtonClass()
Return
GetRegButtonClassViaButton:
	GetRegButtonClass()
Return
GetRegButtonClass()
{
	Global ; all variables of this function will be globals
	SetTitleMatchMode, 2
	if Register_in_progress
	{
		GuiControl,, Info3, %A_Hour%:%A_Min%:%A_Sec% Register_in_progress_Try_later
		FileAppend, %A_Now% Register_in_progress_Try_later `n, %LogFile%
		Return
	}

	GuiControl,, Info3, %A_Hour%:%A_Min%:%A_Sec% Getting reg btn class Wait 5 seconds
	WinGet, bc_LobbyId, Id, PokerStars Lobby ahk_class #32770
	if !bc_LobbyId
	{
		GuiControl,, Status, Status: PokerStars Lobby not found
		FileAppend, %A_Now% PokerStars Lobby not found `n, %LogFile%
		Return
	}

	AutoRegister_prev := AutoRegister
	AutoRegister := 0
	Sleep, 30
	Sleep, -1

	WinGetPos, bc_x, bc_y, bc_w, bc_h, ahk_id%bc_LobbyId%
	WinMove, ahk_id%bc_LobbyId%,, (-765), 245, 935, 597
	MouseGetPos, bc_mouse_x_init, bc_mouse_y_init
	WinActivate, ahk_id%bc_LobbyId% 
	Sleep, 30
	MouseMove, 815, 525, 0
	MouseGetPos,,,, bc_regButton1
	Click, 815, 525
	Sleep, 30
	MouseMove, bc_mouse_x_init, bc_mouse_y_init, 0
	WinMove, ahk_id%bc_LobbyId%,, bc_x, bc_y, bc_w, bc_h
	StringTrimRight, bc_string1, bc_regButton1, 3
	bc_string := bc_string1
	if (bc_string != "PokerStarsButtonClass")
	{
		FileAppend, %A_Now%:failed_to_get_PokerStarsButtonClass_keep_old `n
				  , %LogFile%
		GuiControl,,Info3, %A_Hour%:%A_Min%:%A_Sec%_keep_old_reg:%regButton%
		GuiControl,,Info4, %A_Hour%:%A_Min%:%A_Sec%_keep_old_unreg:%unregButton%
	} else
	{
		ActivateTableWin()
		Sleep, 5000

		WinGetPos, bc_x, bc_y, bc_w, bc_h, ahk_id%bc_LobbyId%
		WinMove, ahk_id%bc_LobbyId%,, (-765), 245, 935, 597
		MouseGetPos, bc_mouse_x_init, bc_mouse_y_init
		WinActivate, ahk_id%bc_LobbyId% 
		Sleep, 30
		MouseMove, 815, 525, 0
		MouseGetPos,,,, bc_regButton2
		MouseMove, bc_mouse_x_init, bc_mouse_y_init, 0
		WinMove, ahk_id%bc_LobbyId%,, bc_x, bc_y, bc_w, bc_h
		StringTrimRight, bc_string2, bc_regButton2, 3
		bc_string := bc_string2
		if (bc_string != "PokerStarsButtonClass")
		{
			FileAppend, %A_Now%:failed_to_get_PokerStarsButtonClass_keep_old2 `n
					  , %LogFile%
			GuiControl,,Info3
					  , %A_Hour%:%A_Min%:%A_Sec%_keep_old_reg2:%regButton%
			GuiControl,,Info4
					  , %A_Hour%:%A_Min%:%A_Sec%_keep_old_unreg2:%unregButton%
		} else
		{
			StringRight, bc_number1, bc_regButton1, 3
			StringRight, bc_number2, bc_regButton2, 3
			if (bc_number1 == bc_number2)
			{
				FileAppend, %A_Now%:failed_to_get_PokerStarsButtonClass_keep_old3 `n , %LogFile%
				GuiControl,,Info3
					  , %A_Hour%:%A_Min%:%A_Sec%_keep_old_reg2:%regButton%
				GuiControl,,Info4
					  , %A_Hour%:%A_Min%:%A_Sec%_keep_old_unreg2:%unregButton%
			} else
			{
				bc_number := bc_number1 > bc_number2 ? bc_number1 : bc_number2
				regButton := bc_string . bc_number
				unregButton := bc_string . ( bc_number - 2 )
				FileAppend, %A_Now%:reg_unregButton:%regButton%_%unregButton% `n
				      , %LogFile%
				GuiControl,, Info3, %A_Hour%:%A_Min%:%A_Sec%_reg:%regButton%
				GuiControl,, Info4, %A_Hour%:%A_Min%:%A_Sec%_unreg:%unregButton%
			}
		}
	}

	AutoRegister := AutoRegister_prev
	Sleep, -1
	ActivateTableWin()
}
Return ; }}}

UnRegisterAll: ; {{{
AutoRegister:=0
AutoGetRegButtonClass:=0
GuiControl,, Status, Status: Stop Registering
if ScriptStarted
	UnRegisterAll()
else
	GuiControl,, Status, Status: Need to press Submit first
Return 
UnRegisterAll() {
	Global regList
	Global unregAll_selBtn
	Global unregAll_unregBtn
	Global LogFile
	SetTitleMatchMode,2
	WinGet, LobbyId, id, PokerStars Lobby ahk_class #32770
	if !LobbyId
	{
		GuiControl,, Status, Status: PokerStars Lobby not found
		FileAppend, %A_Now% PokerStars Lobby not found `n, %LogFile%
		Return
	}
	SetListClass()
	ControlSend, %regList%, ^r, ahk_id%lobbyid%
	WinWait, Registered In Tournaments ahk_class #32770,, 1
	{
		WinGet, regid, Id, Registered In Tournaments ahk_class #32770
		ControlGet, vis, Visible,, %unregAll_selBtn%, ahk_id%regid%
		if vis {
			ControlSend, %unregAll_selBtn%, {Space}, ahk_id%regid%
			Sleep, 30
			ControlSend, %unregAll_unregBtn%, {Space}, ahk_id%regid%
			Sleep, 30
		}
		WinClose, ahk_id%regid%
	}
	ActivateTableWin()
}
Return ; }}}

AutoClose: ; {{{
if AutoAutoClose
	AutoClose()
Return
AutoClose_via_button:
AutoClose()
Return
AutoClose() 
{
	Global AutoRegister
	Global LogFile
	a_win_was_closed:=0
	SetTitleMatchMode,2
	ifWinExist, Tournament Registration ahk_class #32770 
	{
		WinGet, id1, id, ; Automatically uses the window found above
		ControlGetText, btn_text, PokerStarsButtonClass1, ahk_id%id1%
		if !(btn_text = "OK")
		{
			AutoRegister := 0
			FileAppend
			, %A_Now% Registration not OK _ Stop Registering `n, %LogFile%
			GuiControl,, Info3
			, %A_Hour%:%A_Min%:%A_Sec% Registration not OK _ Stop Registering
		}
		WinGetTitle, title_id1, ahk_id%id1%
		WinClose, ahk_id%id1%
		GuiControl,, Info2, %A_Hour%:%A_Min%:%A_Sec% closed: %title_id1%
		a_win_was_closed:=1
	}
	ifWinExist, PokerStars ahk_class #32770,, Lobby 
	{
		; closes any PokerStars window that pops up, except Lobby
		WinGet, id2, id,
		WinMove, ahk_id%id2%,, A_ScreenWidth, 0
		WinGetTitle, title_id2, ahk_id%id2%
		GuiControl,, Info3, %A_Hour%:%A_Min%:%A_Sec% closed: %title_id2%
		FileAppend, %A_Now% closed_win %title_id2% `n, %LogFile%
		a_win_was_closed:=2
	}
	ifWinExist, News,,
	{
		if a_win_was_closed < 2
		{
			WinGet, id2, id,
			WinMove, ahk_id%id2%,, A_ScreenWidth, 0
			WinGetTitle, title_id2, ahk_id%id2%
			GuiControl,, Info3, %A_Hour%:%A_Min%:%A_Sec% closed: %title_id2%
			FileAppend, %A_Now% closed_win %title_id2% `n, %LogFile%
			a_win_was_closed:=2
		}
	}
	if a_win_was_closed 
		ActivateTableWin()
	if a_win_was_closed = 2
	{
		; saves the image of the non-tournament-registration closed window 
		; to a file, in order to check later
		image_file_name := "ahk_closed_window_" A_Now ".bmp"
		; www.autohotkey.com/forum/viewtopic.php?t=35242
		WinGetPos,,, w, h, ahk_id%id2%
		hDC := Dllcall( "GetDC"
						, UInt, id2 )
		hCDC := Dllcall( "CreateCompatibleDC"
						 , UInt, hDC )
		hCBMP := Dllcall( "CreateCompatibleBitmap"
						  , UInt, hDC
						  , Int, w
						  , Int, h )
		DllCall( "SelectObject"
				 , UInt, hCDC
				 , UInt, hCBMP )
		DllCall( "PrintWindow"
				 , UInt, id2
				 , UInt, hCDC
				 , UInt, 0 )
		DllCall( "BitBlt"
				 , Int, hCDC
				 , Int, 0
				 , Int, 0
				 , Int, w
				 , Int, h
				 , Int, hDC
				 , Int, 0
				 , Int, 0
				 , Int, 0xCC0020 )
		hBM := DllCall( "CopyImage"
						, UInt, hCBMP
						, UInt, 0
						, Int, 0
						, Int, 0
						, UInt, 0x2000 )
		DllCall( "GetObject"
				 , Int, hBM
				 , Int, VarSetCapacity($,84)
				 , UInt, NumPut(0,$,40,"Short") - 42 )
		Numput( VarSetCapacity( BFH, 14, 0) + 40
				, Numput( (NumGet($, 44) + 54)
						  , Numput(0x4D42, BFH) - 2) + 4 )
		hF := DllCall( "CreateFile"
					   , Str, image_file_name
					   , UInt, 2**30
					   , UInt, 2
					   , Int, 0
					   , UInt, 2
					   , Int64, 0 )
		If hF > 0 
		{
			; BITMAPFILEHEADER
			DllCall( "WriteFile"
					 , UInt, hF
					 , UInt, &BFH
					 , UInt, 14
					 , IntP, 0
					 , Int, 0 ) 
			; BITMAPINFOHEADER
			DllCall( "WriteFile"
					 , UInt, hF
					 , UInt, &$ + 24
					 , UInt, 40
					 , IntP, 0
					 , Int, 0 )
			DllCall( "WriteFile"
					 , UInt, hF
					 , UInt,NumGet($, 20)
					 , UInt, NumGet($, 44)
					 , UIntP, BW
					 , Int, 0 )
			DllCall( "CloseHandle"
					 , UInt, hF )
		}
		DllCall( "DeleteObject"
				 , Int, hCBMP )
		DllCall( "ReleaseDC"
				 , Int, id2
				 , Int, hDC )
		DllCall( "DeleteDC"
				 , Int, hCDC )
		WinClose, ahk_id%id2%
	}
}
Return ; }}}

InfoTab: ; {{{ 
; looks at every active table on screen if info tab is selected, once
if AutoInfoTab
	InfoTab()
Return
InfoTab()
{
	Global ; all variables of this function will be globals
	it_found := 0
	SetTitleMatchMode, 2
	it_id := WinExist("A")
	WinGetTitle, it_active_win_title, ahk_id%it_id%
	IfNotInString, it_active_win_title, Table
		Return

	Loop %it_tables_already_clicked_count% {
		it_id_already_clicked := it_tables_already_clicked%A_Index%
		if (it_id = it_id_already_clicked) {
			it_found := 1
			Break
		}
	}
	if it_found
		Return

	WinGetPos,,, it_w, it_h, ahk_id%it_id%
	VarSetCapacity(it_rc, 16)
	DllCall("GetClientRect", "UInt", it_id, "UInt", &it_rc)
	it_client_w := NumGet(it_rc, 8, "Int")
	it_client_h := NumGet(it_rc, 12, "Int")
	VarSetCapacity(it_rc, 0)
	it_win_frame_sides := (it_w - it_client_w) / 2
	it_win_frame_top := it_h - it_client_h - it_win_frame_sides
	it_x := Round(0.244 * it_client_w) + it_win_frame_sides
	it_y := Round(0.77 * it_client_h) + it_win_frame_top
	MouseGetPos, it_mouse_x_init, it_mouse_y_init
	Click %it_x%, %it_y%
	MouseMove, it_mouse_x_init, it_mouse_y_init, 0
	Sleep, -1
	ActivateTableWin()
	it_tables_already_clicked_count  += 1
	it_tables_already_clicked%it_tables_already_clicked_count% := it_id
	Sleep, -1
}
Return ; }}}

InfoTab_via_button: ; {{{ 
; looks at every table if info tab is selected
InfoTab_via_button()
Return
InfoTab_via_button()
{
	activated := 0
	SetTitleMatchMode, 2
	WinGet, TableWindows, List, Table ahk_class PokerStarsTableFrameClass
	if TableWindows = 0
		Return
	Loop %TableWindows% {
		id := TableWindows%A_Index%
		WinGetPos,,, w, h, ahk_id%id%
		VarSetCapacity(rc, 16)
		DllCall("GetClientRect", "UInt", id, "UInt", &rc)
		client_w := NumGet(rc, 8, "Int")
		client_h := NumGet(rc, 12, "Int")
		VarSetCapacity(rc, 0)
		win_frame_sides := (w - client_w) / 2
		win_frame_top := h - client_h - win_frame_sides
		x := Round(0.243 * client_w)
		y := Round(0.77 * client_h)
		x := x + win_frame_sides
		y := y + win_frame_top
		ColorID:=0x003386
		WinActivate, ahk_id%id%
		activated := 1
		PixelSearch,,, x, y, x+1, y+1, ColorID, 20, ahk_id%id%, Fast
		if (ErrorLevel=0) {
			MouseGetPos, mouse_x_init, mouse_y_init
			Click %x%, %y%
			MouseMove, mouse_x_init, mouse_y_init, 0
			Sleep, -1
			activeid := WinExist("A")
			if (id != activeid) {
				; another window might have poped, press key again
				WinActivate, ahk_id%id%
				MouseGetPos, mouse_x_init, mouse_y_init
				Click %x%, %y%
				MouseMove, mouse_x_init, mouse_y_init, 0
				Sleep, -1
			}
		}
	}
	if activated
		ActivateTableWin()
	Sleep, -1
}
Return ; }}}

InfoTab_via_button_active: ; {{{ 
; presses info tab of currently active table window
InfoTab_via_button_active()
Return
InfoTab_via_button_active()
{
	Global LogFile

	; click at center of screen first
	;scr_x := A_ScreenWidth/2
	;scr_y := A_ScreenHeight/2
	;CoordMode, Mouse, Screen
	;MouseGetPos, mouse_x_init, mouse_y_init
	;Click %scr_x%, %scr_y% 
	;FileAppend, %A_Now% clicked_at %scr_x% %scr_y% `n, %LogFile%
	;MouseMove, mouse_x_init, mouse_y_init, 0
	;CoordMode, Mouse, Relative
	;Sleep, -1

	; Click on active window
	Click 10,10
	FileAppend, %A_Now% clicked_at 10 10 `n, %LogFile%

	SetTitleMatchMode, 2
	id := WinExist("A")
	WinGetTitle, win_title, ahk_id%id%
	IfNotInString, win_title, Table
	{
		WinActivate, Table ahk_class PokerStarsTableFrameClass
		WinGetTitle, active_win_title, A
		IfInString, active_win_title, Table
			id := WinExist("A")
		else
			Return
	}
	WinGetPos,,, w, h, ahk_id%id%
	VarSetCapacity(rc, 16)
	DllCall("GetClientRect", "UInt", id, "UInt", &rc)
	client_w := NumGet(rc, 8, "Int")
	client_h := NumGet(rc, 12, "Int")
	VarSetCapacity(rc, 0)
	win_frame_sides := (w - client_w) / 2
	win_frame_top := h - client_h - win_frame_sides
	x := Round(0.243 * client_w) + win_frame_sides
	y := Round(0.77 * client_h) + win_frame_top
	MouseGetPos, mouse_x_init, mouse_y_init
	Click %x%, %y%
	MouseMove, mouse_x_init, mouse_y_init, 0
	FileAppend, %A_Now% info_tab_pressed`n, %LogFile%
	Sleep, -1
	ActivateTableWin()
	Sleep, -1
}
Return ; }}}

SittingOut: ; {{{ 
; looks at every active table on screen if hero is sitting out
if AutoSittingOut
	SittingOut()
Return
SittingOut()
{
	activated := 0
	SetTitleMatchMode, 2
	id := WinExist("A")
	WinGetTitle, active_win_title, ahk_id%id%
	IfNotInString, active_win_title, Table
		Return

	WinGetPos,,, w, h, ahk_id%id%
	VarSetCapacity(rc, 16)
	DllCall("GetClientRect", "UInt", id, "UInt", &rc)
	client_w := NumGet(rc, 8, "Int")
	client_h := NumGet(rc, 12, "Int")
	VarSetCapacity(rc, 0)
	win_frame_sides := (w - client_w) / 2
	win_frame_top := h - client_h - win_frame_sides
	x := Round(0.0143939 * client_w) + win_frame_sides
	y := Round(0.6967033 * client_h) + win_frame_top
	ColorID:=0x000000
	PixelSearch,,, x, y, x+1, y+1, ColorID, 0, ahk_id%id%, Fast
	if (ErrorLevel = 0) {
		x := Round(0.71 * client_w) + win_frame_sides
		y := Round(0.85 * client_h) + win_frame_top
		PixelSearch,,, x, y, x+1, y+1, ColorID, 0, ahk_id%id%, Fast
		if (ErrorLevel = 0) {
			MouseGetPos, mouse_x_init, mouse_y_init
			Click %x%, %y%
			MouseMove, mouse_x_init, mouse_y_init, 0
			GuiControl,, Info4, %A_Hour%:%A_Min%:%A_Sec% pressed i_am_back
			activated := 1
			Sleep, -1
		}
	}
	if activated
		ActivateTableWin()
	Sleep, -1
}
Return ; }}}

SittingOut_hh: ; {{{ 
; looks at hh files if hero is sitting out
if AutoSittingOut_hh
	SittingOut_hh()
Return
SittingOut_hh()
{
	Global ; all variables of this function will be globals
	so_iamback_clicked := 0
	so_tables_to_be_clicked_count := 0
	Loop, %Path_to_hero_HH%, 0 ; {{{
	{
		; look into recent hand history files if hero is sitting out
		so_modification_interval := 5 ;check hh files modified in last X minutes
		so_CharCount := 4000 ; characters to read, starting at end of hh file
		so_time_var := A_Now
		EnvSub, so_time_var, %A_LoopFileTimeModified%, Minutes 
		if (so_time_var > so_modification_interval)
			Continue
		if (A_LoopFileSize < so_CharCount)
			so_CharCount := A_LoopFileSize - 1
		so_BytesToRead := VarSetCapacity(so_HH_String, so_CharCount)
		so_FileName = %A_LoopFileLongPath%
		so_GENERIC_READ = 0x80000000
		so_OPEN_EXISTING = 3
		so_FILE_SHARE_READ = 0x1
		so_FILE_SHARE_WRITE = 0x2
		so_hFile := DllCall("CreateFile"
							, str, so_FileName
							, UInt, so_GENERIC_READ
							, UInt, so_FILE_SHARE_WRITE
							, UInt, 0
							, UInt, so_OPEN_EXISTING
							, Uint, 0, UInt, 0)
		if not so_hFile {
			GuiControl,, Info1, Can't open "%so_FileName%" for reading
			Return
		}
		so_ret_val := DllCall("SetFilePointerEx" 
							  , "Uint", so_hFile 
							  , "Int64", -so_CharCount
							  , "UInt *", "NULL"
							  , "Int", 2)
		if not so_ret_val {
			GuiControl,, Info1, Can't create new file pointer
				Return
		}
		DllCall("ReadFile"
				, UInt, so_hFile
				, str, so_HH_String
				, UInt, so_BytesToRead
				, UIntP, so_BytesActuallyRead 
				, UInt, 0)
		DllCall("CloseHandle", UInt, so_hFile)
		StringGetPos, so_table_pos, so_HH_String, Table ', R
		if (so_table_pos < 0)
			Continue
		so_FoundPos := RegExMatch(so_HH_String, Hero_Name ".*is sitting out"
						 , so_outvar, StartingPosition = %so_table_pos%)
		if (so_FoundPos = 0)
			Continue

		; get tournament/window id and click on "I am back" button
		StringMid, so_tournament_id_string, so_HH_String, %so_table_pos%, 32
		StringSplit, so_tournament_id_split, so_tournament_id_string
		                                   , %A_Space%'%A_Tab%
		so_tournament_id := so_tournament_id_split3
		FileAppend, %A_Now% %so_tournament_id% %so_outvar% `n, %LogFile%
		SetTitleMatchMode,2
		WinGet, so_id, Id,%so_tournament_id% ahk_class PokerStarsTableFrameClass
		if so_id is not Number
			Continue

		so_tables_to_be_clicked_count += 1
		so_tables_to_be_clicked%so_tables_to_be_clicked_count%_id := so_id
		so_tables_to_be_clicked%so_tables_to_be_clicked_count%_trn := so_tournament_id
	} ; }}}
	Loop %so_tables_to_be_clicked_count% { ; {{{
		so_id := so_tables_to_be_clicked%A_Index%_id
		so_trn := so_tables_to_be_clicked%A_Index%_trn
		so_already_clicked := 0
		Loop %so_tables_already_clicked_count% {
			so_stored_id := so_tables_already_clicked%A_Index%_id
			so_stored_time := so_tables_already_clicked%A_Index%_time
			if ((so_stored_id = so_id) && (A_Now - so_stored_time < 100)) {
				so_already_clicked:= 1
				Break
			}
		}
		if so_already_clicked 
			Continue

		WinGetPos,,, so_w, so_h, ahk_id%so_id%
		VarSetCapacity(so_rc, 16)
		DllCall("GetClientRect", "UInt", so_id, "UInt", &so_rc)
		so_client_w := NumGet(so_rc, 8, "Int")
		so_client_h := NumGet(so_rc, 12, "Int")
		VarSetCapacity(so_rc, 0)
		so_win_frame_sides := (so_w - so_client_w) / 2
		so_win_frame_top := so_h - so_client_h - so_win_frame_sides
		so_x := Round(0.71 * so_client_w) + so_win_frame_sides
		so_y := Round(0.85 * so_client_h) + so_win_frame_top
		ControlClick, x%so_x% y%so_y%, ahk_id%so_id%,,,, Pos
		so_iamback_clicked := 1
		GuiControl,, Info4
		           , %A_Hour%:%A_Min%:%A_Sec% i_am_back on %so_trn%
		FileAppend, %A_Now% %so_trn% i_am_back `n, %LogFile%
		so_tables_already_clicked_count += 1
		so_tables_already_clicked%so_tables_already_clicked_count%_id := so_id
		so_tables_already_clicked%so_tables_already_clicked_count%_time := A_Now
		Sleep, -1
	}

	if so_iamback_clicked {
		ActivateTableWin()
	} ; }}}
	Sleep, -1
}
Return ; }}}

SittingOut_via_button: ; {{{ 
; looks at every table if hero is sitting out
SittingOut_via_button()
Return
SittingOut_via_button()
{
	activated := 0
	SetTitleMatchMode, 2
	WinGet, TableWindows, List, Table ahk_class PokerStarsTableFrameClass
	if TableWindows = 0
		Return
	Loop %TableWindows% {
		id := TableWindows%A_Index%
		WinGetPos,,, w, h, ahk_id%id%
		VarSetCapacity(rc, 16)
		DllCall("GetClientRect", "UInt", id, "UInt", &rc)
		client_w := NumGet(rc, 8, "Int")
		client_h := NumGet(rc, 12, "Int")
		VarSetCapacity(rc, 0)
		win_frame_sides := (w - client_w) / 2
		win_frame_top := h - client_h - win_frame_sides
		x := Round(0.0143939 * client_w) + win_frame_sides
		y := Round(0.6967033 * client_h) + win_frame_top
		ColorID:=0x000000
		WinActivate, ahk_id%id%
		activated := 1
		PixelSearch,,, x, y, x+1, y+1, ColorID, 0, ahk_id%id%, Fast
		if (ErrorLevel = 0) {
			x := Round(0.71 * client_w) + win_frame_sides
			y := Round(0.85 * client_h) + win_frame_top
			PixelSearch,,, x, y, x+1, y+1, ColorID, 0, ahk_id%id%, Fast
			if (ErrorLevel = 0) {
				MouseGetPos, mouse_x_init, mouse_y_init
				Click %x%, %y%
				MouseMove, mouse_x_init, mouse_y_init, 0
				Sleep, -1
				GuiControl,, Info4, %A_Hour%:%A_Min%:%A_Sec% pressed i_am_back
				activeid := WinExist("A")
				if (id != activeid) {
					; another window might have poped, press key again
					WinActivate, ahk_id%id%
					MouseGetPos, mouse_x_init, mouse_y_init
					Click %x%, %y%
					MouseMove, mouse_x_init, mouse_y_init, 0
					Sleep, -1
					GuiControl,, Info4
					, %A_Hour%:%A_Min%:%A_Sec% pressed i_am_back2
			   }
			}
		}
	}
	if activated
		ActivateTableWin()
	Sleep, -1
}
Return ; }}}

WindowMaximize: ; {{{
if AutoWindowMaximize
	WindowMaximize()
Return

WindowMaximize_via_button: 
WindowMaximize()
Return

WindowMaximize()
{
	; maximizes all table windows, useful for "Stack Tables" multitabling
	SetTitleMatchMode,2
	wmax := 0
	WinGet, TableWindows, List, Table ahk_class PokerStarsTableFrameClass
	if (TableWindows == 0)
		Return

	if (A_ScreenWidth > 1900) 
	{
		Loop %TableWindows%
		{
			id := TableWindows%A_Index%
			WinGetPos,,, w, h, ahk_id%id%
			if ( w < 1328)
			{
				PostMessage, 0x112, 0xF030,,, ahk_id%id%
				wmax:=1
			}
			Sleep, -1
		}
	} else
	{
		taskbar_h := 0
		WinGetPos,,,, taskbar_h, ahk_class Shell_TrayWnd
		if (taskbar_h > 70)
			taskbar_h := 0

		Loop %TableWindows%
		{
			id := TableWindows%A_Index%
			WinGetPos,,, w, h, ahk_id%id%
			if ((w<A_ScreenWidth AND w<1328) AND (h<(A_ScreenHeight-taskbar_h)))
			{
				PostMessage, 0x112, 0xF030,,, ahk_id%id%
				wmax:=1
			}
			Sleep, -1
		}
	}

	if wmax
		ActivateTableWin()
}
Return ; }}}

CountTables: ; {{{ 
CountTables()
Return
CountTables()
{
	Global ; all variables of this function will be globals
	ct_found := 0
	SetTitleMatchMode,2
	WinGet, ct_Tables_Now, List, Logged ahk_class PokerStarsTableFrameClass
	if (ct_Tables_Now = 0) {
		GuiControl,, Info_Reg
			, Registered now/total: %ct_Tables_Now%/%ct_Tables_SoFar%
		Return
	}
	Loop %ct_Tables_Now% {
		ct_id := ct_Tables_Now%A_Index%
		Loop %ct_tables_already_counted_count% {
			ct_id_already_counted := ct_tables_already_counted%A_Index%
			if (ct_id = ct_id_already_counted) {
				ct_found := 1
				Break
			}
		}
		if ct_found {
			ct_found := 0
			Continue		
		}
		ct_tables_already_counted_count  += 1
		ct_tables_already_counted%ct_tables_already_counted_count% := ct_id
	}
	ct_Tables_SoFar := ct_tables_already_counted_count
	GuiControl,, Info_Reg 
		, Registered now/total: %ct_Tables_Now%/%ct_Tables_SoFar%
}
Return ; }}}

WindowMove: ; {{{
WindowMove()
Return
WindowMove()
{
	Global window_position_to_move
	SetTitleMatchMode,2
	activeid := WinExist("A")
	WinGetTitle, active_win_title, ahk_id%activeid%
	IfInString, active_win_title, Table 
	{
		WinGetPos, X, Y, Width, Height, ahk_id%activeid%
		if (window_position_to_move == "Top_Right")
			WinMove, ahk_id%activeid%,, (A_ScreenWidth - Width), 0
		else if (window_position_to_move == "Bottom_Right")
			WinMove, ahk_id%activeid%,, (A_ScreenWidth - Width)
									  , (A_ScreenHeight - Height)
		else if (window_position_to_move == "Top_Left")
			WinMove, ahk_id%activeid%,, 0, 0
		else if (window_position_to_move == "Bottom_Left")
			WinMove, ahk_id%activeid%,, 0, (A_ScreenHeight - Height)
		else if (window_position_to_move == "Center") {
			WinMove, ahk_id%activeid%,, X, Y, 0.8 * Width, 0.8 * Height
			PostMessage, 0x112, 0xF030,,, ahk_id%activeid%
		}
		ActivateTableWin()
	}
}
Return ; }}}

MoveLobbyInOut: ; {{{
WinGet, LobbyId, id, PokerStars Lobby ahk_class #32770
if !LobbyId
{
	GuiControl,, Status, Status: PokerStars Lobby not found
	FileAppend, %A_Now% PokerStars Lobby not found `n, %LogFile%
	Return
}
WinShow, ahk_id%LobbyId%
WinGetPos, lobby_x, lobby_y,,, ahk_id%LobbyId%
if (( lobby_x > 3*A_ScreenWidth/4 ) OR ( lobby_y > 3*A_ScreenHeight/4 ))
{
	WinMove, ahk_id%LobbyId%,, (A_ScreenWidth/4), 0
	WinActivate, ahk_id%LobbyId%
} else
{
	WinMove, ahk_id%LobbyId%,, (A_ScreenWidth - 35), (A_ScreenHeight - 100)
}
Return ; }}}

; hotkeys {{{
; ^ = Ctrl
; ! = Alt
^!s::
Gosub, StartScript
Return

^!t::
Gosub, UnRegisterAll
Return

^!p::
Gosub, PauseScript
Return

^!o::
Gosub, SittingOut_via_button
Return

^!i::
Gosub, InfoTab_via_button
Return

^!f::
Gosub, InfoTab_via_button_active
Return

^!w::
Gosub, WindowMaximize
Return

^!a::
Gosub, ActivateTableWin
Return

PgUp::
window_position_to_move := "Top_Right"
Gosub, WindowMove
Return

PgDn::
window_position_to_move := "Bottom_Right"
Gosub, WindowMove
Return

Insert::
window_position_to_move := "Top_Left"
Gosub, WindowMove
Return

Delete::
window_position_to_move := "Bottom_Left"
Gosub, WindowMove
Return

Home::
window_position_to_move := "Center"
Gosub, WindowMove
Return

NumpadHome::
ControlSend, Edit1, {Up}, %thisahk%
Gui, Submit, NoHide
Return

NumpadEnd::
ControlSend, Edit1, {Down}, %thisahk%
Gui, Submit, NoHide
Return

^!h::
WinHide, %thisahk%
Return

^!r::
WinShow, %thisahk%
Return

^!l::
Gosub, MoveLobbyInOut
Return

~^!q::
ExitApp
; }}}
castor_ades7 is offline   Reply With Quote
Old 08-02-2015, 10:41 AM   #1085
Chief0r
stranger
 
Join Date: Aug 2015
Posts: 2
Re: AHK script:Stars Filtered SNG Opener

Hi, after like 3 30minutes session with this AHK script I always get this error. This happens every day. Rebooting and stuff doesn't help anything.



Does anyone know how to fix this?
Thanks in advance.
Chief0r is offline   Reply With Quote
Old 08-02-2015, 12:54 PM   #1086
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

Chief0r, either add
Code:
#MaxMem 300
(or more (mbs), depending on the size of pokerstars.log.0 file) at the script start or try using Autohotkey basic http://www.autohotkey.com/download/A...05_Install.exe or delete pokerstars.log.0 file when it grows big - you can automize it by inserting
Code:
filedelete,%logfile%
line right after
Code:
ddlist3:=ddlist3 . 9999 . "|"
, log file will be deleted on every script start then.
Max1mums is offline   Reply With Quote
Old 08-02-2015, 01:17 PM   #1087
Chief0r
stranger
 
Join Date: Aug 2015
Posts: 2
Re: AHK script:Stars Filtered SNG Opener

Thanks a lot. It looks like it worked.
Chief0r is offline   Reply With Quote
Old 08-22-2015, 11:11 PM   #1088
Forfail
enthusiast
 
Join Date: Jan 2014
Location: United Kingdom
Posts: 68
Re: AHK script:Stars Filtered SNG Opener

Does the latest script still work?
For me it just goes on the waiting tab.

Also:

;;;;;;;;;;;SET YOUR pokerstars.log.0 file path below;;;;;;;;;;;;;;;
;;;;;;;;;;;eg: logfile:="c:\Program Files\PokerStars\pokerstars.log.0"
logfile:= pspath . "pokerstars.log.0" ;<-

I only have to change

eg: logfile:="this here"
logfile:= pspath . "pokerstars.log.0" ;<-

?
Forfail is offline   Reply With Quote
Old 08-23-2015, 06:02 AM   #1089
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

Forfail, it does work, the latest version can be found in post №1079 here, the script should be run as admin, you need to replace this line
Code:
logfile:= pspath . "pokerstars.log.0" ;<-
with your path,
Code:
logfile:="your path"
Max1mums is offline   Reply With Quote
Old 08-23-2015, 07:21 AM   #1090
Forfail
enthusiast
 
Join Date: Jan 2014
Location: United Kingdom
Posts: 68
Re: AHK script:Stars Filtered SNG Opener

Sorry i need some further assistance :S

I Reinstalled Pokerstars, since it was messed up due the EU change.

Copied the Code of the script, added my path, opened Pokerstas and afterwards the script as admin.
Filtered SnG's.
UNchecked "Auto Open SnG Lobby" in the Settings.
Have the Lobby open and do "Submit+Run"

But it just Hops from "Registering" to "Waiting" without registering any.

Maybe you can find my failure somewhere on the screen below?

Forfail is offline   Reply With Quote
Old 08-23-2015, 07:35 AM   #1091
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

Forfail, it is admin privileges issue usually, try compiling the script to .exe and running that .exe as admin then. You can also try using this version
Code:
; Author:         Everlong@2p2 Code assembled from misc sources, thanks to _dave_, chris228, finnisher
; v.4.01c
; added: PS 7 support
; 4.0x version fixed by Max1mums 
#NoEnv
#SingleInstance, Force
#Maxmem 300
SendMode Input
SetWorkingDir %A_ScriptDir%
setwindelay,-1
setcontroldelay,-1
SetBatchLines, -1
SetTitleMatchMode, 2
SetTimer, register, off
SetTimer, safeguard, off
SetTimer, numcheck, 75
StringTrimRight, thisahk, A_ScriptName, 4
onexit,exitsub
IniRead, pspath, %thisahk%.ini, Settings, path


;;;;;;;;;;;SET YOUR pokerstars.log.0 file path below;;;;;;;;;;;;;;;
;;;;;;;;;;;eg: logfile:="c:\Program Files\PokerStars\pokerstars.log.0"
logfile:= pspath . "pokerstars.log.0" ;<-


IfNotExist,%logfile%
{
Loop, %A_ProgramFiles%\* , 2
{
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
}
IfNotExist,%logfile%
Loop, %A_AppData%\* , 2
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
IfNotExist,%logfile%
{
StringReplace,logfile,A_AppData,Roaming,Local
Loop, %logfile%\* , 2
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
}
}
IfNotExist,%logfile%
{
logfile:= pspath . "pokerstars.log.0"
;IfNotExist,%logfile%
;msgbox, PokerStars.log.0 file path is probably incorrect, recheck the configuration
}
IniRead, Targetnum, %thisahk%.ini, Settings, Targetnum
if Targetnum is not number
Targetnum:=0
;==============================================================
RegSofar=0
OpenTables=0
trows=17
SysGet,mon, MonitorworkArea
fivesec=0
ft:=0
two=0
ddlist4=Off|
ddlist5=Off|
ddlist6=Off|
ddlist7=Off|
LobbyList=Default|Black|
ddlist2:=ddlist2 . 1 . "|"
ddlist2:=ddlist2 . 2 . "|"
Loop 100
{
two:=two+2
ddlist3:=ddlist3 . two . "|"
ddlist:=ddlist . A_index . "|"
If (A_index<51)
{
fivesec:=fivesec+5
ddlist2:=ddlist2 . fivesec . "|"
ddlist6:=ddlist6 . fivesec . "|"
If (A_index<22)
{
ddlist7:=ddlist7 . A_Index . "|"
If (A_index<16)
{
ddlist4:=ddlist4 . A_index . "|"
}
}
}
else
{
ft:=ft+15
ddlist5:=ddlist5 . ft . "|"
}
}
ddlist3:=ddlist3 . 9999 . "|"
Gosub, deletelog
Gosub, BuildGui
Return
;==============================================================
;==============================================================

BuildGui:
Gui, color, white
Gui, font, cOlive
Gui, add, tab, h340 w240, General|Advanced Settings
Gui, add, text, , Auto-register
Gui, add, Checkbox, yp xp+80 Check3 Checked-1 vRegister
Gui, add, text, yp xp+30, Reg. next if full?
Gui, add, Checkbox, yp xp+80 VAutoifFull


Gui, add, text,xp-190 yp+30 , Register every (sec):
Gui, add, DropDownList, w50 yp-5 xp+140  vInterval1, %ddlist2%
Gui, add, text, xp-140 yp+30, No of SNG:s to keep open:
Gui, add, DropDownList, w50 yp-5 xp+140 vKeepOpen , %ddlist%
Gui, add, text,xp-140 yp+30, Limit total SNG:s to:
Gui, add, DropDownList, w50 yp-5 xp+140 vTotalLimit , %ddlist3%
Gui, add, text,xp-140 yp+30, Limit total time to (min):
Gui, add, DropDownList, w50 yp-5 xp+140 vLimitTime , %ddlist5%

Gui, add, text, xp-140 yp+30 cred vcdown w200
Gui, add, text, xp  yp+30 w200 vRegSofar, SNG:s registered so far:
Gui, add, text,  w200 vOpenTables, Tables open/waiting:
Gui, add, text, w200 cRed vStatus, Status: Idle
Gui, add, Button, w68 ggetgui, &Submit+Run
Gui, add, text, xp+72 yp+5, (Autosaves your settings)
Gui, Add, Button, Disabled xp-72 yp+20 w48 h20 Center , &Resume
Gui, Add, Button, Disabled  w45 h20 yp xp+48 Center , &Pause
Gui, Add, Button, w80 h20 yp xp+45 Center globbyrestore, &Lobby restore
Gui, tab, 2

Gui, add, Text, x25 y65 , Lobby Theme:
Gui, add, DropDownList, w65 yp-5 xp+140 vLobby, %LobbyList%
Gui, add, text,xp-140 yp+30 , Close lobbies every (sec):
Gui, add, DropDownList, w50 yp-5 xp+140  vCloseInterv, %ddlist6%
Gui, add, text, xp-140 yp+18 , (manually Close with ctrl+e)
Gui, add, text, yp+30, Disable if no user Input (min):
Gui, add, DropDownList, w50 yp-5 xp+140 vGuardtimer Choose1 , %ddlist4%
Gui, add, text, xp-140 yp+30 ,Batch-register?
Gui, add, Checkbox,yp xp+140 vBatchReg
Gui, add, text, yp+20 xp-140 ,SetReg* mode?
Gui, add, Checkbox,yp xp+140 vSetReg
Gui, add, text, yp+20 xp-140 ,Minimize lobby?
Gui, add, Checkbox,yp xp+140 vMinlob
Gui, add, Text, xp-140 yp+30, Times to scroll down:
Gui, add, DropDownList, w50 yp-5 xp+140 vscrldwn, %ddlist7%
Gui, add, Text, xp-140 yp+25, Always start at top of lobby?
Gui, add, Checkbox, yp xp+140 vTopReturn
Gui, show, w256, %thisahk%
WinGetPos, x, y, w, h, SFSO
;x:=monRight-w
;y:=monBottom-h
x:=monLeft
y:=monTop
Gosub, GetIni
Gui, show, x%x% y%y%, %thisahk%
Return

deletelog:
ifwinnotexist,ahk_class PokerStarsTableFrameClass
filedelete,%logfile%
return

getgui:
GuiControl,, Register, -1
Register = 1
Gui, Submit, NoHide
displayedTime=
If (lobby="Default")
{
regButton:="PokerStarsButtonClass10"
}
Else If (lobby="Black" or lobby="Custom*")
{
regButton:="PokerStarsButtonClass10"
}
PS6list=PokerStarsListClass3
PS7list1=PokerStarsListClass13
PS7list2=PokerStarsListClass12
Gosub, MakeIni
PausedTime:=LimitTime
Gosub, TimeLimit
interval:=interval1*1000
If interval is not Number
interval=off
If guardtimer is not Number
{
SetTimer, safeguard, off
}
Else
{
killtime:=guardtimer*60000
SetTimer, safeguard, 1000
}
if CloseInterv is not number
SetTimer, NukeLobbies, off
else
{
lobclose:=CloseInterv*1000
SetTimer, NukeLobbies, %lobclose%
}
register=1
sleep,-1
Gosub, ButtonResume
Return

Safeguard:
If (A_TimeIdle > killtime)
{
Gosub, ButtonPause
GuiControl, , cdown, Stopped  due to inactivity!!! %displayedTime%
}
Return

TimeLimit:
If LimitTime is Number
{
allowedMinutes := LimitTime
endTime := A_Now
endTime += %allowedMinutes%, Minutes
SetTimer, CountDown, 1000
}
Else
{
SetTimer, CountDown, off
sleep,-1
GuiControl, , cdown, Time Limit off
}
Return

Countdown:
remainingTime := endTime
EnvSub remainingTime, %A_Now%, Seconds
m := remainingTime // 60
s := Mod(remainingTime, 60)
displayedTime := Format3Digits(m) ":" Format2Digits(s)
GuiControl, , cdown, Running another (mm:ss): %displayedTime%
If (A_now > endTime)
{
SetTimer, Countdown, off
Gosub, ButtonPause
GuiControl, , cdown, Time Limit reached.
}
Return

GuiClose:
Gui, Submit
Gosub, MakeIni
ExitApp
Return

ButtonResume:
Gui, Submit, NoHide
GuiControl, Disable, &Resume
GuiControl, Enable, &Pause
if LimitTime is Number
If PausedTime is Number
LimitTime:=PausedTime
Gosub, TimeLimit
GuiControl, , Register, -1
Register:=1
SetTitleMatchMode, 2
WinGet, LobbyID, id, PokerStars Lobby,,Tournament
wingettitle,lobbytitle,ahk_id%LobbyID%
if !instr(lobbytitle,"Logged In")>0
{
WinGet,ctrls,ControlList,ahk_id%LobbyID%
Loop,Parse,ctrls,`n
{
 controlgettext,text,%A_LoopField%,ahk_id%LobbyID%
 ControlGet, v, Visible, , %A_LoopField%, ahk_id%LobbyID%
 if (text="Register") && v
 regButton:=A_LoopField
}
}
settimer, AutoReg,37
OpenTables:=0
tables=
OpenTables:=CountTourneys(1)
Gosub,Register
SetTimer, Register, %Interval%
sleep,-1
Return

ButtonPause:
Critical
Gui, Submit, NoHide
if LimitTime is Number
PausedTime:=remainingTime/60
Register:=0
settimer, AutoReg,off
SetTimer, Countdown, off
SetTimer, Register, off
GuiControl, Disable, Pause
GuiControl, Enable, Resume
GuiControl, , Register, 0
GuiControl, , cdown, Manually Paused %displayedTime%
GuiControl, , Status, Status: Waiting ;TEST
Return

Register:
SetTitleMatchMode, 2
WinGet, LobbyID, id, PokerStars Lobby,,Tournament
If !LobbyID
{
Gosub, ButtonPause
GuiControl,, Status, Status: PokerStars Lobby not found
Gui, show, NoActivate, %thisahk%
Return
}
If (TopReturn=1)
{
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
ControlSend, %list%, {NumpadUp 20}, ahk_id%lobbyid%
}
WinGet, PhysicalTables, list,Table ahk_class PokerStarsTableFrameClass
If PhysicalTables is not Number
PhysicalTables:=0
If (PhysicalTables >= KeepOpen)
{
GuiControl,, Status, Set Full waiting
Return
}
OpenTables:=CountTourneys()
If OpenTables is not Number
OpenTables:=0
GuiControl, , OpenTables, Tables open/waiting: %OpenTables%
GuiControl, , RegSofar, SNG:s registered so far: %RegSofar%
If (RegSofar >= TotalLimit)
{
Gosub, ButtonPause
GuiControl, , cdown, SNG Total Limit reached
GuiControl, , Status, Status: Idle ;TEST
Return
}
If (OpenTables >= TotalLimit)
{
Gosub, ButtonPause
GuiControl, , cdown, SNG Total Limit reached
GuiControl, , Status, Status: Idle ;TEST
Return
}
If (OpenTables>=KeepOpen)
{
GuiControl, , OpenTables, Tables open/waiting: %OpenTables% (Set full)
GuiControl, , Status, Status: Waiting ;TEST
Return
}
Else
{
If (BatchReg=1)
{
Times:= KeepOpen - OpenTables
RegSNGexec(LobbyID, Times, scrldwn)
}
Else
{
RegSNGexec(LobbyID, 1, scrldwn)
}
}
Return

MakeIni:
IniWrite, %AutoIfFull%, %thisahk%.ini, Settings, AutoIfFull
IniWrite, %TopReturn%, %thisahk%.ini, Settings, TopReturn
IniWrite, %scrldwn%, %thisahk%.ini, Settings, scrldwn
IniWrite, %Lobby%, %thisahk%.ini, Settings, Lobby
IniWrite, %BatchReg%, %thisahk%.ini, Settings, BatchReg
IniWrite, %Setreg%, %thisahk%.ini, Settings, SetReg
IniWrite, %Minlob%, %thisahk%.ini, Settings, MinLob
IniWrite, %Interval1%, %thisahk%.ini, Settings, Interval1
IniWrite, %CloseInterv%, %thisahk%.ini, Settings, CloseInterv
IniWrite, %KeepOpen%, %thisahk%.ini, Settings, KeepOpen
IniWrite, %TotalLimit%, %thisahk%.ini, Settings, TotalLimit
IniWrite, %GuardTimer%, %thisahk%.ini, Settings, GuardTimer
IniWrite, %LimitTime%, %thisahk%.ini, Settings, LimitTime
Return

GetIni:
IfExist, %thisahk%.ini
{
IniRead, AutoIfFull, %thisahk%.ini, Settings, AutoIfFull
IniRead, TopReturn, %thisahk%.ini, Settings, TopReturn,0
IniRead, scrldwn, %thisahk%.ini, Settings, scrldwn
IniRead, Lobby, %thisahk%.ini, Settings, Lobby
IniRead, BatchReg, %thisahk%.ini, Settings, BatchReg
IniRead, SetReg, %thisahk%.ini, Settings, SetReg, 1
IniRead, MinLob, %thisahk%.ini, Settings, MinLob, 0
IniRead, Interval1, %thisahk%.ini, Settings, Interval1
IniRead, CloseInterv, %thisahk%.ini, Settings, CloseInterv
IniRead, KeepOpen, %thisahk%.ini, Settings, KeepOpen
IniRead, TotalLimit, %thisahk%.ini, Settings, TotalLimit
IniRead, GuardTimer, %thisahk%.ini, Settings, GuardTimer, Off
IniRead, LimitTime, %thisahk%.ini, Settings, LimitTime, Off
GuiControl, , AutoIfFull, %AutoIfFull%
StringReplace, ddlist7, ddlist7, %scrldwn%, %scrldwn%|
GuiControl, , scrldwn, |%ddlist7%
StringReplace, LobbyList, LobbyList, %Lobby%, %Lobby%|
GuiControl, , Lobby, |%LobbyList%
GuiControl, , BatchReg, %BatchReg%
GuiControl, , SetReg, %SetReg%
GuiControl, , MinLob, %MinLob%
GuiControl, , TopReturn, %TopReturn%
StringReplace, ddlist2, ddlist2, %interval1%, %Interval1%|
GuiControl, , Interval1, |%ddlist2%
StringReplace, ddlist6, ddlist6, %CloseInterv%, %CloseInterv%|
GuiControl, , CloseInterv, |%ddlist6%
StringReplace, ddlist, ddlist, %KeepOpen%, %KeepOpen%|
GuiControl, , KeepOpen, |%ddlist%
StringReplace, ddlist3, ddlist3, %TotalLimit%, %TotalLimit%|,
GuiControl, , TotalLimit, |%ddlist3%
StringReplace, ddlist4, ddlist4, %GuardTimer%, %GuardTimer%|
GuiControl, , GuardTimer, |%ddlist4%
StringReplace, ddlist5, ddlist5, %LimitTime%, %LimitTime%|
GuiControl, , LimitTime, |%ddlist5%
}
Return

#e::
gosub,NukeLobbies
Return

NukeLobbies:
SetTitleMatchMode, 2
GroupAdd, TLobbies, Lobby ahk_class PokerStarsTableFrameClass,,, PokerStars Lobby
GroupClose, TLobbies, A
Return

#H::
WinHide, %thisahk%
return

#S::
WinShow, %thisahk%
return

F11::
TmpSetReg:=SetReg
SetReg=0
CountTourneys()
SetReg:=TmpSetReg
Return
ManualCount:
CountTourneys()
Return

FindLobby:
If (%A_GuiEvent% = DoubleClick)
{
LV_GetText(TournId,A_EventInfo)
TournID:=SubStr(TournID, 1,10)
WinMenuSelectItem, PokerStars Lobby,, Requests, Find a Tournament
WinWait, Find Tournament ahk_class #32770, , 10
WinGet, fat, id
ControlFocus, Edit1, ahk_id%fat%
Sleep, -1
ControlSend, Edit1, %TournId%, ahk_id%fat%
ControlFocus, Button1, ahk_id%fat%
Sleep, -1
ControlSend, Button1, {Space}, ahk_id%fat%
}
Return

Format2Digits(_val) {
_val :=Round(_val) + 100
StringRight _val, _val, 2
Return _val
}

Format3Digits(_val) {
_val :=Round(_val) + 1000
StringRight _val, _val, 3
StringTrimRight, FirstZ, _val, 2
If FirstZ=0
{
StringTrimLeft, _val, _val, 1
}
StringTrimRight, FirstZ, _val, 1
If FirstZ=0
{
StringTrimLeft, _val, _val, 1
}
Return _val
}
LobbyRestore:
WinGet, lobbyid, id, PokerStars Lobby
WinShow, ahk_id%lobbyid%
WinMove, ahk_id%lobbyid%,,0,0
return

RegSNGexec(id, times, scrldwn) {
global RegSofar
global Register
global OpenTables
global KeepOpen
global TotalLimit
global RegButton
global AutoIfFull
global list,lobbytitle,lobbyid,PS7list1,PS7list2,PS6list

Loop %times%
{
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
ControlSend, %list%, {NumpadUp 20}, ahk_id%id%
If (OpenTables >= KeepOpen)
Exit
If (OpenTables >= TotalLimit)
Exit
ClickdirectionCount=0
direction=0
GuiControl, , Status, Status: Registering ;TEST
Loop 16
{
If (Register=0)
{
GuiControl, , Status, Status: Idle ;TEST
Exit
}
ControlGet, v, Visible, , %regButton%, ahk_id%id%
If (v = 0)
If (scrldwn!="Off")
{
If (ClickdirectionCount<scrldwn) {
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
If (direction=0) {
ControlSend, %list%, {NumpadDown}, ahk_id%id%
} Else {
ControlSend, %list%, {NumpadUp}, ahk_id%id%
}
ClickdirectionCount:=ClickdirectionCount+1
} Else {
If (direction=0) {
direction:=1
} Else {
direction:=0
}
ClickdirectionCount:=0
}
Sleep,1000
}
If ( v = 1 ) {
wingetclass,class,A
SetTitleMatchMode, 2
ControlSend, %regButton%, {Space}, ahk_id%id%
ControlSend, %regButton%, {Space}, ahk_id%id%
WinWait, Tournament Registration ahk_class #32770,,1
{
WinGet, regid, id, Tournament Registration ahk_class #32770
wingettext,text,
if instr(text,"Confirm")>0
{
autobtn=PokerStarsButtonClass3
okbtn=PokerStarsButtonClass2
}
else
{
autobtn=Button2
okbtn=PokerStarsButtonClass1
}
controlget,vis,visible,,%autobtn%,ahk_id%regid%
if vis
{
 If (AutoIfFull = 1)
 {
 Control,Check,,%autobtn%, ahk_id%regid%
 ;ControlSend, %autobtn%, {Space}, ahk_id%regid%
 Sleep, 30
 }
ControlSend, %okbtn%, {Space}, ahk_id%regid%
}
}
sleep,30
WinWait, Tournament Registration ahk_class #32770,,1
{
WinGet, regid, id, Tournament Registration ahk_class #32770
controlget,vis,visible,,Button2,ahk_id%regid%
controlget,vis1,visible,,PokerStarsButtonClass3,ahk_id%regid%
if !vis && !vis1
winclose,ahk_id%regid%
;ControlSend, PokerStarsButtonClass1, {Space}, ahk_id%regid%
}
GuiControl, , Status, Status: Waiting ;TEST
;if class=PokerStarsTableFrameClass
;winactivate,ahk_class PokerStarsTableFrameClass
Break
}
}
}
}
return

AutoReg:
AutoReg()
return

AutoReg()
{
global AutoIfFull
setwindelay,-1
settitlematchmode,2
IfWinExist, Tournament Registration ahk_class #32770
{
wingettext,text,
if instr(text,"Confirm")>0
{
autobtn=PokerStarsButtonClass3
okbtn=PokerStarsButtonClass2
}
else
{
autobtn=Button2
okbtn=PokerStarsButtonClass1
}
winget,id,id,
controlget,vis,visible,,%autobtn%,ahk_id%id%
if vis
{
If (AutoIfFull = 1)
{
ControlFocus, %autobtn%, ahk_id%id%
Sleep, -1
ControlSend, %autobtn%, {Space}, ahk_id%id%
Sleep, 30
}
ControlSend, %okbtn%, {Space}, ahk_id%id%
}
else
ControlSend, %okbtn%, {Space}, ahk_id%id%
;winclose,ahk_id%id%
}
}
return

CountTourneys(mode=0) {
global logfile,RegSofar,regtourneys,tables,Targetnum
If (SetReg=1)
Return 0
log := CheckFile(logfile,mode)
Loop, Parse, log, `n,
{
tnumber=
if (instr(A_loopField,"RT add")>0)
{
 tnumber:=RegExReplace(A_loopField, "RT add ", "")
 if instr(tnumber,A_space)
 StringLeft, tnumber, tnumber, instr(tnumber,A_space)-1
 tnumber:=RegExReplace(tnumber, "[`n,`r]", "")
 tnumber:=Floor(tnumber)
 if !instr(tables,tnumber) && ((Targetnum=0) || ((Targetnum>0) && (tnumber>=(Targetnum-50000)) && (tnumber<(Targetnum+100000))))
 listadd(tables,tnumber)
}
else
If (instr(A_loopField,"RT remove")>0)
{
 stringtrimleft,tnumber,A_loopField,instr(A_loopField,A_space,"",0)
 tnumber:=RegExReplace(tnumber, "[`n,`r]", "")
 tnumber:=Floor(tnumber)
 if instr(tables,tnumber)
 listDelItem(tables,tnumber)
}
}
log=
tcount:=0
Loop, Parse, tables, -,
{
if A_Loopfield is number
{
tcount++
if !(instr(regtourneys,A_Loopfield)>0)
{
listadd(regtourneys,A_Loopfield)
if mode=0
RegSofar++
}
}
}
return tcount
}

numcheck:
winget,nlist,list,Table ahk_class PokerStarsTableFrameClass
loop %nlist%
{
id:=nlist%A_index%
wingettitle,title,ahk_id%id%
stringtrimleft,num,title,instr(title,A_space,"",instr(title,"Tournament"))
stringleft,num,num,instr(num,A_space)-1
if num is not number
num:=0
if (num>targetnum)
targetnum:=num
StringReplace,targetnum,targetnum,A_space,,All
StringReplace,targetnum,targetnum,`n,,All
StringReplace,targetnum,targetnum,`r,,All
}
return

Ansi2Unicode(sString, CP = 0)
{
	  nSize := DllCall("MultiByteToWideChar"
		, "Uint", CP
		, "Uint", 0
		, "Uint", &sString
		, "int",  -1
		, "Uint", 0
		, "int",  0)

	VarSetCapacity(wString, nSize * 2)

	DllCall("MultiByteToWideChar"
		, "Uint", CP
		, "Uint", 0
		, "Uint", &sString
		, "int",  -1
		, "Uint", &wString
		, "int",  nSize)
return wstring
}

ReplaceByte( hayStackAddr, hayStackSize, ByteFrom=0, ByteTo=1, StartOffset=0, NumReps=-1)
{	Static fun
	IfEqual,fun,
	{
		h=
		( LTrim join
			5589E553515256579C8B4D0C8B451831D229C17E25837D1C00741F8B7D0801C70FB6451
			00FB65D14FCF2AE750D885FFF42FF4D1C740409C975EF9D89D05F5E5A595BC9C21800
		)
		VarSetCapacity(fun,StrLen(h)//2)
		Loop % StrLen(h)//2
			NumPut("0x" . SubStr(h,2*A_Index-1,2), fun, A_Index-1, "Char")
	}
	Return DllCall(&fun
		, "uint",haystackAddr, "uint",hayStackSize, "short",ByteFrom, "short",ByteTo
		, "uint",StartOffset, "int",NumReps)
}

CheckFile(File, mode=0) {
   ; THX Sean for File.ahk : http://www.autohotkey.com/forum/post-124759.html
   Static CF := ""   ; Current File
   Static FP := 0    ; File Pointer
   Static OPEN_EXISTING := 3
   Static GENERIC_READ := 0x80000000
   Static FILE_SHARE_READ := 1
   Static FILE_SHARE_WRITE := 2
   Static FILE_SHARE_DELETE := 4
   Static FILE_BEGIN := 0
   BatchLines := A_BatchLines
   SetBatchLines, -1
   If (File != CF) {
      CF := File
      FP := 0
   }
   hFile := DllCall("CreateFile"
                  , "Str",  File
                  , "Uint", GENERIC_READ
                  , "Uint", FILE_SHARE_READ|FILE_SHARE_WRITE|FILE_SHARE_DELETE
                  , "Uint", 0
                  , "Uint", OPEN_EXISTING
                  , "Uint", 0
                  , "Uint", 0)
   If (!hFile) {
      CF := ""
      FP := 0
      SetBatchLines, %BatchLines%
      Return False
   }
   DllCall("GetFileSizeEx"
         , "Uint",   hFile
         , "Int64P", nSize)
   if mode=1
   FP:=1
   If (FP = 0 Or nSize <= FP) {
      FP := nSize
      SetBatchLines, %BatchLines%
      DllCall("CloseHandle", "Uint", hFile) ; close file
     Return False
   }
   DllCall("SetFilePointerEx"
         , "Uint",  hFile
         , "Int64", FP
         , "Uint",  0
         , "Uint",  FILE_BEGIN)
   VarSetCapacity(Tail, Length := nSize - FP, 0)
   DllCall("ReadFile"
         , "Uint",  hFile
         , "Str",   Tail
         , "Uint",  Length
         , "UintP", Length
         , "Uint",  0)
   DllCall("CloseHandle", "Uint", hFile)
   FP := nSize
   if A_IsUnicode
   {
   tail:=Ansi2Unicode(tail)
   Length:=strlen(tail)
   }
   ReplaceByte( &Tail, Length)
   VarSetCapacity(Tail, -1)
   SetBatchLines, %BatchLines%
   Return Tail
}

listAdd( byRef list, item, del="-" ) {
  list:=( list!="" ? ( list . del . item ) : item )
  return list
}

listDelItem( byRef list, item, del="-") {
  ifEqual, item,, return list
  list:=del . list . del
  StringReplace, list, list, %del%%item%%del%,%del%,All
  StringTrimLeft, list, list, 1
  StringTrimRight, list, list, 1
  return list
}

lobbyStars() {
SetTitleMatchMode 2
WinGet, id, id, PokerStars Lobby ahk_class #32770,,Tournament
Return id
}

;~^!Q::
;ExitApp

exitsub:
if Targetnum>0
IniWrite, %Targetnum%, %thisahk%.ini, Settings, Targetnum
Gosub, deletelog
exitapp
return
Max1mums is offline   Reply With Quote
Old 08-23-2015, 07:47 AM   #1092
Forfail
enthusiast
 
Join Date: Jan 2014
Location: United Kingdom
Posts: 68
Re: AHK script:Stars Filtered SNG Opener

Thank you!!!
Compiling to an .exe file fixed it. :-)
Forfail is offline   Reply With Quote
Old 09-01-2015, 01:41 PM   #1093
Zelo
stranger
 
Join Date: Sep 2015
Posts: 3
Re: AHK script:Stars Filtered SNG Opener

Hello, I am using this script, but does not stop the number of tables that I imposed, continues to register. How can I fix? Thank you.


Quote:
Originally Posted by Max1mums View Post
Forfail, it is admin privileges issue usually, try compiling the script to .exe and running that .exe as admin then. You can also try using this version
Code:
; Author:         Everlong@2p2 Code assembled from misc sources, thanks to _dave_, chris228, finnisher
; v.4.01c
; added: PS 7 support
; 4.0x version fixed by Max1mums 
#NoEnv
#SingleInstance, Force
#Maxmem 300
SendMode Input
SetWorkingDir %A_ScriptDir%
setwindelay,-1
setcontroldelay,-1
SetBatchLines, -1
SetTitleMatchMode, 2
SetTimer, register, off
SetTimer, safeguard, off
SetTimer, numcheck, 75
StringTrimRight, thisahk, A_ScriptName, 4
onexit,exitsub
IniRead, pspath, %thisahk%.ini, Settings, path


;;;;;;;;;;;SET YOUR pokerstars.log.0 file path below;;;;;;;;;;;;;;;
;;;;;;;;;;;eg: logfile:="c:\Program Files\PokerStars\pokerstars.log.0"
logfile:= pspath . "pokerstars.log.0" ;<-


IfNotExist,%logfile%
{
Loop, %A_ProgramFiles%\* , 2
{
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
}
IfNotExist,%logfile%
Loop, %A_AppData%\* , 2
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
IfNotExist,%logfile%
{
StringReplace,logfile,A_AppData,Roaming,Local
Loop, %logfile%\* , 2
if instr(A_LoopFileName,"PokerStars")>0
logfile:=A_LoopFileFullPath . "\PokerStars.log.0"
}
}
IfNotExist,%logfile%
{
logfile:= pspath . "pokerstars.log.0"
;IfNotExist,%logfile%
;msgbox, PokerStars.log.0 file path is probably incorrect, recheck the configuration
}
IniRead, Targetnum, %thisahk%.ini, Settings, Targetnum
if Targetnum is not number
Targetnum:=0
;==============================================================
RegSofar=0
OpenTables=0
trows=17
SysGet,mon, MonitorworkArea
fivesec=0
ft:=0
two=0
ddlist4=Off|
ddlist5=Off|
ddlist6=Off|
ddlist7=Off|
LobbyList=Default|Black|
ddlist2:=ddlist2 . 1 . "|"
ddlist2:=ddlist2 . 2 . "|"
Loop 100
{
two:=two+2
ddlist3:=ddlist3 . two . "|"
ddlist:=ddlist . A_index . "|"
If (A_index<51)
{
fivesec:=fivesec+5
ddlist2:=ddlist2 . fivesec . "|"
ddlist6:=ddlist6 . fivesec . "|"
If (A_index<22)
{
ddlist7:=ddlist7 . A_Index . "|"
If (A_index<16)
{
ddlist4:=ddlist4 . A_index . "|"
}
}
}
else
{
ft:=ft+15
ddlist5:=ddlist5 . ft . "|"
}
}
ddlist3:=ddlist3 . 9999 . "|"
Gosub, deletelog
Gosub, BuildGui
Return
;==============================================================
;==============================================================

BuildGui:
Gui, color, white
Gui, font, cOlive
Gui, add, tab, h340 w240, General|Advanced Settings
Gui, add, text, , Auto-register
Gui, add, Checkbox, yp xp+80 Check3 Checked-1 vRegister
Gui, add, text, yp xp+30, Reg. next if full?
Gui, add, Checkbox, yp xp+80 VAutoifFull


Gui, add, text,xp-190 yp+30 , Register every (sec):
Gui, add, DropDownList, w50 yp-5 xp+140  vInterval1, %ddlist2%
Gui, add, text, xp-140 yp+30, No of SNG:s to keep open:
Gui, add, DropDownList, w50 yp-5 xp+140 vKeepOpen , %ddlist%
Gui, add, text,xp-140 yp+30, Limit total SNG:s to:
Gui, add, DropDownList, w50 yp-5 xp+140 vTotalLimit , %ddlist3%
Gui, add, text,xp-140 yp+30, Limit total time to (min):
Gui, add, DropDownList, w50 yp-5 xp+140 vLimitTime , %ddlist5%

Gui, add, text, xp-140 yp+30 cred vcdown w200
Gui, add, text, xp  yp+30 w200 vRegSofar, SNG:s registered so far:
Gui, add, text,  w200 vOpenTables, Tables open/waiting:
Gui, add, text, w200 cRed vStatus, Status: Idle
Gui, add, Button, w68 ggetgui, &Submit+Run
Gui, add, text, xp+72 yp+5, (Autosaves your settings)
Gui, Add, Button, Disabled xp-72 yp+20 w48 h20 Center , &Resume
Gui, Add, Button, Disabled  w45 h20 yp xp+48 Center , &Pause
Gui, Add, Button, w80 h20 yp xp+45 Center globbyrestore, &Lobby restore
Gui, tab, 2

Gui, add, Text, x25 y65 , Lobby Theme:
Gui, add, DropDownList, w65 yp-5 xp+140 vLobby, %LobbyList%
Gui, add, text,xp-140 yp+30 , Close lobbies every (sec):
Gui, add, DropDownList, w50 yp-5 xp+140  vCloseInterv, %ddlist6%
Gui, add, text, xp-140 yp+18 , (manually Close with ctrl+e)
Gui, add, text, yp+30, Disable if no user Input (min):
Gui, add, DropDownList, w50 yp-5 xp+140 vGuardtimer Choose1 , %ddlist4%
Gui, add, text, xp-140 yp+30 ,Batch-register?
Gui, add, Checkbox,yp xp+140 vBatchReg
Gui, add, text, yp+20 xp-140 ,SetReg* mode?
Gui, add, Checkbox,yp xp+140 vSetReg
Gui, add, text, yp+20 xp-140 ,Minimize lobby?
Gui, add, Checkbox,yp xp+140 vMinlob
Gui, add, Text, xp-140 yp+30, Times to scroll down:
Gui, add, DropDownList, w50 yp-5 xp+140 vscrldwn, %ddlist7%
Gui, add, Text, xp-140 yp+25, Always start at top of lobby?
Gui, add, Checkbox, yp xp+140 vTopReturn
Gui, show, w256, %thisahk%
WinGetPos, x, y, w, h, SFSO
;x:=monRight-w
;y:=monBottom-h
x:=monLeft
y:=monTop
Gosub, GetIni
Gui, show, x%x% y%y%, %thisahk%
Return

deletelog:
ifwinnotexist,ahk_class PokerStarsTableFrameClass
filedelete,%logfile%
return

getgui:
GuiControl,, Register, -1
Register = 1
Gui, Submit, NoHide
displayedTime=
If (lobby="Default")
{
regButton:="PokerStarsButtonClass10"
}
Else If (lobby="Black" or lobby="Custom*")
{
regButton:="PokerStarsButtonClass10"
}
PS6list=PokerStarsListClass3
PS7list1=PokerStarsListClass13
PS7list2=PokerStarsListClass12
Gosub, MakeIni
PausedTime:=LimitTime
Gosub, TimeLimit
interval:=interval1*1000
If interval is not Number
interval=off
If guardtimer is not Number
{
SetTimer, safeguard, off
}
Else
{
killtime:=guardtimer*60000
SetTimer, safeguard, 1000
}
if CloseInterv is not number
SetTimer, NukeLobbies, off
else
{
lobclose:=CloseInterv*1000
SetTimer, NukeLobbies, %lobclose%
}
register=1
sleep,-1
Gosub, ButtonResume
Return

Safeguard:
If (A_TimeIdle > killtime)
{
Gosub, ButtonPause
GuiControl, , cdown, Stopped  due to inactivity!!! %displayedTime%
}
Return

TimeLimit:
If LimitTime is Number
{
allowedMinutes := LimitTime
endTime := A_Now
endTime += %allowedMinutes%, Minutes
SetTimer, CountDown, 1000
}
Else
{
SetTimer, CountDown, off
sleep,-1
GuiControl, , cdown, Time Limit off
}
Return

Countdown:
remainingTime := endTime
EnvSub remainingTime, %A_Now%, Seconds
m := remainingTime // 60
s := Mod(remainingTime, 60)
displayedTime := Format3Digits(m) ":" Format2Digits(s)
GuiControl, , cdown, Running another (mm:ss): %displayedTime%
If (A_now > endTime)
{
SetTimer, Countdown, off
Gosub, ButtonPause
GuiControl, , cdown, Time Limit reached.
}
Return

GuiClose:
Gui, Submit
Gosub, MakeIni
ExitApp
Return

ButtonResume:
Gui, Submit, NoHide
GuiControl, Disable, &Resume
GuiControl, Enable, &Pause
if LimitTime is Number
If PausedTime is Number
LimitTime:=PausedTime
Gosub, TimeLimit
GuiControl, , Register, -1
Register:=1
SetTitleMatchMode, 2
WinGet, LobbyID, id, PokerStars Lobby,,Tournament
wingettitle,lobbytitle,ahk_id%LobbyID%
if !instr(lobbytitle,"Logged In")>0
{
WinGet,ctrls,ControlList,ahk_id%LobbyID%
Loop,Parse,ctrls,`n
{
 controlgettext,text,%A_LoopField%,ahk_id%LobbyID%
 ControlGet, v, Visible, , %A_LoopField%, ahk_id%LobbyID%
 if (text="Register") && v
 regButton:=A_LoopField
}
}
settimer, AutoReg,37
OpenTables:=0
tables=
OpenTables:=CountTourneys(1)
Gosub,Register
SetTimer, Register, %Interval%
sleep,-1
Return

ButtonPause:
Critical
Gui, Submit, NoHide
if LimitTime is Number
PausedTime:=remainingTime/60
Register:=0
settimer, AutoReg,off
SetTimer, Countdown, off
SetTimer, Register, off
GuiControl, Disable, Pause
GuiControl, Enable, Resume
GuiControl, , Register, 0
GuiControl, , cdown, Manually Paused %displayedTime%
GuiControl, , Status, Status: Waiting ;TEST
Return

Register:
SetTitleMatchMode, 2
WinGet, LobbyID, id, PokerStars Lobby,,Tournament
If !LobbyID
{
Gosub, ButtonPause
GuiControl,, Status, Status: PokerStars Lobby not found
Gui, show, NoActivate, %thisahk%
Return
}
If (TopReturn=1)
{
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
ControlSend, %list%, {NumpadUp 20}, ahk_id%lobbyid%
}
WinGet, PhysicalTables, list,Table ahk_class PokerStarsTableFrameClass
If PhysicalTables is not Number
PhysicalTables:=0
If (PhysicalTables >= KeepOpen)
{
GuiControl,, Status, Set Full waiting
Return
}
OpenTables:=CountTourneys()
If OpenTables is not Number
OpenTables:=0
GuiControl, , OpenTables, Tables open/waiting: %OpenTables%
GuiControl, , RegSofar, SNG:s registered so far: %RegSofar%
If (RegSofar >= TotalLimit)
{
Gosub, ButtonPause
GuiControl, , cdown, SNG Total Limit reached
GuiControl, , Status, Status: Idle ;TEST
Return
}
If (OpenTables >= TotalLimit)
{
Gosub, ButtonPause
GuiControl, , cdown, SNG Total Limit reached
GuiControl, , Status, Status: Idle ;TEST
Return
}
If (OpenTables>=KeepOpen)
{
GuiControl, , OpenTables, Tables open/waiting: %OpenTables% (Set full)
GuiControl, , Status, Status: Waiting ;TEST
Return
}
Else
{
If (BatchReg=1)
{
Times:= KeepOpen - OpenTables
RegSNGexec(LobbyID, Times, scrldwn)
}
Else
{
RegSNGexec(LobbyID, 1, scrldwn)
}
}
Return

MakeIni:
IniWrite, %AutoIfFull%, %thisahk%.ini, Settings, AutoIfFull
IniWrite, %TopReturn%, %thisahk%.ini, Settings, TopReturn
IniWrite, %scrldwn%, %thisahk%.ini, Settings, scrldwn
IniWrite, %Lobby%, %thisahk%.ini, Settings, Lobby
IniWrite, %BatchReg%, %thisahk%.ini, Settings, BatchReg
IniWrite, %Setreg%, %thisahk%.ini, Settings, SetReg
IniWrite, %Minlob%, %thisahk%.ini, Settings, MinLob
IniWrite, %Interval1%, %thisahk%.ini, Settings, Interval1
IniWrite, %CloseInterv%, %thisahk%.ini, Settings, CloseInterv
IniWrite, %KeepOpen%, %thisahk%.ini, Settings, KeepOpen
IniWrite, %TotalLimit%, %thisahk%.ini, Settings, TotalLimit
IniWrite, %GuardTimer%, %thisahk%.ini, Settings, GuardTimer
IniWrite, %LimitTime%, %thisahk%.ini, Settings, LimitTime
Return

GetIni:
IfExist, %thisahk%.ini
{
IniRead, AutoIfFull, %thisahk%.ini, Settings, AutoIfFull
IniRead, TopReturn, %thisahk%.ini, Settings, TopReturn,0
IniRead, scrldwn, %thisahk%.ini, Settings, scrldwn
IniRead, Lobby, %thisahk%.ini, Settings, Lobby
IniRead, BatchReg, %thisahk%.ini, Settings, BatchReg
IniRead, SetReg, %thisahk%.ini, Settings, SetReg, 1
IniRead, MinLob, %thisahk%.ini, Settings, MinLob, 0
IniRead, Interval1, %thisahk%.ini, Settings, Interval1
IniRead, CloseInterv, %thisahk%.ini, Settings, CloseInterv
IniRead, KeepOpen, %thisahk%.ini, Settings, KeepOpen
IniRead, TotalLimit, %thisahk%.ini, Settings, TotalLimit
IniRead, GuardTimer, %thisahk%.ini, Settings, GuardTimer, Off
IniRead, LimitTime, %thisahk%.ini, Settings, LimitTime, Off
GuiControl, , AutoIfFull, %AutoIfFull%
StringReplace, ddlist7, ddlist7, %scrldwn%, %scrldwn%|
GuiControl, , scrldwn, |%ddlist7%
StringReplace, LobbyList, LobbyList, %Lobby%, %Lobby%|
GuiControl, , Lobby, |%LobbyList%
GuiControl, , BatchReg, %BatchReg%
GuiControl, , SetReg, %SetReg%
GuiControl, , MinLob, %MinLob%
GuiControl, , TopReturn, %TopReturn%
StringReplace, ddlist2, ddlist2, %interval1%, %Interval1%|
GuiControl, , Interval1, |%ddlist2%
StringReplace, ddlist6, ddlist6, %CloseInterv%, %CloseInterv%|
GuiControl, , CloseInterv, |%ddlist6%
StringReplace, ddlist, ddlist, %KeepOpen%, %KeepOpen%|
GuiControl, , KeepOpen, |%ddlist%
StringReplace, ddlist3, ddlist3, %TotalLimit%, %TotalLimit%|,
GuiControl, , TotalLimit, |%ddlist3%
StringReplace, ddlist4, ddlist4, %GuardTimer%, %GuardTimer%|
GuiControl, , GuardTimer, |%ddlist4%
StringReplace, ddlist5, ddlist5, %LimitTime%, %LimitTime%|
GuiControl, , LimitTime, |%ddlist5%
}
Return

#e::
gosub,NukeLobbies
Return

NukeLobbies:
SetTitleMatchMode, 2
GroupAdd, TLobbies, Lobby ahk_class PokerStarsTableFrameClass,,, PokerStars Lobby
GroupClose, TLobbies, A
Return

#H::
WinHide, %thisahk%
return

#S::
WinShow, %thisahk%
return

F11::
TmpSetReg:=SetReg
SetReg=0
CountTourneys()
SetReg:=TmpSetReg
Return
ManualCount:
CountTourneys()
Return

FindLobby:
If (%A_GuiEvent% = DoubleClick)
{
LV_GetText(TournId,A_EventInfo)
TournID:=SubStr(TournID, 1,10)
WinMenuSelectItem, PokerStars Lobby,, Requests, Find a Tournament
WinWait, Find Tournament ahk_class #32770, , 10
WinGet, fat, id
ControlFocus, Edit1, ahk_id%fat%
Sleep, -1
ControlSend, Edit1, %TournId%, ahk_id%fat%
ControlFocus, Button1, ahk_id%fat%
Sleep, -1
ControlSend, Button1, {Space}, ahk_id%fat%
}
Return

Format2Digits(_val) {
_val :=Round(_val) + 100
StringRight _val, _val, 2
Return _val
}

Format3Digits(_val) {
_val :=Round(_val) + 1000
StringRight _val, _val, 3
StringTrimRight, FirstZ, _val, 2
If FirstZ=0
{
StringTrimLeft, _val, _val, 1
}
StringTrimRight, FirstZ, _val, 1
If FirstZ=0
{
StringTrimLeft, _val, _val, 1
}
Return _val
}
LobbyRestore:
WinGet, lobbyid, id, PokerStars Lobby
WinShow, ahk_id%lobbyid%
WinMove, ahk_id%lobbyid%,,0,0
return

RegSNGexec(id, times, scrldwn) {
global RegSofar
global Register
global OpenTables
global KeepOpen
global TotalLimit
global RegButton
global AutoIfFull
global list,lobbytitle,lobbyid,PS7list1,PS7list2,PS6list

Loop %times%
{
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
ControlSend, %list%, {NumpadUp 20}, ahk_id%id%
If (OpenTables >= KeepOpen)
Exit
If (OpenTables >= TotalLimit)
Exit
ClickdirectionCount=0
direction=0
GuiControl, , Status, Status: Registering ;TEST
Loop 16
{
If (Register=0)
{
GuiControl, , Status, Status: Idle ;TEST
Exit
}
ControlGet, v, Visible, , %regButton%, ahk_id%id%
If (v = 0)
If (scrldwn!="Off")
{
If (ClickdirectionCount<scrldwn) {
if !instr(lobbytitle,"Logged In")>0
{
ControlGet,vis,visible,,%PS7list1%,ahk_id%lobbyid%
if vis
list:=PS7list1
else
list:=PS7list2
}
else
list:=PS6list
If (direction=0) {
ControlSend, %list%, {NumpadDown}, ahk_id%id%
} Else {
ControlSend, %list%, {NumpadUp}, ahk_id%id%
}
ClickdirectionCount:=ClickdirectionCount+1
} Else {
If (direction=0) {
direction:=1
} Else {
direction:=0
}
ClickdirectionCount:=0
}
Sleep,1000
}
If ( v = 1 ) {
wingetclass,class,A
SetTitleMatchMode, 2
ControlSend, %regButton%, {Space}, ahk_id%id%
ControlSend, %regButton%, {Space}, ahk_id%id%
WinWait, Tournament Registration ahk_class #32770,,1
{
WinGet, regid, id, Tournament Registration ahk_class #32770
wingettext,text,
if instr(text,"Confirm")>0
{
autobtn=PokerStarsButtonClass3
okbtn=PokerStarsButtonClass2
}
else
{
autobtn=Button2
okbtn=PokerStarsButtonClass1
}
controlget,vis,visible,,%autobtn%,ahk_id%regid%
if vis
{
 If (AutoIfFull = 1)
 {
 Control,Check,,%autobtn%, ahk_id%regid%
 ;ControlSend, %autobtn%, {Space}, ahk_id%regid%
 Sleep, 30
 }
ControlSend, %okbtn%, {Space}, ahk_id%regid%
}
}
sleep,30
WinWait, Tournament Registration ahk_class #32770,,1
{
WinGet, regid, id, Tournament Registration ahk_class #32770
controlget,vis,visible,,Button2,ahk_id%regid%
controlget,vis1,visible,,PokerStarsButtonClass3,ahk_id%regid%
if !vis && !vis1
winclose,ahk_id%regid%
;ControlSend, PokerStarsButtonClass1, {Space}, ahk_id%regid%
}
GuiControl, , Status, Status: Waiting ;TEST
;if class=PokerStarsTableFrameClass
;winactivate,ahk_class PokerStarsTableFrameClass
Break
}
}
}
}
return

AutoReg:
AutoReg()
return

AutoReg()
{
global AutoIfFull
setwindelay,-1
settitlematchmode,2
IfWinExist, Tournament Registration ahk_class #32770
{
wingettext,text,
if instr(text,"Confirm")>0
{
autobtn=PokerStarsButtonClass3
okbtn=PokerStarsButtonClass2
}
else
{
autobtn=Button2
okbtn=PokerStarsButtonClass1
}
winget,id,id,
controlget,vis,visible,,%autobtn%,ahk_id%id%
if vis
{
If (AutoIfFull = 1)
{
ControlFocus, %autobtn%, ahk_id%id%
Sleep, -1
ControlSend, %autobtn%, {Space}, ahk_id%id%
Sleep, 30
}
ControlSend, %okbtn%, {Space}, ahk_id%id%
}
else
ControlSend, %okbtn%, {Space}, ahk_id%id%
;winclose,ahk_id%id%
}
}
return

CountTourneys(mode=0) {
global logfile,RegSofar,regtourneys,tables,Targetnum
If (SetReg=1)
Return 0
log := CheckFile(logfile,mode)
Loop, Parse, log, `n,
{
tnumber=
if (instr(A_loopField,"RT add")>0)
{
 tnumber:=RegExReplace(A_loopField, "RT add ", "")
 if instr(tnumber,A_space)
 StringLeft, tnumber, tnumber, instr(tnumber,A_space)-1
 tnumber:=RegExReplace(tnumber, "[`n,`r]", "")
 tnumber:=Floor(tnumber)
 if !instr(tables,tnumber) && ((Targetnum=0) || ((Targetnum>0) && (tnumber>=(Targetnum-50000)) && (tnumber<(Targetnum+100000))))
 listadd(tables,tnumber)
}
else
If (instr(A_loopField,"RT remove")>0)
{
 stringtrimleft,tnumber,A_loopField,instr(A_loopField,A_space,"",0)
 tnumber:=RegExReplace(tnumber, "[`n,`r]", "")
 tnumber:=Floor(tnumber)
 if instr(tables,tnumber)
 listDelItem(tables,tnumber)
}
}
log=
tcount:=0
Loop, Parse, tables, -,
{
if A_Loopfield is number
{
tcount++
if !(instr(regtourneys,A_Loopfield)>0)
{
listadd(regtourneys,A_Loopfield)
if mode=0
RegSofar++
}
}
}
return tcount
}

numcheck:
winget,nlist,list,Table ahk_class PokerStarsTableFrameClass
loop %nlist%
{
id:=nlist%A_index%
wingettitle,title,ahk_id%id%
stringtrimleft,num,title,instr(title,A_space,"",instr(title,"Tournament"))
stringleft,num,num,instr(num,A_space)-1
if num is not number
num:=0
if (num>targetnum)
targetnum:=num
StringReplace,targetnum,targetnum,A_space,,All
StringReplace,targetnum,targetnum,`n,,All
StringReplace,targetnum,targetnum,`r,,All
}
return

Ansi2Unicode(sString, CP = 0)
{
	  nSize := DllCall("MultiByteToWideChar"
		, "Uint", CP
		, "Uint", 0
		, "Uint", &sString
		, "int",  -1
		, "Uint", 0
		, "int",  0)

	VarSetCapacity(wString, nSize * 2)

	DllCall("MultiByteToWideChar"
		, "Uint", CP
		, "Uint", 0
		, "Uint", &sString
		, "int",  -1
		, "Uint", &wString
		, "int",  nSize)
return wstring
}

ReplaceByte( hayStackAddr, hayStackSize, ByteFrom=0, ByteTo=1, StartOffset=0, NumReps=-1)
{	Static fun
	IfEqual,fun,
	{
		h=
		( LTrim join
			5589E553515256579C8B4D0C8B451831D229C17E25837D1C00741F8B7D0801C70FB6451
			00FB65D14FCF2AE750D885FFF42FF4D1C740409C975EF9D89D05F5E5A595BC9C21800
		)
		VarSetCapacity(fun,StrLen(h)//2)
		Loop % StrLen(h)//2
			NumPut("0x" . SubStr(h,2*A_Index-1,2), fun, A_Index-1, "Char")
	}
	Return DllCall(&fun
		, "uint",haystackAddr, "uint",hayStackSize, "short",ByteFrom, "short",ByteTo
		, "uint",StartOffset, "int",NumReps)
}

CheckFile(File, mode=0) {
   ; THX Sean for File.ahk : http://www.autohotkey.com/forum/post-124759.html
   Static CF := ""   ; Current File
   Static FP := 0    ; File Pointer
   Static OPEN_EXISTING := 3
   Static GENERIC_READ := 0x80000000
   Static FILE_SHARE_READ := 1
   Static FILE_SHARE_WRITE := 2
   Static FILE_SHARE_DELETE := 4
   Static FILE_BEGIN := 0
   BatchLines := A_BatchLines
   SetBatchLines, -1
   If (File != CF) {
      CF := File
      FP := 0
   }
   hFile := DllCall("CreateFile"
                  , "Str",  File
                  , "Uint", GENERIC_READ
                  , "Uint", FILE_SHARE_READ|FILE_SHARE_WRITE|FILE_SHARE_DELETE
                  , "Uint", 0
                  , "Uint", OPEN_EXISTING
                  , "Uint", 0
                  , "Uint", 0)
   If (!hFile) {
      CF := ""
      FP := 0
      SetBatchLines, %BatchLines%
      Return False
   }
   DllCall("GetFileSizeEx"
         , "Uint",   hFile
         , "Int64P", nSize)
   if mode=1
   FP:=1
   If (FP = 0 Or nSize <= FP) {
      FP := nSize
      SetBatchLines, %BatchLines%
      DllCall("CloseHandle", "Uint", hFile) ; close file
     Return False
   }
   DllCall("SetFilePointerEx"
         , "Uint",  hFile
         , "Int64", FP
         , "Uint",  0
         , "Uint",  FILE_BEGIN)
   VarSetCapacity(Tail, Length := nSize - FP, 0)
   DllCall("ReadFile"
         , "Uint",  hFile
         , "Str",   Tail
         , "Uint",  Length
         , "UintP", Length
         , "Uint",  0)
   DllCall("CloseHandle", "Uint", hFile)
   FP := nSize
   if A_IsUnicode
   {
   tail:=Ansi2Unicode(tail)
   Length:=strlen(tail)
   }
   ReplaceByte( &Tail, Length)
   VarSetCapacity(Tail, -1)
   SetBatchLines, %BatchLines%
   Return Tail
}

listAdd( byRef list, item, del="-" ) {
  list:=( list!="" ? ( list . del . item ) : item )
  return list
}

listDelItem( byRef list, item, del="-") {
  ifEqual, item,, return list
  list:=del . list . del
  StringReplace, list, list, %del%%item%%del%,%del%,All
  StringTrimLeft, list, list, 1
  StringTrimRight, list, list, 1
  return list
}

lobbyStars() {
SetTitleMatchMode 2
WinGet, id, id, PokerStars Lobby ahk_class #32770,,Tournament
Return id
}

;~^!Q::
;ExitApp

exitsub:
if Targetnum>0
IniWrite, %Targetnum%, %thisahk%.ini, Settings, Targetnum
Gosub, deletelog
exitapp
return
Zelo is offline   Reply With Quote
Old 09-01-2015, 02:51 PM   #1094
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

Zelo, set pokerstars.log.0 file path manually at the script start, run the script as admin.
Max1mums is offline   Reply With Quote
Old 09-01-2015, 08:15 PM   #1095
Zelo
stranger
 
Join Date: Sep 2015
Posts: 3
Re: AHK script:Stars Filtered SNG Opener

Quote:
Originally Posted by Max1mums View Post
Zelo, set pokerstars.log.0 file path manually at the script start, run the script as admin.

hello, how I can do this? thanks.
Zelo is offline   Reply With Quote
Old 09-08-2015, 08:36 PM   #1096
Zelo
stranger
 
Join Date: Sep 2015
Posts: 3
Re: AHK script:Stars Filtered SNG Opener

Hello, I put the path to the file but still does not stop, I always records. Any other advice?
Zelo is offline   Reply With Quote
Old 10-13-2015, 03:59 AM   #1097
Ruslan1986
stranger
 
Join Date: Oct 2015
Posts: 1
Re: AHK script:Stars Filtered SNG Opener

Привет Max1mums. Скопировал выложенный код скрипта для авторегистраций, создал файл с разрешением AHk. Подскажи пожалуйста, какие галочки должны стоять на второй странице скрипта http://prntscr.com/8qqzxq .
И есть еще такая проблема, при переключении галочки с auto-register на окно reg.next if full почему то открывается браузер и начинают открываться окна сайта покерстарс до тех пор, пока не нажмешь паузу в скрипте.
Еще один вопрос, что поменять в настройках, чтобы скрипт в лобби покерстарс регестрировал все открытые строчки, по факту получается открыто 5 СНГ, из них скрипт регистрирует только верхнюю строчку.

Hi Max1mums. I copied the laid-out script code for autoregistration, I created the file with the permission of AHk. Prompt please, what ticks have to stand on the second page of a script http://prntscr .com/8qqzxq.
Also there is still such problem, when switching a tick with auto-register on the reg.next if full window the browser for some reason opens and site windows pokerstars start opening until you press a pause in a script.
One more question what to change in settings that the script in a lobby pokerstars registered all open lines, upon turns out openly 5 MTSNG, from them the script registers only the top line.
Ruslan1986 is offline   Reply With Quote
Old 10-15-2015, 03:01 PM   #1098
korhal
stranger
 
Join Date: Oct 2015
Posts: 1
Re: AHK script:Stars Filtered SNG Opener

Hello

When I try to start session I get "Idle (lobby not found)" message in the status bar. What is wrong ?

I use default PS version 7 lobby. I identified PS controls in SFSO options dialog.
korhal is offline   Reply With Quote
Old 10-15-2015, 03:12 PM   #1099
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,671
Re: AHK script:Stars Filtered SNG Opener

Try using the latest version guys, post №1091.
Max1mums is offline   Reply With Quote
Old 11-30-2015, 08:50 PM   #1100
bt45317
stranger
 
Join Date: Sep 2015
Posts: 3
Re: AHK script:Stars Filtered SNG Opener

I created the latest script written here, but it doesn't register more tables when i'm out of a SnG. Auto-register cant be checked since it automatically unchecks when I hit submit!
bt45317 is offline   Reply With Quote

Reply
      

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Forum Jump


All times are GMT -4. The time now is 01:46 PM.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Copyright © 2008-2017, Two Plus Two Interactive
 
 
Poker Players - Streaming Live Online