ピグの着せ替えを保存する瞬間の
パケットをとって
連続再生すればできます。
パケットをとって
連続再生すればできます。
やり方
1、WPE起動して、自分の頭のうえの三角にやつ押すのを記録します。
2、そしたら、パケットサイズ35 が出てくるから、パケット送信画面を出して、16進数をコピーします。
3、それで、フィルター1のSEARCH とMODIFYに貼り付けます。
4、そしたら、30と32を空白にしてMODIFYの30に01、32に01をいれて適応させてONにします。
5、それで頭の上の三角押したら憑依が出来ます。
PS、MODIFYにいれる01は座標位置なので、憑依したい座標をいれて下さい。カリブ海の海の座標は34.1Bだったような…
1、WPE起動して、自分の頭のうえの三角にやつ押すのを記録します。
2、そしたら、パケットサイズ35 が出てくるから、パケット送信画面を出して、16進数をコピーします。
3、それで、フィルター1のSEARCH とMODIFYに貼り付けます。
4、そしたら、30と32を空白にしてMODIFYの30に01、32に01をいれて適応させてONにします。
5、それで頭の上の三角押したら憑依が出来ます。
PS、MODIFYにいれる01は座標位置なので、憑依したい座標をいれて下さい。カリブ海の海の座標は34.1Bだったような…
このバグを説明します。
まず、同じいすを2つ用意します。
まず1つ目のいすを置くパケットをとります。
そして、そのいすを動かさずにさっきのパケットを1回送信します。
すると2つ重なって1つしかないように見えます。
座ると1つ目に座るので2つ目が上になっていすの下に座っているように見えるわけです。
ベッドやソファーなど座れるものならなんでもできます
まず、同じいすを2つ用意します。
まず1つ目のいすを置くパケットをとります。
そして、そのいすを動かさずにさっきのパケットを1回送信します。
すると2つ重なって1つしかないように見えます。
座ると1つ目に座るので2つ目が上になっていすの下に座っているように見えるわけです。
ベッドやソファーなど座れるものならなんでもできます
バカラバグのやり方を公開します。
まずは、サブピグを用意します
そして、バカラテーブルAにすわらせます。
そして、バカラテーブルBと合体させ
いつでも決定を押せる状態にしてください。
そして、メインをBにすわらせます。
そして、チートエンジンを起動します。
そして、そのメインでゲームを始めて
ゲームが終盤を迎え
WIN LOSE
がきまったところで
決定ボタンをサブでおします
メインで４枚目がひかれるときに
チートエンジンで、enable speed hack
で
速さを、０にします。
画面がかたまります
これで、前のバカラバグを実現できます
それから、サブの決定ボタンの押し方を考えると
TIE無限をすることができます。
TIE無限は、あわせることでできるようになります。
ほかにもやり方があるようですが
少なくとも
僕はわかりません
まずは、サブピグを用意します
そして、バカラテーブルAにすわらせます。
そして、バカラテーブルBと合体させ
いつでも決定を押せる状態にしてください。
そして、メインをBにすわらせます。
そして、チートエンジンを起動します。
そして、そのメインでゲームを始めて
ゲームが終盤を迎え
WIN LOSE
がきまったところで
決定ボタンをサブでおします
メインで４枚目がひかれるときに
チートエンジンで、enable speed hack
で
速さを、０にします。
画面がかたまります
これで、前のバカラバグを実現できます
それから、サブの決定ボタンの押し方を考えると
TIE無限をすることができます。
TIE無限は、あわせることでできるようになります。
ほかにもやり方があるようですが
少なくとも
僕はわかりません
やり方
1、WPE起動してALL PLAY押す瞬間を記録。
2、パケットサイズ27が出てくるから、パケット送信画面を出して、Timerを100にし、連続再生にチェックいれてください。
3、できたら、再生ボタン押してください。
質問受け付けます。
1、WPE起動してALL PLAY押す瞬間を記録。
2、パケットサイズ27が出てくるから、パケット送信画面を出して、Timerを100にし、連続再生にチェックいれてください。
3、できたら、再生ボタン押してください。
質問受け付けます。
プロレス広場のストロングマン怒りの突進のキャッシュをkitayo_omisoka_secretに書き換える。
超適当に書きます
WPE・・・・略
WPEのF1の↑に自の歩いたパケ貼り付け
下に相手のパケ
両側の 30 32 35の ところを空白
適応・・・略
90度回転すると(ry
別記事
2つ方法があります。
1つめです。
1、WPEを起動して、自分が歩くのを記録してください。
2、そしたら、パケットサイズ35が出るので、パケット送信画面を出して、16進数をコピーしてください。
3、フィルターを出して、MODIFYに貼り付けて、適応してください。
4、そして、次に他人が歩くのを記録してください。
5、そしたら、パケットサイズ35が出るので、パケット送信画面を出して16進数をコピーしてください。
6、さっきのフィルターのSEARCHにこぴーしてください。
7、そしたら、30.32.35のSEARCHとMIDIFYを空白にして適応させてON押してください。
8、それで、他人が動いたら自分もついて行きます。
9、でも具現化してません;;なので、相手が動いたとこに行ったら、頭のうえの三角ボタンを押してください。そしたら、相手にも見えます。
2つ目のやり方です。
さっきの1～6までの手順は同じです。
7、そしたら、30.32のSEARCHとMODIFYを空白にして適応してON押してください。
8、そしたら、相手が動いたら一緒についていきます。(これは、具現化しています。)
※2つ目のやり方は時々失敗します。
WPE・・・・略
WPEのF1の↑に自の歩いたパケ貼り付け
下に相手のパケ
両側の 30 32 35の ところを空白
適応・・・略
90度回転すると(ry
別記事
2つ方法があります。
1つめです。
1、WPEを起動して、自分が歩くのを記録してください。
2、そしたら、パケットサイズ35が出るので、パケット送信画面を出して、16進数をコピーしてください。
3、フィルターを出して、MODIFYに貼り付けて、適応してください。
4、そして、次に他人が歩くのを記録してください。
5、そしたら、パケットサイズ35が出るので、パケット送信画面を出して16進数をコピーしてください。
6、さっきのフィルターのSEARCHにこぴーしてください。
7、そしたら、30.32.35のSEARCHとMIDIFYを空白にして適応させてON押してください。
8、それで、他人が動いたら自分もついて行きます。
9、でも具現化してません;;なので、相手が動いたとこに行ったら、頭のうえの三角ボタンを押してください。そしたら、相手にも見えます。
2つ目のやり方です。
さっきの1～6までの手順は同じです。
7、そしたら、30.32のSEARCHとMODIFYを空白にして適応してON押してください。
8、そしたら、相手が動いたら一緒についていきます。(これは、具現化しています。)
※2つ目のやり方は時々失敗します。
'サイトロジー,サイトプラズム自動ミニバカラ 20110516
'予測機能付き
'------------------------------------------
Private Shared markGame As Integer(,) = New Integer(,) { _
{&H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF _
, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
}
Private Shared markAll As Integer(,) = New Integer(,) { _
{&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF} _
,{&H6532FF,&H784BFF,&H8D67FF,&H7244FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF} _
,{&HA98CFF,&HFFFFFF,&HFFFFFF,&HFBFAFF,&H9A79FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF} _
}
Private Const APPNAME As String = "自動ミニバカラ"
Public Shared Sub main()
If form01.Visible = False Then
form01initial()
form01.Show()
End If
Dim offsetx As Integer
Dim gamePos As Point = imageSearch(markGame)
Dim prog As Integer = 0
If gamePos.X = -1 Then
MessageBox.Show("ミニバカラウインドウの位置が読み取れませんでした。" & ControlChars.CrLf _
& "1.[停止]" & ControlChars.CrLf _
& "2.ミニバカラウインドウを少し移動" & ControlChars.CrLf _
& "3.[再生]して下さい。" & ControlChars.CrLf _
& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
Exit Sub
End If
Do While stopFlag = False
If form01Pause.Checked Then
If prog = 0 Then
prog = 1
form01text("+")
Else
prog = 0
form01text("*")
End If
offsetx = getOffsetx(gamePos)
If offsetx <> -1 Then 'BET可能
If form01Supply.Checked Then
If supply() Then
form01text("補充")
End If
End If
form01text("BET")
bet(gamePos, offsetx)
betAfter(gamePos)
End If
End If
waitMilliSecR(1000)
Loop
End Sub
Private Shared Function getOffsetx(ByVal gamePos As Point) As Integer
For num As Integer = 0 To 4 Step 1
If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
waitMilliSec(500)
If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
Return num * 135
End If
End If
Next
Return -1
End Function
Private Shared Sub form01text(ByVal str As String)
form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
Dim allPos As Point = imageSearch(markAll)
If allPos.X <> -1 Then
mMoveR(allPos.X - 87, allPos.Y)
mClick(1)
Return True
End If
Return False
End Function
Private Shared Sub bet(ByVal gamePos As Point, ByVal offsetx As Integer)
Dim r As Random = New Random
Dim tie1 As Integer
Dim tie2 As Integer
Dim tie3 As Integer
Dim banker1 As Integer
Dim banker2 As Integer
Dim banker3 As Integer
Dim player1 As Integer
Dim player2 As Integer
Dim player3 As Integer
Dim resultFlag As Boolean = False
If form01Radio(1).Checked OrElse form01Radio(2).Checked Then
resultFlag = analyze(gamePos)
If form01Radio(2).Checked Then
resultFlag = Not resultFlag
End If
ElseIf form01Radio(3).Checked Then
resultFlag = False
ElseIf form01Radio(4).Checked Then
resultFlag = True
Else
If r.Next(0,2) < 1 Then
resultFlag = False
Else
resultFlag = True
End If
End If
If resultFlag = False Then
tie1 = CInt(form01tie(1).SelectedItem)
tie2 = CInt(form01tie(2).SelectedItem)
tie3 = CInt(form01tie(3).SelectedItem)
banker1 = CInt(form01banker(1).SelectedItem)
banker2 = CInt(form01banker(2).SelectedItem)
banker3 = CInt(form01banker(3).SelectedItem)
player1 = CInt(form01player(1).SelectedItem)
player2 = CInt(form01player(2).SelectedItem)
player3 = CInt(form01player(3).SelectedItem)
Else
tie1 = CInt(form01tie(4).SelectedItem)
tie2 = CInt(form01tie(5).SelectedItem)
tie3 = CInt(form01tie(6).SelectedItem)
banker1 = CInt(form01banker(4).SelectedItem)
banker2 = CInt(form01banker(5).SelectedItem)
banker3 = CInt(form01banker(6).SelectedItem)
player1 = CInt(form01player(4).SelectedItem)
player2 = CInt(form01player(5).SelectedItem)
player3 = CInt(form01player(6).SelectedItem)
End If
If tie1 > 0 OrElse tie2 > 0 OrElse tie3 > 0 Then
betTie(gamePos, offsetx, tie1, tie2, tie3)
waitMilliSecR(300)
End If
If banker1 > 0 OrElse banker2 > 0 OrElse banker3 > 0 Then
betBanker(gamePos, offsetx, banker1, banker2, banker3)
waitMilliSecR(300)
End If
betPlayer(gamePos, offsetx, player1, player2, player3)
waitMilliSecR(300)
End Sub
Private Shared Sub betTie(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 213)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 225 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 179 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 131 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
End Sub
Private Shared Sub betBanker(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 249)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
End Sub
Private Shared Sub betPlayer(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 302)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
mMoveR(gamePos.X + 169 + offsetx, gamePos.Y + 329)
mClick(1)
End Sub
Private Shared Sub betAfter(ByVal gamePos As Point)
For num As Integer = 0 To 30 Step 1
If getColor(gamePos.X + 263, gamePos.Y + 75) <> &H33cc33 AndAlso getColor(gamePos.X + 263, gamePos.Y + 75) <> &H6532ff Then
Exit For
End If
waitMilliSecR(1000)
If num Mod 2 = 0 Then
form01text("-")
Else
form01text("/")
End If
Next
waitMilliSecR(3000)
End Sub
Private Shared Sub mMoveR(ByVal x As Integer, ByVal y As Integer) 'ヒューマナイズ
Dim r As Random = New Random
mMove(x + r.Next(-5,5), y + r.Next(-3,3))
End Sub
Private Shared Sub waitMilliSecR(ByVal num As Integer) 'ヒューマナイズ
Dim r As Random = New Random
waitMilliSec(num + r.Next(-50,50))
End Sub
Private Shared Function analyze(ByVal gamePos As Point) As Boolean
Dim col(39) As Integer
Dim p As Integer
Dim count As Integer = 0
For num As Integer = 0 To 38 Step 1
col(num) = -1
p = getColor(gamePos.X + 631 - (num * 15), gamePos.Y + 43)
If p = &H00CCFF Then 'Banker
col(count) = 0
ElseIf p = &H0000FF Then 'Player
col(count) = 1
End If
count += 1
Next
col(39) = -1
Dim analyzeResultBanker(15) As Integer
Dim analyzeResultPlayer(15) As Integer
For level As Integer = 1 To 15 Step 1
analyzeResultBanker(level) = analyzeSubBanker(col, level)
If analyzeResultBanker(level) <> -1 Then
form01LB(level).Text = CSng(analyzeResultBanker(level) / 10.0).ToString("#0.0") & "%"
Else
form01LB(level).Text = "---"
End If
analyzeResultPlayer(level) = analyzeSubPlayer(col, level)
If analyzeResultPlayer(level) <> -1 Then
form01LP(level).Text = CSng(analyzeResultPlayer(level) / 10.0).ToString("#0.0") & "%"
Else
form01LP(level).Text = "---"
End If
Next
Dim maxBanker As Integer = 0
Dim maxPlayer As Integer = 0
Dim posBanker As Integer = 0
Dim posPlayer As Integer = 0
For level As Integer = 1 To 15 Step 1
If analyzeResultBanker(level) > maxBanker Then
maxBanker = analyzeResultBanker(level)
posBanker = level
End If
If analyzeResultPlayer(level) > maxPlayer Then
maxPlayer = analyzeResultPlayer(level)
posPlayer = level
End If
form01LB(level).BackColor = Color.Transparent
form01LP(level).BackColor = Color.Transparent
Next
If maxBanker > maxPlayer Then
If posBanker > 0 Then
form01LB(posBanker).BackColor = Color.Yellow
End If
return True 'Banker
Else
If posPlayer > 0 Then
form01LP(posPlayer).BackColor = Color.Yellow
End If
return False 'Player
End If
End Function
Private Shared Function analyzeSubBanker(ByVal col As Integer(), ByVal level As Integer) As Integer
Dim sample As Integer = 0
Dim result As Integer = 0
Dim goukei As Integer
For current As Integer = 0 To (39 - level) Step 1
If col(current + level) <> -1 Then
goukei = 0
For num As Integer = 1 To level Step 1
If col(current + num) <> -1 Then
goukei += col(current + num)
End If
Next
sample += 1
If goukei < (level / 2) AndAlso col(current) = 0 Then
result += 1
End If
End If
Next
If sample > 5 Then
return result * 1000 / sample
End If
return -1
End Function
Private Shared Function analyzeSubPlayer(ByVal col As Integer(), ByVal level As Integer) As Integer
Dim sample As Integer = 0
Dim result As Integer = 0
Dim goukei As Integer
For current As Integer = 0 To (39 - level) Step 1
If col(current + level) <> -1 Then
goukei = 0
For num As Integer = 1 To level Step 1
If col(current + num) <> -1 Then
goukei += col(current + num)
End If
Next
sample += 1
If goukei > (level / 2) AndAlso col(current) = 1 Then
result += 1
End If
End If
Next
If sample > 5 Then
return result * 1000 / sample
End If
return -1
End Function
Private Shared form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01tie(6) As ComboBox
Private Shared form01banker(6) As ComboBox
Private Shared form01player(6) As ComboBox
Private Shared form01LP(15) As Label
Private Shared form01LB(15) As Label
Private Shared form01Radio(5) As RadioButton
Private Shared form01Label(27) As Label
Private Shared Sub form01initial()
For num As Integer = 1 To 6 Step 1
form01tie(num) = New ComboBox
form01banker(num) = New ComboBox
form01player(num) = New ComboBox
Next
For num As Integer = 1 To 15 Step 1
form01LP(num) = New Label
form01LB(num) = New Label
Next
For num As Integer = 1 To 5 Step 1
form01Radio(num) = New RadioButton
Next
For num As Integer = 1 To 27 Step 1
form01Label(num) = New Label
Next
form01Pause.AutoSize = True
form01Pause.Location = New Point(185, 6)
form01Pause.Text = "実行/一時停止"
form01Supply.AutoSize = True
form01Supply.Location = New Point(313, 6)
form01Supply.Text = "カジノ＄補充"
form01tie(1).FormattingEnabled = True
form01tie(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(1).Location = New Point(185, 135)
form01tie(1).Size = New Size(38, 20)
form01tie(2).FormattingEnabled = True
form01tie(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(2).Location = New Point(225, 135)
form01tie(2).Size = New Size(38, 20)
form01tie(3).FormattingEnabled = True
form01tie(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(3).Location = New Point(265, 135)
form01tie(3).Size = New Size(38, 20)
form01tie(4).FormattingEnabled = True
form01tie(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(4).Location = New Point(325, 135)
form01tie(4).Size = New Size(38, 20)
form01tie(5).FormattingEnabled = True
form01tie(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(5).Location = New Point(365, 135)
form01tie(5).Size = New Size(38, 20)
form01tie(6).FormattingEnabled = True
form01tie(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(6).Location = New Point(405, 135)
form01tie(6).Size = New Size(38, 20)
form01banker(1).FormattingEnabled = True
form01banker(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(1).Location = New Point(185, 156)
form01banker(1).Size = New Size(38, 20)
form01banker(2).FormattingEnabled = True
form01banker(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(2).Location = New Point(225, 156)
form01banker(2).Size = New Size(38, 20)
form01banker(3).FormattingEnabled = True
form01banker(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(3).Location = New Point(265, 156)
form01banker(3).Size = New Size(38, 20)
form01banker(4).FormattingEnabled = True
form01banker(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(4).Location = New Point(325, 156)
form01banker(4).Size = New Size(38, 20)
form01banker(5).FormattingEnabled = True
form01banker(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(5).Location = New Point(365, 156)
form01banker(5).Size = New Size(38, 20)
form01banker(6).FormattingEnabled = True
form01banker(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(6).Location = New Point(405, 156)
form01banker(6).Size = New Size(38, 20)
form01player(1).FormattingEnabled = True
form01player(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(1).Location = New Point(185, 177)
form01player(1).Size = New Size(38, 20)
form01player(2).FormattingEnabled = True
form01player(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(2).Location = New Point(225, 177)
form01player(2).Size = New Size(38, 20)
form01player(3).FormattingEnabled = True
form01player(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(3).Location = New Point(265, 177)
form01player(3).Size = New Size(38, 20)
form01player(4).FormattingEnabled = True
form01player(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(4).Location = New Point(325, 177)
form01player(4).Size = New Size(38, 20)
form01player(5).FormattingEnabled = True
form01player(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(5).Location = New Point(365, 177)
form01player(5).Size = New Size(38, 20)
form01player(6).FormattingEnabled = True
form01player(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(6).Location = New Point(405, 177)
form01player(6).Size = New Size(38, 20)
form01Radio(1).AutoSize = True
form01Radio(1).Location = New Point(146, 25)
form01Radio(1).Text = "最適値がPLAYERの場合にAパターンで賭ける(BANKERの場合はB)"
form01Radio(2).AutoSize = True
form01Radio(2).Location = New Point(146, 42)
form01Radio(2).Text = "最適値がPLAYERの場合にBパターンで賭ける(BANKERの場合はA)"
form01Radio(3).AutoSize = True
form01Radio(3).Location = New Point(146, 59)
form01Radio(3).Text = "無条件でAパターンで賭ける"
form01Radio(4).AutoSize = True
form01Radio(4).Location = New Point(146, 76)
form01Radio(4).Text = "無条件でBパターンで賭ける"
form01Radio(5).AutoSize = True
form01Radio(5).Location = New Point(146, 93)
form01Radio(5).Text = "ランダムにAとBを選択する"
For num As Integer = 1 To 15 Step 1
form01LP(num).AutoSize = False
form01LP(num).Location = New Point(39, 41 + ((num - 1) * 12))
form01LP(num).Text = "00.0%"
form01LP(num).TextAlign = System.Drawing.ContentAlignment.TopRight
form01LP(num).Size = New Size(31, 12)
form01LB(num).AutoSize = False
form01LB(num).Location = New Point(89, 41 + ((num - 1) * 12))
form01LB(num).Text = "00.0%"
form01LB(num).TextAlign = System.Drawing.ContentAlignment.TopRight
form01LB(num).Size = New Size(31, 12)
form01Label(num + 3).AutoSize = True
form01Label(num + 3).Location = New Point(15, 41 + ((num - 1) * 12))
form01Label(num + 3).Text = num.ToString
Next
form01Label(1).AutoSize = True
form01Label(1).Location = New Point(7, 7)
form01Label(1).Text = "直前N個の平均が次に来る傾向"
form01Label(2).AutoSize = True
form01Label(2).Location = New Point(13, 25)
form01Label(2).Text = "N"
form01Label(3).AutoSize = True
form01Label(3).Location = New Point(30, 25)
form01Label(3).Text = "PLAYER/BANKER"
form01Label(19).AutoSize = True
form01Label(19).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
form01Label(19).Location = New Point(217, 120)
form01Label(19).Text = "Aパターン"
form01Label(20).AutoSize = True
form01Label(20).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
form01Label(20).Location = New Point(357, 120)
form01Label(20).Text = "Bパターン"
form01Label(21).AutoSize = True
form01Label(21).Location = New Point(160, 139)
form01Label(21).Text = "TIE"
form01Label(22).AutoSize = True
form01Label(22).Location = New Point(131, 160)
form01Label(22).Text = "BANKER"
form01Label(23).AutoSize = True
form01Label(23).Location = New Point(134, 181)
form01Label(23).Text = "PLAYER"
form01Label(24).AutoSize = True
form01Label(24).Location = New Point(311, 139)
form01Label(24).Text = "T"
form01Label(25).AutoSize = True
form01Label(25).Location = New Point(310, 160)
form01Label(25).Text = "B"
form01Label(26).AutoSize = True
form01Label(26).Location = New Point(311, 181)
form01Label(26).Text = "P"
form01Label(27).AutoSize = True
form01Label(27).ForeColor = System.Drawing.Color.Firebrick
form01Label(27).Location = New Point(183, 208)
form01Label(27).Text = "このウインドウを閉じた場合は再コンパイルして下さい"
form01.ShowIcon = False
form01.text = APPNAME
form01.Size = New Size(510, 270)
form01.TopMost = True
form01.Controls.Add(form01Pause)
form01.Controls.Add(form01Supply)
For num As Integer = 1 To 6 Step 1
form01.Controls.Add(form01tie(num))
form01.Controls.Add(form01banker(num))
form01.Controls.Add(form01player(num))
form01tie(num).SelectedItem = "0"
form01banker(num).SelectedItem = "0"
form01player(num).SelectedItem = "0"
Next
For num As Integer = 1 To 15 Step 1
form01.Controls.Add(form01LP(num))
form01.Controls.Add(form01LB(num))
Next
For num As Integer = 1 To 5 Step 1
form01.Controls.Add(form01Radio(num))
Next
For num As Integer = 1 To 27 Step 1
form01.Controls.Add(form01Label(num))
Next
form01Radio(1).Checked = True
form01player(3).SelectedItem = "2"
form01banker(6).SelectedItem = "2"
End Sub
'予測機能付き
'------------------------------------------
Private Shared markGame As Integer(,) = New Integer(,) { _
{&H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF _
, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
}
Private Shared markAll As Integer(,) = New Integer(,) { _
{&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF} _
,{&H6532FF,&H784BFF,&H8D67FF,&H7244FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF} _
,{&HA98CFF,&HFFFFFF,&HFFFFFF,&HFBFAFF,&H9A79FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF} _
}
Private Const APPNAME As String = "自動ミニバカラ"
Public Shared Sub main()
If form01.Visible = False Then
form01initial()
form01.Show()
End If
Dim offsetx As Integer
Dim gamePos As Point = imageSearch(markGame)
Dim prog As Integer = 0
If gamePos.X = -1 Then
MessageBox.Show("ミニバカラウインドウの位置が読み取れませんでした。" & ControlChars.CrLf _
& "1.[停止]" & ControlChars.CrLf _
& "2.ミニバカラウインドウを少し移動" & ControlChars.CrLf _
& "3.[再生]して下さい。" & ControlChars.CrLf _
& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
Exit Sub
End If
Do While stopFlag = False
If form01Pause.Checked Then
If prog = 0 Then
prog = 1
form01text("+")
Else
prog = 0
form01text("*")
End If
offsetx = getOffsetx(gamePos)
If offsetx <> -1 Then 'BET可能
If form01Supply.Checked Then
If supply() Then
form01text("補充")
End If
End If
form01text("BET")
bet(gamePos, offsetx)
betAfter(gamePos)
End If
End If
waitMilliSecR(1000)
Loop
End Sub
Private Shared Function getOffsetx(ByVal gamePos As Point) As Integer
For num As Integer = 0 To 4 Step 1
If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
waitMilliSec(500)
If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
Return num * 135
End If
End If
Next
Return -1
End Function
Private Shared Sub form01text(ByVal str As String)
form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
Dim allPos As Point = imageSearch(markAll)
If allPos.X <> -1 Then
mMoveR(allPos.X - 87, allPos.Y)
mClick(1)
Return True
End If
Return False
End Function
Private Shared Sub bet(ByVal gamePos As Point, ByVal offsetx As Integer)
Dim r As Random = New Random
Dim tie1 As Integer
Dim tie2 As Integer
Dim tie3 As Integer
Dim banker1 As Integer
Dim banker2 As Integer
Dim banker3 As Integer
Dim player1 As Integer
Dim player2 As Integer
Dim player3 As Integer
Dim resultFlag As Boolean = False
If form01Radio(1).Checked OrElse form01Radio(2).Checked Then
resultFlag = analyze(gamePos)
If form01Radio(2).Checked Then
resultFlag = Not resultFlag
End If
ElseIf form01Radio(3).Checked Then
resultFlag = False
ElseIf form01Radio(4).Checked Then
resultFlag = True
Else
If r.Next(0,2) < 1 Then
resultFlag = False
Else
resultFlag = True
End If
End If
If resultFlag = False Then
tie1 = CInt(form01tie(1).SelectedItem)
tie2 = CInt(form01tie(2).SelectedItem)
tie3 = CInt(form01tie(3).SelectedItem)
banker1 = CInt(form01banker(1).SelectedItem)
banker2 = CInt(form01banker(2).SelectedItem)
banker3 = CInt(form01banker(3).SelectedItem)
player1 = CInt(form01player(1).SelectedItem)
player2 = CInt(form01player(2).SelectedItem)
player3 = CInt(form01player(3).SelectedItem)
Else
tie1 = CInt(form01tie(4).SelectedItem)
tie2 = CInt(form01tie(5).SelectedItem)
tie3 = CInt(form01tie(6).SelectedItem)
banker1 = CInt(form01banker(4).SelectedItem)
banker2 = CInt(form01banker(5).SelectedItem)
banker3 = CInt(form01banker(6).SelectedItem)
player1 = CInt(form01player(4).SelectedItem)
player2 = CInt(form01player(5).SelectedItem)
player3 = CInt(form01player(6).SelectedItem)
End If
If tie1 > 0 OrElse tie2 > 0 OrElse tie3 > 0 Then
betTie(gamePos, offsetx, tie1, tie2, tie3)
waitMilliSecR(300)
End If
If banker1 > 0 OrElse banker2 > 0 OrElse banker3 > 0 Then
betBanker(gamePos, offsetx, banker1, banker2, banker3)
waitMilliSecR(300)
End If
betPlayer(gamePos, offsetx, player1, player2, player3)
waitMilliSecR(300)
End Sub
Private Shared Sub betTie(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 213)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 225 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 179 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 131 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
End Sub
Private Shared Sub betBanker(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 249)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
End Sub
Private Shared Sub betPlayer(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 302)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
mMoveR(gamePos.X + 169 + offsetx, gamePos.Y + 329)
mClick(1)
End Sub
Private Shared Sub betAfter(ByVal gamePos As Point)
For num As Integer = 0 To 30 Step 1
If getColor(gamePos.X + 263, gamePos.Y + 75) <> &H33cc33 AndAlso getColor(gamePos.X + 263, gamePos.Y + 75) <> &H6532ff Then
Exit For
End If
waitMilliSecR(1000)
If num Mod 2 = 0 Then
form01text("-")
Else
form01text("/")
End If
Next
waitMilliSecR(3000)
End Sub
Private Shared Sub mMoveR(ByVal x As Integer, ByVal y As Integer) 'ヒューマナイズ
Dim r As Random = New Random
mMove(x + r.Next(-5,5), y + r.Next(-3,3))
End Sub
Private Shared Sub waitMilliSecR(ByVal num As Integer) 'ヒューマナイズ
Dim r As Random = New Random
waitMilliSec(num + r.Next(-50,50))
End Sub
Private Shared Function analyze(ByVal gamePos As Point) As Boolean
Dim col(39) As Integer
Dim p As Integer
Dim count As Integer = 0
For num As Integer = 0 To 38 Step 1
col(num) = -1
p = getColor(gamePos.X + 631 - (num * 15), gamePos.Y + 43)
If p = &H00CCFF Then 'Banker
col(count) = 0
ElseIf p = &H0000FF Then 'Player
col(count) = 1
End If
count += 1
Next
col(39) = -1
Dim analyzeResultBanker(15) As Integer
Dim analyzeResultPlayer(15) As Integer
For level As Integer = 1 To 15 Step 1
analyzeResultBanker(level) = analyzeSubBanker(col, level)
If analyzeResultBanker(level) <> -1 Then
form01LB(level).Text = CSng(analyzeResultBanker(level) / 10.0).ToString("#0.0") & "%"
Else
form01LB(level).Text = "---"
End If
analyzeResultPlayer(level) = analyzeSubPlayer(col, level)
If analyzeResultPlayer(level) <> -1 Then
form01LP(level).Text = CSng(analyzeResultPlayer(level) / 10.0).ToString("#0.0") & "%"
Else
form01LP(level).Text = "---"
End If
Next
Dim maxBanker As Integer = 0
Dim maxPlayer As Integer = 0
Dim posBanker As Integer = 0
Dim posPlayer As Integer = 0
For level As Integer = 1 To 15 Step 1
If analyzeResultBanker(level) > maxBanker Then
maxBanker = analyzeResultBanker(level)
posBanker = level
End If
If analyzeResultPlayer(level) > maxPlayer Then
maxPlayer = analyzeResultPlayer(level)
posPlayer = level
End If
form01LB(level).BackColor = Color.Transparent
form01LP(level).BackColor = Color.Transparent
Next
If maxBanker > maxPlayer Then
If posBanker > 0 Then
form01LB(posBanker).BackColor = Color.Yellow
End If
return True 'Banker
Else
If posPlayer > 0 Then
form01LP(posPlayer).BackColor = Color.Yellow
End If
return False 'Player
End If
End Function
Private Shared Function analyzeSubBanker(ByVal col As Integer(), ByVal level As Integer) As Integer
Dim sample As Integer = 0
Dim result As Integer = 0
Dim goukei As Integer
For current As Integer = 0 To (39 - level) Step 1
If col(current + level) <> -1 Then
goukei = 0
For num As Integer = 1 To level Step 1
If col(current + num) <> -1 Then
goukei += col(current + num)
End If
Next
sample += 1
If goukei < (level / 2) AndAlso col(current) = 0 Then
result += 1
End If
End If
Next
If sample > 5 Then
return result * 1000 / sample
End If
return -1
End Function
Private Shared Function analyzeSubPlayer(ByVal col As Integer(), ByVal level As Integer) As Integer
Dim sample As Integer = 0
Dim result As Integer = 0
Dim goukei As Integer
For current As Integer = 0 To (39 - level) Step 1
If col(current + level) <> -1 Then
goukei = 0
For num As Integer = 1 To level Step 1
If col(current + num) <> -1 Then
goukei += col(current + num)
End If
Next
sample += 1
If goukei > (level / 2) AndAlso col(current) = 1 Then
result += 1
End If
End If
Next
If sample > 5 Then
return result * 1000 / sample
End If
return -1
End Function
Private Shared form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01tie(6) As ComboBox
Private Shared form01banker(6) As ComboBox
Private Shared form01player(6) As ComboBox
Private Shared form01LP(15) As Label
Private Shared form01LB(15) As Label
Private Shared form01Radio(5) As RadioButton
Private Shared form01Label(27) As Label
Private Shared Sub form01initial()
For num As Integer = 1 To 6 Step 1
form01tie(num) = New ComboBox
form01banker(num) = New ComboBox
form01player(num) = New ComboBox
Next
For num As Integer = 1 To 15 Step 1
form01LP(num) = New Label
form01LB(num) = New Label
Next
For num As Integer = 1 To 5 Step 1
form01Radio(num) = New RadioButton
Next
For num As Integer = 1 To 27 Step 1
form01Label(num) = New Label
Next
form01Pause.AutoSize = True
form01Pause.Location = New Point(185, 6)
form01Pause.Text = "実行/一時停止"
form01Supply.AutoSize = True
form01Supply.Location = New Point(313, 6)
form01Supply.Text = "カジノ＄補充"
form01tie(1).FormattingEnabled = True
form01tie(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(1).Location = New Point(185, 135)
form01tie(1).Size = New Size(38, 20)
form01tie(2).FormattingEnabled = True
form01tie(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(2).Location = New Point(225, 135)
form01tie(2).Size = New Size(38, 20)
form01tie(3).FormattingEnabled = True
form01tie(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(3).Location = New Point(265, 135)
form01tie(3).Size = New Size(38, 20)
form01tie(4).FormattingEnabled = True
form01tie(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(4).Location = New Point(325, 135)
form01tie(4).Size = New Size(38, 20)
form01tie(5).FormattingEnabled = True
form01tie(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(5).Location = New Point(365, 135)
form01tie(5).Size = New Size(38, 20)
form01tie(6).FormattingEnabled = True
form01tie(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(6).Location = New Point(405, 135)
form01tie(6).Size = New Size(38, 20)
form01banker(1).FormattingEnabled = True
form01banker(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(1).Location = New Point(185, 156)
form01banker(1).Size = New Size(38, 20)
form01banker(2).FormattingEnabled = True
form01banker(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(2).Location = New Point(225, 156)
form01banker(2).Size = New Size(38, 20)
form01banker(3).FormattingEnabled = True
form01banker(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(3).Location = New Point(265, 156)
form01banker(3).Size = New Size(38, 20)
form01banker(4).FormattingEnabled = True
form01banker(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(4).Location = New Point(325, 156)
form01banker(4).Size = New Size(38, 20)
form01banker(5).FormattingEnabled = True
form01banker(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(5).Location = New Point(365, 156)
form01banker(5).Size = New Size(38, 20)
form01banker(6).FormattingEnabled = True
form01banker(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(6).Location = New Point(405, 156)
form01banker(6).Size = New Size(38, 20)
form01player(1).FormattingEnabled = True
form01player(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(1).Location = New Point(185, 177)
form01player(1).Size = New Size(38, 20)
form01player(2).FormattingEnabled = True
form01player(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(2).Location = New Point(225, 177)
form01player(2).Size = New Size(38, 20)
form01player(3).FormattingEnabled = True
form01player(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(3).Location = New Point(265, 177)
form01player(3).Size = New Size(38, 20)
form01player(4).FormattingEnabled = True
form01player(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(4).Location = New Point(325, 177)
form01player(4).Size = New Size(38, 20)
form01player(5).FormattingEnabled = True
form01player(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(5).Location = New Point(365, 177)
form01player(5).Size = New Size(38, 20)
form01player(6).FormattingEnabled = True
form01player(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(6).Location = New Point(405, 177)
form01player(6).Size = New Size(38, 20)
form01Radio(1).AutoSize = True
form01Radio(1).Location = New Point(146, 25)
form01Radio(1).Text = "最適値がPLAYERの場合にAパターンで賭ける(BANKERの場合はB)"
form01Radio(2).AutoSize = True
form01Radio(2).Location = New Point(146, 42)
form01Radio(2).Text = "最適値がPLAYERの場合にBパターンで賭ける(BANKERの場合はA)"
form01Radio(3).AutoSize = True
form01Radio(3).Location = New Point(146, 59)
form01Radio(3).Text = "無条件でAパターンで賭ける"
form01Radio(4).AutoSize = True
form01Radio(4).Location = New Point(146, 76)
form01Radio(4).Text = "無条件でBパターンで賭ける"
form01Radio(5).AutoSize = True
form01Radio(5).Location = New Point(146, 93)
form01Radio(5).Text = "ランダムにAとBを選択する"
For num As Integer = 1 To 15 Step 1
form01LP(num).AutoSize = False
form01LP(num).Location = New Point(39, 41 + ((num - 1) * 12))
form01LP(num).Text = "00.0%"
form01LP(num).TextAlign = System.Drawing.ContentAlignment.TopRight
form01LP(num).Size = New Size(31, 12)
form01LB(num).AutoSize = False
form01LB(num).Location = New Point(89, 41 + ((num - 1) * 12))
form01LB(num).Text = "00.0%"
form01LB(num).TextAlign = System.Drawing.ContentAlignment.TopRight
form01LB(num).Size = New Size(31, 12)
form01Label(num + 3).AutoSize = True
form01Label(num + 3).Location = New Point(15, 41 + ((num - 1) * 12))
form01Label(num + 3).Text = num.ToString
Next
form01Label(1).AutoSize = True
form01Label(1).Location = New Point(7, 7)
form01Label(1).Text = "直前N個の平均が次に来る傾向"
form01Label(2).AutoSize = True
form01Label(2).Location = New Point(13, 25)
form01Label(2).Text = "N"
form01Label(3).AutoSize = True
form01Label(3).Location = New Point(30, 25)
form01Label(3).Text = "PLAYER/BANKER"
form01Label(19).AutoSize = True
form01Label(19).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
form01Label(19).Location = New Point(217, 120)
form01Label(19).Text = "Aパターン"
form01Label(20).AutoSize = True
form01Label(20).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
form01Label(20).Location = New Point(357, 120)
form01Label(20).Text = "Bパターン"
form01Label(21).AutoSize = True
form01Label(21).Location = New Point(160, 139)
form01Label(21).Text = "TIE"
form01Label(22).AutoSize = True
form01Label(22).Location = New Point(131, 160)
form01Label(22).Text = "BANKER"
form01Label(23).AutoSize = True
form01Label(23).Location = New Point(134, 181)
form01Label(23).Text = "PLAYER"
form01Label(24).AutoSize = True
form01Label(24).Location = New Point(311, 139)
form01Label(24).Text = "T"
form01Label(25).AutoSize = True
form01Label(25).Location = New Point(310, 160)
form01Label(25).Text = "B"
form01Label(26).AutoSize = True
form01Label(26).Location = New Point(311, 181)
form01Label(26).Text = "P"
form01Label(27).AutoSize = True
form01Label(27).ForeColor = System.Drawing.Color.Firebrick
form01Label(27).Location = New Point(183, 208)
form01Label(27).Text = "このウインドウを閉じた場合は再コンパイルして下さい"
form01.ShowIcon = False
form01.text = APPNAME
form01.Size = New Size(510, 270)
form01.TopMost = True
form01.Controls.Add(form01Pause)
form01.Controls.Add(form01Supply)
For num As Integer = 1 To 6 Step 1
form01.Controls.Add(form01tie(num))
form01.Controls.Add(form01banker(num))
form01.Controls.Add(form01player(num))
form01tie(num).SelectedItem = "0"
form01banker(num).SelectedItem = "0"
form01player(num).SelectedItem = "0"
Next
For num As Integer = 1 To 15 Step 1
form01.Controls.Add(form01LP(num))
form01.Controls.Add(form01LB(num))
Next
For num As Integer = 1 To 5 Step 1
form01.Controls.Add(form01Radio(num))
Next
For num As Integer = 1 To 27 Step 1
form01.Controls.Add(form01Label(num))
Next
form01Radio(1).Checked = True
form01player(3).SelectedItem = "2"
form01banker(6).SelectedItem = "2"
End Sub
文字化けありです
～やり方～
チャットを打つ時を記録する(send)
パケット送信画面を開き、一番下の列の右から4番目の英数字を適当に変える
再生する
～終わり～
文字化けしないけど具現化しない方法
～やり方～
チャットの打つ時を記録する(Recv)
真ん中らへんに FF FF FF と並んでる奴です
パケット送信画面を開き英数字をコピーする
Filter1を開きSEARCHに貼り付けて適応を押す
適応を押したらパケット送信画面を開き FF FF FF を適当な英数字に変えてコピーする
コピーしたらFilter1のMODIFYに貼り付けて適応を押す
そうして先ほど喋った事を打つ
色が変わってたら成功。ただし具現化はしてないので画像程度でしか使えない
～終わり～
～やり方～
チャットを打つ時を記録する(send)
パケット送信画面を開き、一番下の列の右から4番目の英数字を適当に変える
再生する
～終わり～
文字化けしないけど具現化しない方法
～やり方～
チャットの打つ時を記録する(Recv)
真ん中らへんに FF FF FF と並んでる奴です
パケット送信画面を開き英数字をコピーする
Filter1を開きSEARCHに貼り付けて適応を押す
適応を押したらパケット送信画面を開き FF FF FF を適当な英数字に変えてコピーする
コピーしたらFilter1のMODIFYに貼り付けて適応を押す
そうして先ほど喋った事を打つ
色が変わってたら成功。ただし具現化はしてないので画像程度でしか使えない
～終わり～