https://ameblo.jp/garo-test3/ 僕はピグがあるから楽しむという動作を可能とするしかしピグに苦しめられたこともあったそういうピグって。。。最高？最低？最高までたのしませておいてどん底に落とす　　　　　落胆僕の人生は終わる ja

アメーバピグ

アメーバ - マイページ

garo-testのブログ

ガロっちのうpろだ

ニコニコ動画（原宿）

ニコニコ動画保存ツール - nicozon

もなちゃと

hkkkkkkkkk@wiki - トップページ

敬己のうpろだ

ねむクライアント向けキャラコード

アニメチャット：じゃっと -Cjhat-

好きなだけ「ぽぽぽぽ～ん」するボタン


]]> https://ameblo.jp/garo-test3/entry-11115571352.html Sat, 24 Dec 2011 09:47:04 +0900
パケットをとって

連続再生すればできます。
]]> https://ameblo.jp/garo-test3/entry-11019295027.html Fri, 16 Sep 2011 06:34:49 +0900
1、WPE起動して、自分の頭のうえの三角にやつ押すのを記録します。
2、そしたら、パケットサイズ35 が出てくるから、パケット送信画面を出して、16進数をコピーします。
3、それで、フィルター1のSEARCH とMODIFYに貼り付けます。
4、そしたら、30と32を空白にしてMODIFYの30に01、32に01をいれて適応させてONにします。
5、それで頭の上の三角押したら憑依が出来ます。

PS、MODIFYにいれる01は座標位置なので、憑依したい座標をいれて下さい。カリブ海の海の座標は34.1Bだったような… ]]> https://ameblo.jp/garo-test3/entry-11015984934.html Mon, 12 Sep 2011 20:43:59 +0900

まず、同じいすを2つ用意します。


まず1つ目のいすを置くパケットをとります。

そして、そのいすを動かさずにさっきのパケットを1回送信します。


すると2つ重なって1つしかないように見えます。

座ると1つ目に座るので2つ目が上になっていすの下に座っているように見えるわけです。


ベッドやソファーなど座れるものならなんでもできます ]]> https://ameblo.jp/garo-test3/entry-11015983171.html Mon, 12 Sep 2011 20:42:44 +0900
まずは、サブピグを用意します

そして、バカラテーブルAにすわらせます。

そして、バカラテーブルBと合体させ

いつでも決定を押せる状態にしてください。

そして、メインをBにすわらせます。

そして、チートエンジンを起動します。

そして、そのメインでゲームを始めて

ゲームが終盤を迎え

WIN　LOSE

がきまったところで

決定ボタンをサブでおします

メインで４枚目がひかれるときに

チートエンジンで、enable speed hack

で

速さを、０にします。

画面がかたまります

これで、前のバカラバグを実現できます

それから、サブの決定ボタンの押し方を考えると

TIE無限をすることができます。

TIE無限は、あわせることでできるようになります。

ほかにもやり方があるようですが

少なくとも

僕はわかりません
]]> https://ameblo.jp/garo-test3/entry-11015981881.html Mon, 12 Sep 2011 20:41:09 +0900
1、WPE起動してALL PLAY押す瞬間を記録。
2、パケットサイズ27が出てくるから、パケット送信画面を出して、Timerを100にし、連続再生にチェックいれてください。
3、できたら、再生ボタン押してください。

質問受け付けます。
]]> https://ameblo.jp/garo-test3/entry-11015980393.html Mon, 12 Sep 2011 20:40:34 +0900 ]]> https://ameblo.jp/garo-test3/entry-11015979673.html Mon, 12 Sep 2011 20:39:45 +0900
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つ目のやり方は時々失敗します。 ]]> https://ameblo.jp/garo-test3/entry-11015978519.html Mon, 12 Sep 2011 20:39:09 +0900 '予測機能付き
'------------------------------------------
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
]]> https://ameblo.jp/garo-test3/entry-11015977745.html Mon, 12 Sep 2011 20:38:00 +0900
～やり方～
チャットを打つ時を記録する(send)
パケット送信画面を開き、一番下の列の右から4番目の英数字を適当に変える
再生する
～終わり～

文字化けしないけど具現化しない方法

～やり方～
チャットの打つ時を記録する(Recv)
真ん中らへんに FF FF FF と並んでる奴です
パケット送信画面を開き英数字をコピーする
Filter1を開きSEARCHに貼り付けて適応を押す
適応を押したらパケット送信画面を開き FF FF FF　を適当な英数字に変えてコピーする
コピーしたらFilter1のMODIFYに貼り付けて適応を押す
そうして先ほど喋った事を打つ
色が変わってたら成功。ただし具現化はしてないので画像程度でしか使えない
～終わり～
]]> https://ameblo.jp/garo-test3/entry-11015976234.html Mon, 12 Sep 2011 20:37:10 +0900