im currently workin on a auto reloader, the first few functions are working, if somebody want to help, youre welcome.
<font class="small">Code:</font><hr /><pre>
#NoEnv
SendMode Input
#Persistent
#SingleInstance, Force
SetTitleMatchMode, 2
GroupAdd, TitanTables, Texas
SetTimer, Main, 1000
tables := ""
SysGet, border, 32
SysGet, caption, 4
return
getScreenname()
{
global hero
SetTitleMatchMode 2
WinGet, id, id, Titan Poker:
WinGetTitle, hero, ahk_id%id%
StringTrimLeft, hero, hero, 23
StringLen, length, hero
StringGetPos, pos, hero, |
StringTrimRight, hero, hero, length - pos +1
}
getTables()
{
global tables
global level
tables := ""
level := ""
SetTitleMatchMode 2
WinGet, id, id, Titan Poker:
WinGet, pid, PID, ahk_id%id%
WinGet, list, list, - Texas Hold ahk_pid%pid%
Loop %list%
{
this_id := list%a_index%
WinGetTitle, title, ahk_id%this_id%
If (this_id != id)
{
StringGetPos, pos, title, :
StringTrimLeft, title, title, pos + 2
StringLen, length, title
StringGetPos, pos, title, /
StringTrimLeft, bb, title, pos + 2
StringGetPos, pos, title, -
StringTrimRight, title, title, length - pos + 1
tables = %tables%%title%`n
level = %level%%bb%`n
}
}
MsgBox %level%
MsgBox %tables%
}
getHHnames()
{
global FileList
FileList =
Loop, C:\Dokumente und Einstellungen\Toasta\Desktop\Reload Projekt\*.xml ; Path to the HHs ( C:\Poker\Titan Poker\History\TTRXXXXXXXX\Table\*.xml )
FileList = %FileList%%A_LoopFileName%`n
Sort, FileList
Loop, parse, FileList, `n
{
if A_LoopField =
continue
;MsgBox, 4,, File number %A_Index% is %A_LoopField%. Continue?
}
;MsgBox Handhistorieliste : %FileList%
}
getStack(ByRef hhn, ByRef aushhstack, ByRef aushhtable)
{
global hero
Path := "C:\Dokumente und Einstellungen\Toasta\Desktop\Reload Projekt\" ;Path to the HHs ( C:\Poker\Titan Poker\History\TTRXXXXXXXX\Table\ )
FileName = %Path%%hhn%
FileReadLine, tablename, %Filename%, 5
StringGetPos, pos, tablename, >
StringTrimLeft, tablename, tablename, pos + 1
StringLen, length, tablename
StringGetPos, pos, tablename, <
StringTrimRight, tablename, tablename, length-pos
diff := 2500
FileGetSize, newLen, %Filename%
GENERIC_READ = 0x80000000
OPEN_EXISTING = 3
FILE_SHARE_READ = 0x1
FILE_SHARE_WRITE = 0x2
FILE_BEGIN := 0
hFile := DllCall("CreateFile", str, FileName, UInt, GENERIC_READ, UInt, FILE_SHARE_READ|FILE_SHARE_WRITE, UInt, 0, UInt, OPEN_EXISTING, Uint, 0, UInt, 0)
BytesToRead := VarSetCapacity(String, diff)
DllCall("SetFilePointerEx", UInt, hFile, ULong, newLen-diff, ULong, 0, UInt, FILE_BEGIN)
DllCall("ReadFile", UInt, hFile, str, String, UInt, BytesToRead, UIntP, BytesRead, UInt, 0)
DllCall("CloseHandle", UInt, hFile)
screenname = %hero%
StringLen, length, screenname
stringsearch = name="%screenname%"
StringGetPos, pos, String, %stringsearch%
StringTrimLeft, String, String, pos + 16 + length
StringLen, length, String
StringGetPos, pos, String, "
StringTrimRight, String, String, length-pos
aushhstack = %String%
aushhtable = %tablename%
;MsgBox Single HHN : %hhn%
;MsgBox Stackaushh : %String%
;MsgBox Tischnameaushh : %tablename%
}
assignhhnametable()
{
global FileList
global FHN
global FHS
global FHTN
FHN =
FHS =
FHTN =
Loop, parse, FileList, `n
{
if A_LoopField =
continue
hhn = %A_LoopField%
getstack(hhn,aushhstack,aushhtable)
FHN = %FHN%%hhn%`n
FHS = %FHS%%aushhstack%`n
FHTN = %FHTN%%aushhtable%`n
}
MsgBox %FHN%
MsgBox %FHS%
MsgBox %FHTN%
}
Main:
getScreenname()
getTables()
getHHnames()
assignhhnametable()
;compare()
return
</pre><hr />