Tag Archive


c# poker HUD free poker HUD free pokerstars HUD free play chip HUD free pokerstars tools free poker tools make your own poker HUD online poker laws play poker online in the states poker poker cheat poker developers poker edge poker news poker positions pokerstars cheat poker tools programming poker track your wins and losses in poker U.S online poker laws vb.net vb.net custom poker controls vb.net poker heads up display source vb.net poker HUD vb.net poker source code vb vs c# view latest online poker bill

building a pokerstars tournament tracker for PSxP2 in vb.net

YOU MUST BE SAVING TOURNEY SUMMARY FILES IN POKERSTARS TO USE THIS

the tourney tracker area in PSxP2 is looking better every day
free of spam, free to everyone, it will be added this week

psxp2-tourney-tracker-game-type

psxp2-tourney-tracker-days

psxp2-tourney-tracker-graph1

psxp2-tourney-tracker-list

psxp2-tourney-tracker-graph2

psxp2-tourney-tracker-graph3

   TOP

PSxP chat server will be released next week

 

server

The chat server allows communication between multiple PSxP apps. This server is intended for morale,  support, and to discuss both good and bad decisions AFTER they are made. THIS IS  NOT FOR COLLUSION. The person who runs the server  will distribute their address to the persons of his/her choice and only those persons can connect to the conference. The chat server has an installed bot to manage the conference environment on the rich text chat panels on PSxP. Many text-based commends include KICK, SEEN, MSG, READ, WEATHER, PRIVATEMSG,  etc.

VB.NET ip chat and socket Source code help on request.

   TOP

pokerstars HUD and Tracker

toppic4

This is a free Pokerstars HUD project currently under development by us.

psxp2play

The App is always changing and growing to allow us to understang more and more about our game. It allows us to compare our play against other winning and losing players, and allows us to find and fix leaks in our game. As always it is free of malware, free of spam, and free to everyone. If you are a vb.net programmer and have a question about it, ask anything, anytime, it will get answered.

   TOP

Trigger an event from a pokerstars hand completion in vb.net

 This will search the Pokerstars hand history folders on your comp and trigger an event when the size of one of those hand history files changes.

I set the timer to 3 seconds and get NO processor spike at all and it catches every append to pokerstars HH files in as many tables you are on. If you plan on parsing hands just split the string in the streamreader with (vbnewline & vbnewline & vbnewline) .  Add it to an array. You will have an array of every hand played in that HH file to parse any info you need after each hand completes. You could also use lastindexof for the latest completed hand.

 

 


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'Martin Carter – psxpoker.com Dim dir As String dir = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) 'this is the pokerstars default directory Dim MyHHpath As String = dir & "\PokerStars\HandHistory\" 'create the array to put all the directories in to search for HH files.
Dim DirList As New ArrayList 'get the subdirectories If (System.IO.Directory.Exists(dir & "\PokerStars\HandHistory")) Then GetDirectories(MyHHpath, DirList) 'this is a folder i also save HH files in DirList.Add(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).ToString & "\HH") lstDirFile.Items.Clear() For Each x In DirList Dim files() As System.IO.FileInfo Dim dirinfo As New System.IO.DirectoryInfo(x.ToString) files = dirinfo.GetFiles("HH*Hold'em*.txt", IO.SearchOption.AllDirectories) For Each file In files 'skip the holdem omaha mixed games If file.ToString.Contains("Omaha") = True Then GoTo skipOmahaFile 'path and filename Dim FileN As String = dirinfo.ToString & "\" & file.ToString Dim filex As New FileInfo(FileN) sizeInBytes2 = filex.Length 'i use this to only add files modified today (ext.letfof is a function... ext.leftof("blah","ah") returns "bl" Dim Lastwrite As Date = eXt.LeftOf(filex.LastWriteTime, " ") 'add the size in bytes and filename to list a If Lastwrite = eXt.LeftOf(Now, " ") Then lstDirFile.Items.Add(sizeInBytes2.ToString & ", " & FileN) End If SkipOmahaFile: Next Next If lstDirFile.Items.Count = 0 Then Exit Sub Else ' populate list b from list a if its empty If lstDirFile2.Items.Count = 0 Then For i = 0 To lstDirFile.Items.Count - 1 lstDirFile2.Items.Add(lstDirFile.Items.Item(i)) Next Else 'start compare and refresh list here 'loop thru list a For i = 0 To lstDirFile.Items.Count - 1 'loop thru list b For x = 0 To lstDirFile2.Items.Count - 1 'If the 2 filenames are the same If eXt.RightOf(lstDirFile.Items.Item(i), ", ") = eXt.RightOf(lstDirFile2.Items.Item(x), ", ") Then 'if the sizes dont match then a hand has just completed If eXt.LeftOf(lstDirFile.Items.Item(i), ", ") <> eXt.LeftOf(lstDirFile2.Items.Item(x), ", ") Then 'here is the file that changed and it is read into memory Dim sr As New IO.StreamReader(eXt.RightOf(lstDirFile.Items(i), ", ").ToString) Dim Sr2 As String = sr.ReadToEnd 'your event would go here
End If End If Next Next 'now move the items from list a to list b for the next timer trigger to compare again lstDirFile2.Items.Clear() For i = 0 To lstDirFile.Items.Count - 1 lstDirFile2.Items.Add(lstDirFile.Items.Item(i)) Next End If End If End Sub

 

I collect 77 different data values from 9 players per hand and store that data on a list of 7000+ players. I parse about 2300 hands per minute on a laptop with this code. Don’t forget to handle exceptions.

   TOP

Hit Counter provided by shuttle service from lax