Getting numbers from roulette client such as Paddy Power?

Mariiikar

Hi all. I need help on creating a roulette bot. All I really need to know is how do I grab the numbers from the roulette client like say Paddy Power or 365. After that I know how to do everything else.

I heard of words like hooking and injecting dlls etc but not familiar on how to do this. Would love if this can be done with visual basic but c# is ok.

I've checked out the site www.codingthewheel.com
and that gives a good tutorial on a poker bot which would be kind of similar I presume but I think grabbing the numbers from the roulette tables should be easier then that. If anyone can help me please do.
If anyone wants to get involved we can develop this together. Really want to get this project up and running.

Mariiikar

Found a link describing exactly what I need but it's in Java and I've written most of the program already in Visual Basic.
Can someone please translate some of this for me from Java to Visual Basic 2008 as I don't know how??
http://internna.blogspot.com/2008/05/creating-playing-bot-in-java.html

JimmyCrackCorn!

There would be legality issues in this.

To do it reliably would involve "design recovery" or "reverse engineering" of code that is copyrighted code.

All ill say is that the techniques used are similar to those used in developing game trainers and what used to be called memory resident patches.

replicantface

Unfortunately there is no possible way that a roulette bot can make money.

A poker playing bot generates winnings by slowly and consistently beating bad players.

The roulette bot will (by the law of averages) simply lose several percent of the stake each time.

Mariiikar

I am not going to use this to "make money". I just want create one for the education behind it. I might decide to go on and make a poker bot. A lot of great techniques are used to create these bots and I actually find it fun. By the way, there is one way of winning online roulette. As the RNG is programmed to stop most systems from working, why not use this to your advantage. You can look this up on google.

Anyways I'm stuck on another problem. I'm creating the bot in Visual Basic 2008 Studio. I have enter_Button.PerformClick wrote at the bottom of the program (so basically I'm looping the Enter button) and this is overloading the stack. Does anyone have any idea how not to overload the stack but still have the enter_Button data on repeat?

When I'm finished I will post a guide on how to create a Roulette bot in Visual Basic for any one that is interested. Might even make a site for it as there doesn't seem to be any roulette bots for Irish online casinos that accept laser card. So should be a hit. Or might just sell mine. Hmmm..... Don't know yet.

Mariiikar

I need to make the image comparison more accurate and also I need to get rid of the overstack because I am looping the Return key to infinity. So if anyone has any alternatives to this your help would be greatly appreciated. It is for Joyland Casino Premium Roulette European. Its programmed in Microsoft Visual Studio 2008 with Visual Basic.


[code]Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Drawing.Imaging

Public Class RouletteBot

'Mouse Clicks Control
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down



'System Counter Variables
Dim red_Counter As Integer
Dim black_Counter As Integer
Dim red_SystemOne As Integer
Dim black_SystemOne As Integer
Dim red_SystemTwo As Integer
Dim black_SystemTwo As Integer
Dim red_SystemThree As Integer
Dim black_SystemThree As Integer
Dim red_SystemFour As Integer
Dim black_SystemFour As Integer
Dim red_SystemFive As Integer
Dim black_SystemFive As Integer
Dim red_SystemSix As Integer
Dim black_SystemSix As Integer
Dim red_SystemSeven As Integer
Dim black_SystemSeven As Integer
Dim red_SystemEight As Integer
Dim black_SystemEight As Integer
Dim red_SystemNine As Integer
Dim black_SystemNine As Integer
Dim counter As Integer
Dim antiClickerCounter As Integer

Dim red_SystemOneRepeat As Integer
Dim black_SystemOneRepeat As Integer
Dim redblack_SystemOneRepeat As Integer
Dim blackred_SystemOneRepeat As Integer
Dim red_SystemTwoRepeat As Integer
Dim black_SystemTwoRepeat As Integer
Dim redblack_SystemTwoRepeat As Integer
Dim blackred_SystemTwoRepeat As Integer
Dim red_SystemThreeRepeat As Integer
Dim black_SystemThreeRepeat As Integer
Dim redblack_SystemThreeRepeat As Integer
Dim blackred_SystemThreeRepeat As Integer
Dim red_SystemFourRepeat As Integer
Dim black_SystemFourRepeat As Integer
Dim redblack_SystemFourRepeat As Integer
Dim blackred_SystemFourRepeat As Integer
Dim red_SystemFiveRepeat As Integer
Dim black_SystemFiveRepeat As Integer
Dim redblack_SystemFiveRepeat As Integer
Dim blackred_SystemFiveRepeat As Integer
Dim red_SystemSixRepeat As Integer
Dim black_SystemSixRepeat As Integer
Dim redblack_SystemSixRepeat As Integer
Dim blackred_SystemSixRepeat As Integer
Dim red_SystemSevenRepeat As Integer
Dim black_SystemSevenRepeat As Integer
Dim redblack_SystemSevenRepeat As Integer
Dim blackred_SystemSevenRepeat As Integer
Dim red_SystemEightRepeat As Integer
Dim black_SystemEightRepeat As Integer
Dim redblack_SystemEightRepeat As Integer
Dim blackred_SystemEightRepeat As Integer
Dim red_SystemNineRepeat As Integer
Dim black_SystemNineRepeat As Integer
Dim redblack_SystemNineRepeat As Integer
Dim blackred_SystemNineRepeat As Integer





Private Sub enter_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enter_Button.Click

If antiClickerCounter = 0 Then
'Simulate a single click
Cursor.Clip = New Rectangle(588, 617, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing
Else
antiClickerCounter = 0
End If


Threading.Thread.Sleep(2000)
Dim numPic As New ScreenShot.ScreenCapture
Dim MyBitMap As Bitmap = numPic.CaptureDeskTopRectangle(New Rectangle(369, 308, 84, 84), 84, 84)
MyBitMap.Save("C:\Users\Mariiikar\Documents\PPProgramPics\recentPic.bmp", Imaging.ImageFormat.Jpeg)


'Screen Capture Code For Win/Loss
Dim winLoss As New ScreenShot.ScreenCapture
'returns bitmap of region of desktop by passing in a rectangle
Dim didIWin As Bitmap = winLoss.CaptureDeskTopRectangle(New Rectangle(867, 166, 223, 26), 223, 26)
didIWin.Save("C:\Users\Mariiikar\Documents\PPProgramPics\winLossPic.bmp", Imaging.ImageFormat.Jpeg)



'Image Variables
Dim winLossPic As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\winLossPic.bmp")
Dim winLossTwoPic As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\winLossTwoPic.bmp")
Dim recentPic As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\recentPic.bmp")
Dim pic0 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\0.bmp")
Dim pic1 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\1.bmp")
Dim pic2 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\2.bmp")
Dim pic3 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\3.bmp")
Dim pic4 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\4.bmp")
Dim pic5 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\5.bmp")
Dim pic6 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\6.bmp")
Dim pic7 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\7.bmp")
Dim pic8 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\8.bmp")
Dim pic9 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\9.bmp")
Dim pic10 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\10.bmp")
Dim pic11 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\11.bmp")
Dim pic12 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\12.bmp")
Dim pic13 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\13.bmp")
Dim pic14 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\14.bmp")
Dim pic15 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\15.bmp")
Dim pic16 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\16.bmp")
Dim pic17 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\17.bmp")
Dim pic18 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\18.bmp")
Dim pic19 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\19.bmp")
Dim pic20 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\20.bmp")
Dim pic21 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\21.bmp")
Dim pic22 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\22.bmp")
Dim pic23 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\23.bmp")
Dim pic24 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\24.bmp")
Dim pic25 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\25.bmp")
Dim pic26 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\26.bmp")
Dim pic27 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\27.bmp")
Dim pic28 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\28.bmp")
Dim pic29 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\29.bmp")
Dim pic30 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\30.bmp")
Dim pic31 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\31.bmp")
Dim pic32 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\32.bmp")
Dim pic33 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\33.bmp")
Dim pic34 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\34.bmp")
Dim pic35 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\35.bmp")
Dim pic36 As Bitmap = Image.FromFile("C:\Users\Mariiikar\Documents\PPProgramPics\36.bmp")
'Screen Capture Variables











'If recent pic equals any of the pics, perform relevant action.
If isIdentical(recentPic, pic0) = True Then
red_Counter = 0
black_Counter = 0
' MessageBox.Show("0")
pic0.Dispose()
recentPic.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic1) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("1")
recentPic.Dispose()
pic1.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic2) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("2")
recentPic.Dispose()
pic2.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic3) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("3")
recentPic.Dispose()
pic3.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic4) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("4")
recentPic.Dispose()
pic4.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic5) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("5")
recentPic.Dispose()
pic5.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic6) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("6")
recentPic.Dispose()
pic6.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic7) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("7")
recentPic.Dispose()
pic7.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic8) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("8")
recentPic.Dispose()
pic8.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic9) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("9")
recentPic.Dispose()
pic9.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic10) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("10")
recentPic.Dispose()
pic10.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic11) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("11")
recentPic.Dispose()
pic11.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic12) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("12")
recentPic.Dispose()
pic12.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic13) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("13")
recentPic.Dispose()
pic13.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic14) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("14")
recentPic.Dispose()
pic14.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic15) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("15")
recentPic.Dispose()
pic15.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic16) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("16")
recentPic.Dispose()
pic16.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic17) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("17")
recentPic.Dispose()
pic17.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic18) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("18")
recentPic.Dispose()
pic18.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic19) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("19")
recentPic.Dispose()
pic19.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic20) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("20")
recentPic.Dispose()
pic20.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic21) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("21")
recentPic.Dispose()
pic21.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic22) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("22")
recentPic.Dispose()
pic22.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic23) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("23")
recentPic.Dispose()
pic23.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic24) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("24")
recentPic.Dispose()
pic24.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic25) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("25")
recentPic.Dispose()
pic25.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic26) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("26")
recentPic.Dispose()
pic26.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic27) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("27")
recentPic.Dispose()
pic27.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic28) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("28")
recentPic.Dispose()
pic28.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic29) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("29")
recentPic.Dispose()
pic29.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic30) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("30")
recentPic.Dispose()
pic30.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic31) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("31")
recentPic.Dispose()
pic31.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic32) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("32")
recentPic.Dispose()
pic32.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic33) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("33")
recentPic.Dispose()
pic33.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic34) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("34")
recentPic.Dispose()
pic34.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic35) = True Then 'black
black_Counter = black_Counter + 1
'MessageBox.Show("35")
recentPic.Dispose()
pic35.Dispose()


'Loops Process

ElseIf isIdentical(recentPic, pic36) = True Then 'red
red_Counter = red_Counter + 1
'MessageBox.Show("36")
recentPic.Dispose()
pic36.Dispose()


'Loops Process

Else
Me.Refresh()
antiClickerCounter = antiClickerCounter + 1
Button1.PerformClick()

End If


'This is so that if only two colours come up in a row, then the systhree counter is reset.
Me.Refresh()
If red_Counter = 2 And black_Counter = 1 Then
red_SystemThree = 0
End If
If black_Counter = 2 And red_Counter = 1 Then
black_SystemThree = 0
End If

'Resets System 6
If red_Counter = 4 And black_Counter = 1 Then
red_SystemSeven = 0
End If
If black_Counter = 4 And red_Counter = 1 Then
black_SystemSeven = 0
End If

'Resets System 8
If red_Counter > 5 Then
red_SystemEight = 0
End If
If black_Counter > 5 Then
black_SystemEight = 0
End If

'Resets System 4
If red_Counter > 3 Then
red_SystemFour = 0
End If
If black_Counter > 3 Then
black_SystemFour = 0
End If

'Resets System 9
If red_Counter = 5 And black_Counter = 1 Then
red_SystemNine = 0
End If
If black_Counter = 5 And red_Counter = 1 Then
black_SystemNine = 0
End If
'Resets System 1 counters
If black_Counter = 1 And red_Counter = 1 Then
red_SystemOne = 0
End If
If red_Counter = 1 And black_Counter = 1 Then
black_SystemOne = 0
End If

'Resets System 5 counters
If red_Counter = 1 And black_Counter = 3 Then
black_SystemFive = 0
End If
If black_Counter = 1 And red_Counter = 3 Then
red_SystemFive = 0
End If

'Resets System 6 counters
If red_Counter > 4 Then
red_SystemSix = 0
End If
If black_Counter > 4 Then
black_SystemSix = 0
End If

'This is to make sure that when one check box is checked the other is cleared
If black_Counter > 0 And red_Counter = 1 Then
black_Counter = 0
End If
If red_Counter > 0 And black_Counter = 1 Then
red_Counter = 0
End If

'System 1
If red_Counter = 2 Then
red_SystemOne = red_SystemOne + 1


End If



If black_Counter = 2 Then
black_SystemOne = black_SystemOne + 1

End If


'System 2
If red_Counter = 2 Then
red_SystemTwo = red_SystemTwo + 1

End If
If black_Counter = 2 Then
black_SystemTwo = black_SystemTwo + 1

End If

'System 3
If red_Counter = 3 Then
red_SystemTwo = 0
red_SystemThree = red_SystemThree + 1

End If
If black_Counter = 3 Then
black_SystemTwo = 0
black_SystemThree = black_SystemThree + 1

End If

'System 4
If red_Counter = 3 Then
red_SystemFour = red_SystemFour + 1

End If
If black_Counter = 3 Then
black_SystemFour = black_SystemFour + 1

End If

'System 5
If red_Counter = 4 Then
red_SystemFive = red_SystemFive + 1

End If
If black_Counter = 4 Then
black_SystemFive = black_SystemFive + 1

End If

'System 6
If red_Counter = 4 Then
red_SystemSix = red_SystemSix + 1

End If
If black_Counter = 4 Then
black_SystemSix = black_SystemSix + 1

End If

'System 7
If red_Counter = 5 Then
red_SystemSeven = red_SystemSeven + 1
End If
If black_Counter = 5 Then
black_SystemSeven = black_SystemSeven + 1

End If

'System 8
If red_Counter = 5 Then
red_SystemEight = red_SystemEight + 1
End If
If black_Counter = 5 Then
black_SystemEight = black_SystemEight + 1
End If

'System 9
If red_Counter = 6 Then
red_SystemNine = red_SystemNine + 1
End If
If black_Counter = 6 Then
black_SystemNine = black_SystemNine + 1
End If

'System 1 Messages
If black_SystemOne = 8 And black_Counter = 1 Then
' MessageBox.Show("Bet On Red, therefore betting that black will stay a single colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemOne = 0
red_SystemOneRepeat = red_SystemOneRepeat + 1



End If
If red_SystemOne = 8 And red_Counter = 1 Then
'MessageBox.Show("Bet On Black, therefore betting that red will stay a single colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemOne = 0
black_SystemOneRepeat = 1

End If
If red_SystemOne + black_SystemOne = 12 And red_Counter = 1 Then
'MessageBox.Show("Bet On Black,therefore betting that red will stay a single colour. ", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemOne = 0
black_SystemOne = 0
blackred_SystemOneRepeat = 1

End If
If red_SystemOne + black_SystemOne = 12 And black_Counter = 1 Then
'MessageBox.Show("Bet On Red, therefore betting that black will stay a single colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemOne = 0
black_SystemOne = 0
redblack_SystemOneRepeat = 1
End If

'System 2 Messages
If red_SystemTwo = 9 And red_Counter = 2 Then
'MessageBox.Show("Bet On Red, If lost wait until there are two Reds in a row and bet on Red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemTwo = 0
red_SystemTwoRepeat = 1

End If
If black_SystemTwo = 9 And black_Counter = 2 Then
'MessageBox.Show("Bet On Black, If lost wait until there are two Blacks in a row and bet on Black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemTwo = 0
black_SystemTwoRepeat = 1
End If
If black_SystemTwo + red_SystemTwo = 10 And red_Counter = 2 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time there are two red in a row and bet 2 units on red. ", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemTwo = 0
black_SystemTwo = 0
redblack_SystemTwoRepeat = 1
End If

If red_SystemTwo + black_SystemTwo = 10 And black_Counter = 2 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time there are two black in a row and bet 2 units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemTwo = 0
black_SystemTwo = 0
blackred_SystemTwoRepeat = 1
End If

'System 3 Messages
If red_SystemThree = 9 And red_Counter = 2 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you have two reds in a row and bet 2 units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemThree = 0
red_SystemThreeRepeat = 1
End If
If black_SystemThree = 9 And black_Counter = 2 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you have two blacks in a row and bet 2 units on red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemThree = 0
red_SystemThreeRepeat = 1
End If
If red_SystemThree + black_SystemThree = 10 And red_Counter = 2 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you have two reds in a row and bet 2 units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemThree = 0
black_SystemThree = 0
black_SystemThreeRepeat = 1
End If
If red_SystemThree + black_SystemThree = 10 And black_Counter = 2 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you have two blacks in a row and bet 2 units on red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemThree = 0
black_SystemThree = 0
redblack_SystemThreeRepeat = 1
End If

'System 4 Messages
If red_SystemFour = 7 And red_Counter = 3 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time three reds in a row and bet 2 units on red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemFour = 0
red_SystemFourRepeat = 1
End If
If black_SystemFour = 7 And black_Counter = 3 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time three blacks in a row and bet 2 units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemFour = 0
black_SystemFourRepeat = 1
End If
If red_SystemFour + black_SystemFour = 9 And red_Counter = 3 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time three of same colour in a row and bet 2 units on that colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemFour = 0
black_SystemFour = 0
redblack_SystemFourRepeat = 1
End If
If red_SystemFour + black_SystemFour = 9 And black_Counter = 3 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time three of same colour in a row and bet 2 units on that colour", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemFour = 0
black_SystemFour = 0
blackred_SystemFourRepeat = 1
End If

'System 5 Messages
If red_SystemFive = 7 And red_Counter = 3 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get three reds in a row and bet two units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemFive = 0
black_SystemFiveRepeat = 1
End If
If black_SystemFive = 7 And red_Counter = 3 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get three blacks in a row and bet two units on red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemFive = 0
red_SystemFiveRepeat = 1
End If
If red_SystemFive + black_SystemFive = 7 And red_Counter = 3 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get three reds in a row bet two units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemFive = 0
black_SystemFive = 0
blackred_SystemFiveRepeat = 1
End If
If red_SystemFive + black_SystemFive = 7 And black_Counter = 3 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get three blacks in a row and bet two units on red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemFive = 0
black_SystemFive = 0
redblack_SystemFiveRepeat = 1
End If

'System 6 Messages
If red_SystemSix = 7 And red_Counter = 4 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get four reds in a row and bet two units on red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemSix = 0
red_SystemSixRepeat = 1
End If
If black_SystemSix = 7 And black_Counter = 4 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get four blacks in a row and bet two units on black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemSix = 0
black_SystemSixRepeat = 1
End If
If red_SystemSix + black_SystemSix = 7 And red_Counter = 4 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get four of the same colour in a row and bet two units on that colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemSix = 0
black_SystemSix = 0
redblack_SystemSixRepeat = 1
End If
If red_SystemSix + black_SystemSix = 7 And black_Counter = 4 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get four of the same colour in a row and bet two units on that colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemSix = 0
black_SystemSix = 0
blackred_SystemSixRepeat = 1
End If

'System 7 Messages
If red_SystemSeven = 7 And red_Counter = 4 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get four Reds in a row and bet two units Black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemSeven = 0
black_SystemSevenRepeat = 1
End If
If black_SystemSeven = 7 And black_Counter = 4 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get four of Blacks in a row and bet two units on Red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemSeven = 0
red_SystemSevenRepeat = 1
End If
If red_SystemSeven + black_SystemSeven = 7 And red_Counter = 4 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get four of the same colour in a row and bet two units on opposite colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemSeven = 0
black_SystemSeven = 0
blackred_SystemSevenRepeat = 1
End If
If red_SystemSeven + black_SystemSeven = 7 And black_Counter = 4 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get four of the same colour in a row and bet two units on opposite colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemSeven = 0
black_SystemSeven = 0
redblack_SystemSevenRepeat = 1
End If

'System 8 Messages
If red_SystemEight = 4 And red_Counter = 5 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get five Reds in a row and bet two units on Red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemEight = 0
red_SystemEightRepeat = 1
End If
If black_SystemEight = 4 And black_Counter = 5 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get five Blacks in a row and bet two units on Black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemEight = 0
black_SystemEightRepeat = 1
End If
If red_SystemEight + black_SystemEight = 4 And red_Counter = 5 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get five Reds in a row and bet two units on Red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemEight = 0
black_SystemEight = 0
redblack_SystemEightRepeat = 1
End If
If red_SystemEight + black_SystemEight = 4 And black_Counter = 5 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get five Blacks in a row and bet two units on Black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemEight = 0
black_SystemEight = 0
blackred_SystemEightRepeat = 1
End If

'System 9 Messages
If red_SystemNine = 4 And red_Counter = 5 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get five Reds in a row and bet two units on Black.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemNine = 0
black_SystemNineRepeat = 1
End If
If black_SystemNine = 4 And black_Counter = 5 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get five Blacks in a row and bet two units on Red.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
black_SystemNine = 0
red_SystemNineRepeat = 1
End If
If red_SystemNine + black_SystemNine = 4 And red_Counter = 5 Then
'MessageBox.Show("Bet On Black, If lost wait until the next time you get five of same colour in a row and bet two units on opposite colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemNine = 0
black_SystemNine = 0
blackred_SystemNineRepeat = 1
End If
If red_SystemNine + black_SystemNine = 4 And black_Counter = 5 Then
'MessageBox.Show("Bet On Red, If lost wait until the next time you get five of same colour in a row and bet two units on opposite colour.", "Betting Time", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
red_SystemNine = 0
black_SystemNine = 0
redblack_SystemNineRepeat = 1
End If

'MONEY
'Money Betting System 1
If black_Counter = 1 Then
If red_SystemOneRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf red_SystemOneRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = red_SystemOneRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf red_SystemOneRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = False Then
red_SystemOneRepeat = 0
Else
End If
End If

If red_Counter = 1 Then
If black_SystemOneRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf black_SystemOneRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = black_SystemOneRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf black_SystemOneRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
black_SystemOneRepeat = 0
Else
End If
End If

If black_Counter = 1 Then
If redblack_SystemOneRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf redblack_SystemOneRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = redblack_SystemOneRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf redblack_SystemOneRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
redblack_SystemOneRepeat = 0
Else
End If
End If

If red_Counter = 1 Then
If blackred_SystemOneRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = blackred_SystemOneRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf blackred_SystemOneRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = blackred_SystemOneRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf blackred_SystemOneRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
blackred_SystemOneRepeat = 0
Else
End If
End If


'Money Betting System 2
If black_Counter = 2 Then
If black_SystemTwoRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf black_SystemTwoRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = black_SystemTwoRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf black_SystemTwoRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = False Then
black_SystemTwoRepeat = 0
Else
End If
End If

If red_Counter = 2 Then
If red_SystemTwoRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf red_SystemTwoRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = red_SystemTwoRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf red_SystemTwoRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
red_SystemTwoRepeat = 0
Else
End If
End If

If black_Counter = 1 Then
If blackred_SystemTwoRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf blackred_SystemTwoRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = blackred_SystemTwoRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf blackred_SystemTwoRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
blackred_SystemTwoRepeat = 0
Else
End If
End If

If red_Counter = 1 Then
If redblack_SystemTwoRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = redblack_SystemTwoRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf redblack_SystemTwoRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = redblack_SystemTwoRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf redblack_SystemTwoRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
redblack_SystemTwoRepeat = 0
Else
End If
End If


'Money Betting System 3
If black_Counter = 2 Then
If red_SystemThreeRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf red_SystemThreeRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = red_SystemThreeRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf red_SystemThreeRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = False Then
red_SystemThreeRepeat = 0
Else
End If
End If

If red_Counter = 2 Then
If black_SystemThreeRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf black_SystemThreeRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = black_SystemThreeRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf black_SystemThreeRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
black_SystemThreeRepeat = 0
Else
End If
End If

If black_Counter = 1 Then
If redblack_SystemThreeRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf redblack_SystemThreeRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = redblack_SystemThreeRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf redblack_SystemThreeRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
redblack_SystemThreeRepeat = 0
Else
End If
End If

If red_Counter = 1 Then
If blackred_SystemThreeRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = blackred_SystemThreeRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf blackred_SystemThreeRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = blackred_SystemThreeRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf blackred_SystemThreeRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
blackred_SystemThreeRepeat = 0
Else
End If
End If

'Money Betting System 4
If black_Counter = 3 Then
If black_SystemFourRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf black_SystemFourRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = black_SystemFourRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf black_SystemFourRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = False Then
black_SystemFourRepeat = 0
Else
End If
End If

If red_Counter = 3 Then
If red_SystemFourRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf red_SystemFourRepeat > 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = red_SystemFourRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf red_SystemFourRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
red_SystemFourRepeat = 0
Else
End If
End If

If black_Counter = 3 Then
If blackred_SystemFourRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then


Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf blackred_SystemFourRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = blackred_SystemFourRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf blackred_SystemFourRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
blackred_SystemFourRepeat = 0
Else
End If
End If

If red_Counter = 3 Then
If redblack_SystemFourRepeat = 1 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = redblack_SystemFourRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()
ElseIf redblack_SystemFourRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = True Then
Dim noToBet As Integer = redblack_SystemFourRepeat * 2

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(674, 477, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, noToBet)
Cursor.Clip = Nothing

Threading.Thread.Sleep(100)
'Simulate a single click
Cursor.Clip = New Rectangle(589, 619, 5, 5)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
Cursor.Clip = Nothing

winLossTwoPic.Dispose()

ElseIf redblack_SystemFourRepeat > 0 And isIdentical(winLossPic, winLossTwoPic) = False Then
redblack_SystemFourRepeat = 0
Else
End If
End If

winLossPic.Dispose()
recentPic.Dispose()

info_RichTextBox.Refresh()
info_RichTextBox.Update()
'info_RichTextBox.Text = red_Counter.ToString + " " + black_Counter.ToString + " System " + red_SystemOne.ToString + " " + black_SystemOne.ToString + " SYS 2 " + red_SystemTwo.ToString + " " + black_SystemTwo.ToString + " systhree " + red_SystemThree.ToString + " " + black_SystemThree.ToString + " sysFour " + red_SystemFour.ToString + " " + black_SystemFour.ToString + " SysFive " + red_SystemFive.ToString + " " + black_SystemFive.ToString + " SysSix " + red_SystemSix.ToString + " " + black_SystemSix.ToString + " SystemSeven " + red_SystemSeven.ToString + " " + black_SystemSeven.ToString + " SystemEight " + red_SystemEight.ToString + " " + black_SystemEight.ToString

Me.Refresh()
Me.Focus()


Threading.Thread.Sleep(1000)
enter_Button.PerformClick()

End Sub



Private Sub clear_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear_Button.Click
black_CheckBox.Checked = False
red_CheckBox.Checked = False
red_Counter = 0
black_Counter = 0
red_SystemOne = 0
black_SystemOne = 0
red_SystemTwo = 0
red_SystemThree = 0
black_SystemTwo = 0
black_SystemThree = 0
red_SystemFour = 0
black_SystemFour = 0
black_SystemFive = 0
red_SystemFive = 0
red_SystemSix = 0
black_SystemSix = 0
red_SystemSeven = 0
black_SystemSeven = 0
red_SystemEight = 0
black_SystemEight = 0
red_SystemNine = 0
black_SystemNine = 0
End Sub

Public Function isIdentical(ByVal image1 As Bitmap, ByVal image2 As Bitmap) As Boolean
' Make a difference image.

Dim wid As Integer = Math.Min(image1.Width, image2.Width)
Dim hgt As Integer = Math.Min(image1.Height, image2.Height)
Dim bm3 As New Bitmap(wid, hgt)

' Create the difference image.
isIdentical = True
Dim eq_color As Color = Color.Black
Dim ne_color As Color = Color.Red
For x As Integer = 0 To wid - 1
For y As Integer = 0 To hgt - 1
If image1.GetPixel(x, y).Equals(image2.GetPixel(x, _
y)) Then
bm3.SetPixel(x, y, eq_color)
Else
bm3.SetPixel(x, y, ne_color)
isIdentical = False
End If
Next y
Next x

Me.Cursor = Cursors.Default
If (image1.Width <> image2.Width) OrElse (image1.Height <> _
image2.Height) Then isIdentical = False

End Function

Private Sub zero_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero_button.Click

End Sub




Private Sub RouletteBot_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
info_RichTextBox.Text = red_Counter.ToString + " " + black_Counter.ToString + " System " + red_SystemOne.ToString + " " + black_SystemOne.ToString + " SYS 2 " + red_SystemTwo.ToString + " " + black_SystemTwo.ToString + " systhree " + red_SystemThree.ToString + " " + black_SystemThree.ToString + " sysFour " + red_SystemFour.ToString + " " + black_SystemFour.ToString + " SysFive " + red_SystemFive.ToString + " " + black_SystemFive.ToString + " SysSix " + red_SystemSix.ToString + " " + black_SystemSix.ToString + " SystemSeven " + red_SystemSeven.ToString + " " + black_SystemSeven.ToString + " SystemEight " + red_SystemEight.ToString + " " + black_SystemEight.ToString

End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


End Sub
End Class

'ScreenShot Class
Namespace ScreenShot
'/ Provides functions to capture the entire screen, or a particular window, and save it to a file.
Public Class

p

Can you screen grab of a certain region? If so you could do some basic image detection by comparing the icon found to one you've already stored? e.g. does the 20 x 20 pixel image look like a '9' or a '7'

Since there's only a pre-defined set of characters, it shouldn't be too difficult.

hotspur

Mariiikar wrote: »

By the way, there is one way of winning online roulette. As the RNG is programmed to stop most systems from working, why not use this to your advantage.

The RNG isn't programmed to stop systems from working, the inherent probability of the game stops people from winning. There are no systems possible which make money from games such as roulette anymore than you can devise a system to beat a coin tossing game where you only get 75% of your wager back if you win.

And please God don't posit the Martingale system. But if it's just for fun then grand, I just don't want you losing money by trying something that's not mathematically possible.

Check out this well regarded site about such betting systems:
http://wizardofodds.com/gambling/bettingsystems.html

Mariiikar

I can already compare the images. How do I take screen shot in a window even if its minimised??