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

Sheldon Adelson finds a new nemesis: Online poker

The casino mogul says his new fight against Internet gambling is a moral one, but others see “JUST PLAIN GREED”

 

Sheldon Adelson finds a new nemesis: Online poker

Adelson, despite making more than $20 billion off his casino empire, has launched a war on Internet gambling, setting up a website, producing a Web ad that calls Internet gaming “one of the worst … [ideas] in the history of bad ideas,” and pushing his message in media interviews and Op-Eds. With deep pockets and back-channel access to senior GOP leaders, Adelson is quickly making himself the biggest enemy of people who want to play poker online and states that want the tax revenue from legalizing it.

Internet gambling right now exists in a bit of gray area, effectively illegal on the federal level but recently legalized in some states, including Nevada and Delaware. New Jersey followed in February and the nation’s first legal online poker site launched in April, serving Nevada residents exclusively. A number of other states are moving quickly to be next and two bills will soon be introduced in Congress to change federal regulation. The online poker train seems unstoppable, but Adelson has planted himself astride the tracks and is determined to derail it.

One reason the casino mogul might fight online gaming is easy to see — it’s a threat to his casinos. Adelson denies this is his motivation, writing in Forbes that online gaming’s “impact on my company’s business would be limited.” His motivations are purely moral, he says, based on his experience as a father of two teenage boys. “It’s a threat to our society — a toxin which all good people ought to resist,” he wrote. But not everyone is convinced. Online poker players are outraged by his opposition, and some are calling for a boycott of Adelson’s Venetian casino starting later this month.

“I don’t know his motivations,” John Pappas, the executive director of the pro-online gaming Poker Players Alliance, which has not joined the boycott, told Salon. “But there are only two kinds of groups right now that are completely against Internet gaming: Sheldon Adelson and groups like Focus on the Family.” Even the National Council on Problem Gambling is OK with online gaming, as long as it’s strictly regulated, Pappas noted.

“The anti-gambling contingent is really pure in their motivations,” Pappas continued. “Not only do they oppose Internet gambling, but they probably oppose Mr. Adelson’s brick and mortar casinos too. Adelson has kind of picked and chosen what kind of gambling he’s going to oppose.”

Later in Adelson’s Forbes Op-Ed, he acknowledges that “the rise of Internet gaming has clearly come at the cost of land-based casinos in Europe.” Adelson’s Las Vegas Sands, after making a fortune in Asia over the past two decades, is now staking its future on building “EuroVegas” outside Madrid in Spain.

And the casino mogul didn’t always have such puritanical opposition to online poker. In 2001, the Las Vegas Sun reported that Adelson was “pleased” the Nevada state Legislature was taking a lead on Internet gaming, adding that the Sands was poised to be “a big player in cyberspace if and when Internet gambling is legalized,” the paper reported. “Our hat will be in that ring,” Adelson said

He even spoke to other casino operators’ reluctance to accept online gaming. “When the industry first fought Atlantic City, I felt that a rising tide would raise all boats and we [Las Vegas] would get our share,” Adelson told the Sun, explaining that cyberspace would be no different.

And Mark Blandford, who founded the U.K. online gaming site Sportingbet and has been in the industry since the late 1990s, hit back at Adelson by pointing out that the mogul made a plaintive stab at online gaming in the early 2000s. In 2003, a company Adelson controlled was granted an online gaming licence by the gambling commission of a British Channel Island government that hosts many online gaming sites. “An Internet gaming license in Alderney provides Venetian Interactive with some of the highest regulatory standards and controls in the industry, which supports our goal of providing a user-friendly gaming,” said Richard Depew, CEO of Venetian Interactive, a subsidiary of Las Vegas Sands. But the company never really took off.

“I regard it as naked self-interest. I think he’s fearful of anything that he sees as being a threat to his revenues, and that includes the Internet,” Blandford told Salon of Adelson’s opposition. “Adelson has tried to look like a modern day King Canute while wiping the history of Venetian Interactive,” he said, referring to the Viking king of England who legendarily tried to hold back the tides.

Ironically, it’s now Adelson who stands alone among his competitors in opposition to online poker, as most of the other casino operators have abandoned their opposition and are now adapting to the times. The American Gaming Association, the industry’s lobby organization, used to oppose online gambling, then went neutral, and now supports federal legislation to legalize online gambling.

Adelson hasn’t said if he’ll spend big money fighting the rising tide of online poker, but such vocal opposition from someone who dropped $150 million on the 2012 election has to worry some pro-gaming politicians, especially those with national ambitions like Chris Christie, who pushed New Jersey’s online poker rule into law.

“I don’t reward or punish politicians,” Adelson said when asked about it in a recent interview on Bloomberg TV. “It’s not my job. I’m only one vote, plus that of my family. I do support a lot of politicians, but I do so because of their ideology and the sharing of values with me.”

Last year, a gaming lobbyist told the Las Vegas Sun that online gaming wasn’t the casino mogul’s top goal. His first priority was stopping President Obama from getting reelected, and his second was making the Senate flip to Republican control. Both of those agenda items are now moot.

Advocates of online poker say all of Adelson’s arguments about why online gaming is worse than casino play — minors may access it, it lowers the burden of play and is thus more addictive, for instance — have been asked and answered by effective regulation. “Adelson’s concerns are more than a decade old,” Casino City Times columnist Howard Stutz wrote. “Technologies, such as age verification, geo-location, and other safeguards have been approved by independent testing laboratories and Nevada gaming regulators.”

Pappas of the Poker Player’s alliance says because everything is tracked in real time, online play can actually be better controlled than face-to-face gaming: “It’s really a regulator’s dream.” He pointed to a Harvard study that found that regulating Internet gaming is safer than trying to ban it entirely, which is impossible anyway since people will always find a way to flout prohibitions.

“We thought your love of freedom was why you left the Democrats and joined the Republicans,” Nicholas Kisberg, the CEO of the online poker forum CardsChat.com, wrote in an open letter to Adelson. “That’s the beauty of gambling online. It gives you the power to choose.”

Alex Seitz-Wald            Alex Seitz-Wald. Email him at aseitz-wald@salon.com, and follow him on Twitter @aseitzwald
   TOP

float play from the big blind

*** HOLE CARDS ***
Dealt to zx martin xz 8c5h
UTG: folds
UTG+1: folds
MP: folds
HJ: folds
CT: folds
SB: calls 125
zx martin xz: checks

—– this is a great flop to float—–

*** FLOP *** 4c4hQs
SB: bets 500

—– at this point you pause, already planning on raising the turn, and flat call his bet —–

zx martin xz: calls 500

*** TURN *** 4c4hQs 3d
SB: bets 500

—– a very fast raise (the smallest that will get the job done)  here will portray an excited newb and should work —–

zx martin xz: raises 500 to 1000

—– he didn’t get lucky (2 cards in 46 = 4% chance he had the 4) and folds the winning hand—–

SB: folds

Uncalled bet (500) returned to zx martin xz
zx martin xz collected 2710 from pot
zx martin xz: shows 8c5h

*** SUMMARY ***
Total pot 2710 | Rake 0
Board 4c4hQs3d

   TOP

Sending text programmatically to Pokerstars table

this took me awhile to figure out and I’ve had to change it on occasion after some pokerstars updates, besides the PS updates, it’s never failed.

I included the GetText declarations because It’s simple to first grab any text you may be typing in the pokerstars chat enter area at the moment the sub fires, save it as a string somewhere, and then replace it after the sub has sent the programmed chat. This will keep any text you’re typing to the table from being wiped out by the Sub.

use the sub like this:  SendChatToPokerstarsTable(“nice hand”)

Martin Carter – psxpoker.com
PrivateConst WM_SETTEXT = &HC 
PrivateConst WM_GETTEXT = &HD 
PublicConst WM_CHAR = &H102

PublicDeclareFunction GetWindowTextLength Lib“user32.dll”Alias“GetWindowTextLengthA” (ByVal hWnd AsLong) AsLong

PublicDeclareFunction GetWindowText Lib“user32.dll”Alias“GetWindowTextA” (ByVal hWnd AsLong, ByVal prmstrString AsString, ByVal nMaxCount AsLong) AsLong

PublicDeclareFunction FindWindow Lib“user32”Alias“FindWindowA” (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsInteger

PublicDeclareFunction FindWindowEx Lib“user32”Alias“FindWindowExA” (ByVal hWnd1 AsInteger, ByVal hWnd2 AsInteger, ByVal lpsz1 AsString, ByVal lpsz2 AsString) AsInteger

PublicDeclareFunction SendMessageSTRING Lib“user32”Alias“SendMessageA” (ByVal hwnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger, ByVal lParam AsString) AsInteger

DeclareFunction sendmessagebynum& Lib“user32”Alias“SendMessageA” (ByVal hWnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger, ByVal lParam AsInteger)

PublicSub SendChatToPokerstarsTable(ByVal Chat)

Dim pokerstarstableframeclass AsLong = FindWindow(“pokerstarstableframeclass”, vbNullString)

Dim pokerstarschateditorclass AsLong = FindWindowEx(pokerstarstableframeclass, 0&, “pokerstarschateditorclass”, vbNullString)

If pokerstarschateditorclass = 0 Then

Exit Sub

Else

Call SendMessageSTRING(pokerstarschateditorclass, WM_SETTEXT, 0&, Chat)

Call sendmessagebynum(pokerstarschateditorclass, WM_CHAR, 13, 0)

EndIf

EndSub

 

You can also loop thru a textbox and instantly send multilines of text to the table.

Dim ChatLines() AsString = Split(TextBox1.Text, vbNewLine)

ForEach line In ChatLines

If line = “” Then line = “.”

 SendChatToPokerstarsTable(line)

Next

PLEASE DONT SPAM THE TABLES WITH THESE CODES! THIS IS FOR “NICE HAND” or “PAYOUTS AS FOLLOWS…” ETC!

   TOP

American Gaming Association Once Again Not Backing PokerStars Atlantic City Deal

Monday, July 8th, 2013
American Gaming Association Once Again Not Backing PokerStars Atlantic City Deal        While PokerStars may be celebrating its recent deal to partner with the Atlantic City land-based casino Resorts in an Internet gambling venture, not everyone is thrilled about the turn of events.

More specifically, the American Gaming Association, a powerful gambling industry group, says that it plans to oppose PokerStars’ entry into the regulated New Jersey online gambling market.

AGA previously came out against Atlantic Club deal

Earlier this year, the AGA made headlines when it announced that it did not support a now defunct deal that PokerStars was negotiating to take over a struggling Atlantic City casino, the Atlantic Club Casino Hotel.

The agreement began to unravel in April, when the Atlantic Club notified the parent company of PokerStars, Isle of Man-based the Rational Group, that it was terminating the purchase contract owing to the fact that the Rational Group failed to secure an interim operating license to run the casino prior to a drop-dead date stipulated in the contract.

PokerStars sued to be able to complete the purchase, however earlier this month a judge upheld an earlier court decision that ruled in favor of the Atlantic Club. The two companies had been negotiating the takeover since last year, and despite the fact that early rumors put the purchase price in the $50 million range, the actual price of $15 million came as a shock to many. Even more shocking was the fact that PokerStars had already paid $11 million of that sum before the deal began to come undone, money which the Atlantic Club is permitted to keep under the terms of the contract.

For its part, the AGA is opposed to PokerStars operating any form of business in the United States, be it a land-based casino or an online poker room, because of what it sees as PokerStars’ flouting of the UIGEA by continuing to offer US-facing online poker games after the law was enacted back in 2006.

Newly-retired former president backs online gambling, just not PokerStars 

Last month the AGA underwent a major change when its CEO and president, Frank Fahrenkopf, stepped down from his leadership role. Fahrenkopf announced his plans to turn over the helm of the group several months ago, however he plans to stay on as a consultant through 2013. While Fahrenkopf backs regulation of online gambling at the federal level, he has been vocally opposed to PokerStars’ inclusion in the US market.

Even without Fahrenkopf, who until last month was the only president the organization has known since its founding back in 1994, the group plans to maintain its opposition to PokerStars operating in the United States. Both PokerStars and Resorts will need to be licensed separately by the New Jersey Department of Gaming Enforcement before they can launch real-money online gambling sites. Industry pundits have posited that PokerStars has a very good chance of winning the approval of regulators, considering the fact that the company was quite close to completing the process when the Atlantic Club deal fell apart.

Speaking to the changes the US gambling industry has seen since the AGA’s inception nearly two decades ago, the Nevada-born Fahrenkopf told USA Today back in January, “We’re a mainstream part of the economy now, with hundreds of thousands of people employed in casinos nationwide. We do polls every year and it’s pretty consistent: 15 percent of people oppose all forms of gambling. You’ll never change them and all we can do is respect their views. But 80 percent believe gaming is all right, and that’s a very positive thing for our industry.”

Fahrenkopf previously served as the chairman of the Republic National Committee from 1983 until he left that post in 1989.

   TOP

multi color and multi value status bars in vb.net



bluebar

   Displaying large amounts of data in small areas with the visual benefit of status bars or “bar graphs” is great. Doing this within a poker app requires the graphs to have two, three, four, or even five data values to display for each player’s action. I searched for a control that would handle the problem but had no results. here is my solution.

In each example above, I made three labels…

  • set each back color to the desired color
  • set the text alignment to left-center
  • set the heights to the desired height of the entire control
  • set the widths to the desired width of the entire control
  • set the locations the same

You can make a fourth label, 2 pixels larger, that is bordered for the background and make these three borderless for a nice affect.
You can use picture boxes and stretch images to create an even better effect. Whatever you have time for. ( I have made some very nice controls with this method)

 

 

Private Sub DisplayIt(lbl1 As Label, lbl2 As Label, lbl3 As Label, val1 As Integer, val2 As Integer, val3 As Integer)

Martin Carter – psxpoker.com

 ‘the percentage of graph used by each label, times 200 pixels (the width of the control)

lbl1.Width = val1 / (val1 + val2 + val3) * 200

lbl2.Width = val2 / (val1 + val2 + val3) * 200

lbl3.Width = val3 / (val1 + val2 + val3) * 200

 ‘the position of the 2nd and 3rd labels

lbl2.Left = (lbl1.Left + lbl1.Width)

lbl3.Left = (lbl2.Left + lbl2.Width)

 
‘print the values on the labels

lbl1.Text = Math.Round(val1 / (val1 + val2 + val3) * 100) & “%”

lbl2.Text = Math.Round(val2 / (val1 + val2 + val3) * 100) & “%”

lbl3.Text =Math.Round(val3 / (val1 + val2 + val3) * 100) & “%”

End Sub

 

‘use the sub like this…

 

PrivateSub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Call DisplayIt(Label1, Label2, Label3, 11, 17, 5)

‘remember to handle the “isnumeric” exeption when passing the values

‘if 1 value is 0 then the other 2 labels will fill the control with the correct %

 EndSub

 

I use these controls to display “wins-uncalled wins-losses”, “bets preflop-flop-turn-river”, “in hand UTG-UTG+1-mid-mid+1-hijack-cutoff-button”. etc.

   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