しらたまのぶろぐ https://ameblo.jp/ty1108/ ブログ見てくれてありがとう！ ja もう1こ 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 mark_0 As Integer(,) = New Integer(,) { _
{0,0,0,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,1,0,0,0,0,0} _
,{0,1,0,0,0,1,0} _
,{0,1,0,0,0,1,0} _
,{0,1,0,0,0,1,0} _
,{0,1,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,1,0,0,0} _
}
Private Shared mark_1 As Integer(,) = New Integer(,) { _
{0,0,0,0,0,0,0} _
,{0,0,0,1,0,0,0} _
,{0,0,1,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
}
Private Shared mark_2 As Integer(,) = New Integer(,) { _
{0,0,1,1,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,1,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,1,1,1,1,1,0} _
}
Private Shared mark_3 As Integer(,) = New Integer(,) { _
{0,0,1,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,1,0} _
,{0,0,0,0,0,1,0} _
,{0,1,0,0,0,0,0} _
,{0,0,1,1,0,0,0} _
}
Private Shared mark_4 As Integer(,) = New Integer(,) { _
{0,0,0,0,1,0,0} _
,{0,0,0,0,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,1,1,1,1,1,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
}
Private Shared mark_5 As Integer(,) = New Integer(,) { _
{0,0,1,1,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,1,1,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,1,0,0,0,0,0} _
,{0,0,1,1,0,0,0} _
}
Private Shared mark_6 As Integer(,) = New Integer(,) { _
{0,0,0,1,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,1,1,0,0} _
,{0,1,0,0,0,0,0} _
,{0,1,0,0,0,1,0} _
,{0,0,0,0,0,1,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,1,0,0,0} _
}
Private Shared mark_7 As Integer(,) = New Integer(,) { _
{0,1,1,1,1,1,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,1,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,1,0,0,0,0} _
}
Private Shared mark_8 As Integer(,) = New Integer(,) { _
{0,0,1,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,1,0,0,0,1,0} _
,{0,0,0,0,0,0,0} _
,{0,0,1,1,1,0,0} _
}
Private Shared mark_9 As Integer(,) = New Integer(,) { _
{0,0,1,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,1,0,0,0,0,0} _
,{0,1,0,0,0,1,0} _
,{0,0,0,0,0,1,0} _
,{0,0,1,1,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,0,0,0,0,0} _
,{0,0,1,1,0,0,0} _
}
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 Shared mark_num As Object() = New Object() {mark_0,mark_1,mark_2,mark_3,mark_4,mark_5,mark_6,mark_7,mark_8,mark_9}
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 aceFlag As Boolean
　　Dim FirstFlag As Boolean = False
　　Dim keta2 As Integer
　　Dim keta1 As Integer
　　If gamePos.X = -1 Then
　　　　MessageBox.Show("ブラックジャックウインドウの位置が読み取れませんでした。" & ControlChars.CrLf 

]]> https://ameblo.jp/ty1108/entry-11100277649.html Wed, 07 Dec 2011 17:04:53 +0900 ここにタイトルを入力してください _
　　　　　　& "1.[停止]" & ControlChars.CrLf _
　　　　　　& "2.ブラックジャックウインドウを少し移動" & ControlChars.CrLf _
　　　　　　& "3.[再生]して下さい。" & ControlChars.CrLf _
　　　　　　& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
　　　　Exit Sub
　　End If
　　setSeatpos(gamePos)
　　Do While stopFlag = False
　　　　offsetx = getOffsetx()
　　　　If form01Supply.Checked AndAlso form01Pause.Checked Then
　　　　　　If supply() Then
　　　　　　　　form01text("補充")
　　　　　　End If
　　　　End If
　　　　If isBet(gamePos, offsetx) AndAlso form01Pause.Checked Then
　　　　　　betCoin(gamePos,offsetx)
　　　　　　firstFlag = True
　　　　　　form01text("BET")
　　　　End If
　　　　If isStandBlue(gamePos) AndAlso form01Pause.Checked Then
　　　　　　aceFlag = False
　　　　　　keta2 = get2ketame(gamePos, offsetx)
　　　　　　If keta2 = 2 OrElse keta2 = 1 Then
　　　　　　　　keta1 = get1ketame(gamePos, offsetx)
　　　　　　　　form01text(keta2 & keta1)
　　　　　　Else
　　　　　　　　keta1 = get1ketameAce(gamePos, offsetx)
　　　　　　　　If keta1 = 0 Then　　'10/20
　　　　　　　　　　keta2 = 2
　　　　　　　　　　aceFlag = True
　　　　　　　　　　form01text("10/20")
　　　　　　　　ElseIf keta1 <> -1 Then　　'2/12 to 9/19
　　　　　　　　　　keta2 = 1
　　　　　　　　　　aceFlag = True
　　　　　　　　　　form01text(keta1 & "/1" & keta1)
　　　　　　　　Else　　'4 to 9
　　　　　　　　　　keta1 = get1ketameOnly(gamePos, offsetx)
　　　　　　　　　　keta2 = 0
　　　　　　　　　　form01text(keta1)
　　　　　　　　End If
　　　　　　End If
　　　　　　If firstFlag AndAlso isCheckDouble(keta2 * 10 + keta1, aceFlag) Then
　　　　　　　　hitDouble(gamePos)
　　　　　　　　firstFlag = False
　　　　　　ElseIf isCheckHit(keta2 * 10 + keta1, aceFlag) Then
　　　　　　　　hit(gamePos)
　　　　　　　　firstFlag = False
　　　　　　Else
　　　　　　　　stand(gamePos)
　　　　　　　　firstFlag = False
　　　　　　End If
　　　　End If
　　　　If isInsurance(gamePos) AndAlso form01Pause.Checked Then
　　　　　　If form01Insurance.Checked Then
　　　　　　　　insuranceYes(gamePos)
　　　　　　Else
　　　　　　　　insuranceNo(gamePos)
　　　　　　End If
　　　　End If
　　　　waitMilliSecR(1000)
　　Loop
End Sub
Private Shared Sub setSeatpos(ByVal gamePos As Point)
　　For num As Integer = 0 To 4 Step 1
　　　　If getColor(gamePos.X + 54 + (num * 135), gamePos.Y + 267) = &H6532ff Then
　　　　　　Select Case num
　　　　　　　　Case 0:
　　　　　　　　　　form01Seat1.Checked = True
　　　　　　　　Case 1:
　　　　　　　　　　form01Seat2.Checked = True
　　　　　　　　Case 2:
　　　　　　　　　　form01Seat3.Checked = True
　　　　　　　　Case 3:
　　　　　　　　　　form01Seat4.Checked = True
　　　　　　　　Case 4:
　　　　　　　　　　form01Seat5.Checked = True
　　　　　　End Select
　　　　　　Exit For
　　　　End If
　　Next
End Sub
Private Shared Function isBet(ByVal gamePos As Point, ByVal offsetx As Integer) As Boolean　　'ベット可能かどうか
　　if getColor(gamePos.X + 54 + offsetx, gamePos.Y + 267) = &H6532FF Then
　　　　Return True
　　End If
　　Return False
End Function
Private Shared Sub betCoin(ByVal gamePos As Point, ByVal offsetx As Integer)　　'ベットする
　　mMoveR(gamePos.X + 116 + offsetx, gamePos.Y + 224)　　'コイン3
　　mClick(1)
　　waitMilliSecR(200)
　　mMoveR(gamePos.X + 116 + offsetx, gamePos.Y + 224)　　'コイン3
　　mClick(1)
　　waitMilliSecR(200)
　　If isBetCoin(gamePos, offsetx) = False Then　　'BET出来なかったら
　　　　mMoveR(gamePos.X + 69 + offsetx, gamePos.Y + 224)　　'コイン2
　　　　mClick(1)
　　　　waitMilliSecR(200)
　　　　mMoveR(gamePos.X + 69 + offsetx, gamePos.Y + 224)　　'コイン2
　　　　mClick(1)
　　　　waitMilliSecR(200)
　　　　mMoveR(gamePos.X + 22 + offsetx, gamePos.Y + 224)　　'コイン1
　　　　mClick(1)
　　　　waitMilliSecR(200)
　　　　mMoveR(gamePos.X + 22 + offsetx, gamePos.Y + 224)　　'コイン1
　　　　mClick(1)
　　　　waitMilliSecR(200)
　　End If
　　If isBetCoin(gamePos, offsetx) Then　　'BET出来たら
　　　　mMoveR(gamePos.X + 54 + offsetx, gamePos.Y + 267)　　'決定
　　　　mClick(1)
　　End If
　　mMoveR(gamePos.X + 54 + offsetx, gamePos.Y + 267 + 30)　　'決定位置から移動させる
End Sub
Private Shared Function isBetCoin(ByVal gamePos As Point, ByVal offsetx As Integer) As Boolean　　'ベットしたかどうか
　　If getColor(gamePos.X + 100 + offsetx, gamePos.Y + 338) <> &H0 Then　　'2桁目が有る
　　　　Return True
　　End If
　　If getColor(gamePos.X + 108 + offsetx, gamePos.Y + 342) <> &H0 Then　　'1桁目が5
　　　　Return True
　　End If
　　Return False
End Function
Private Shared Function isStandBlue(ByVal gamePos As Point) As Boolean　　'自分の番かどうか
　　If getColor(gamePos.X + 310, gamePos.Y + 415) = &HF4960B Then 'スタンドが青
　　　　Return True
　　End If
　　Return False
End Function
Private Shared Function isInsurance(ByVal gamePos As Point) As Boolean　　'インシュランスかどうか
　　If getColor(gamePos.X + 320, gamePos.Y + 235) = &H6532ff _
　　　　　　AndAlso getColor(gamePos.X + 400, gamePos.Y + 235) = &H656565 Then
　　　　Return True
　　End If
　　Return False
End Function
Private Shared Sub insuranceYes(ByVal gamePos As Point)
　　mMoveR(gamePos.X + 320, gamePos.Y + 235) 'インシュランスはい
　　mClick(1)
End Sub
Private Shared Sub insuranceNo(ByVal gamePos As Point)
　　mMoveR(gamePos.X + 400, gamePos.Y + 235) 'インシュランスいいえ
　　mClick(1)
End Sub
Private Shared Sub stand(ByVal gamePos As Point)
　　mMoveR(gamePos.X + 310, gamePos.Y + 415) 'スタンド
　　mClick(1)
End Sub
Private Shared Sub hit(ByVal gamePos As Point)
　　mMoveR(gamePos.X + 175, gamePos.Y + 415) 'ヒット
　　mClick(1)
End Sub
Private Shared Sub hitDouble(ByVal gamePos As Point)
　　mMoveR(gamePos.X + 378, gamePos.Y + 415) 'ダブル
　　mClick(1)
　　waitMilliSec(100)
　　mClick(1)　　'念のため
End Sub
Private Shared Function get2ketame(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
　　Dim col As Integer
　　Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
　　For y As Integer = 0 To 8 Step 1
　　　　For x As Integer = 0 To 6 Step 1
　　　　　　col = getColor(gamePos.X + 62 + offsetx + x, gamePos.Y + 178 + y)
　　　　　　For n As Integer = 1 To 2 Step 1
　　　　　　　　If mark_num(n)(y,x) = 1 Then
　　　　　　　　　　If col <> &Hffffff Then numFlag(n) = False
　　　　　　　　Else
　　　　　　　　　　If col = &Hffffff Then numFlag(n) = False
　　　　　　　　End If
　　　　　　Next
　　　　Next
　　Next
　　For n As Integer = 1 To 2 Step 1
　　　　If numFlag(n) = True Then
　　　　　　Return n
　　　　End If
　　Next
　　Return -1
End Function
Private Shared Function get1ketame(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
　　Dim col As Integer
　　Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
　　For y As Integer = 0 To 8 Step 1
　　　　For x As Integer = 0 To 6 Step 1
　　　　　　col = getColor(gamePos.X + 62 + offsetx + x + 7, gamePos.Y + 178 + y)
　　　　　　For n As Integer = 0 To 9 Step 1
　　　　　　　　If mark_num(n)(y,x) = 1 Then
　　　　　　　　　　If col <> &Hffffff Then numFlag(n) = False
　　　　　　　　Else
　　　　　　　　　　If col = &Hffffff Then numFlag(n) = False
　　　　　　　　End If
　　　　　　Next
　　　　Next
　　Next
　　For n As Integer = 0 To 9 Step 1
　　　　If numFlag(n) = True Then
　　　　　　Return n
　　　　End If
　　Next
　　Return -1
End Function
Private Shared Function get1ketameAce(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
　　Dim col As Integer
　　Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
　　For y As Integer = 0 To 8 Step 1
　　　　For x As Integer = 0 To 6 Step 1
　　　　　　col = getColor(gamePos.X + 62 + offsetx + x - 8, gamePos.Y + 178 + y)
　　　　　　For n As Integer = 1 To 9 Step 1
　　　　　　　　If mark_num(n)(y,x) = 1 Then
　　　　　　　　　　If col <> &Hffffff Then numFlag(n) = False
　　　　　　　　Else
　　　　　　　　　　If col = &Hffffff Then numFlag(n) = False
　　　　　　　　End If
　　　　　　Next
　　　　　　col = getColor(gamePos.X + 62 + offsetx + x - 4, gamePos.Y + 178 + y)
　　　　　　If mark_num(0)(y,x) = 1 Then
　　　　　　　　If col <> &Hffffff Then numFlag(0) = False
　　　　　　Else
　　　　　　　　If col = &Hffffff Then numFlag(0) = False
　　　　　　End If
　　　　Next
　　Next
　　For n As Integer = 0 To 9 Step 1
　　　　If numFlag(n) = True Then
　　　　　　Return n
　　　　End If
　　Next
　　Return -1
End Function
Private Shared Function get1ketameOnly(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
　　Dim col As Integer
　　Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
　　For y As Integer = 0 To 8 Step 1
　　　　For x As Integer = 0 To 6 Step 1
　　　　　　col = getColor(gamePos.X + 62 + offsetx + x + 3, gamePos.Y + 178 + y)
　　　　　　For n As Integer = 4 To 9 Step 1
　　　　　　　　If mark_num(n)(y,x) = 1 Then
　　　　　　　　　　If col <> &Hffffff Then numFlag(n) = False
　　　　　　　　Else
　　　　　　　　　　If col = &Hffffff Then numFlag(n) = False
　　　　　　　　End If
　　　　　　Next
　　　　Next
　　Next
　　For n As Integer = 4 To 9 Step 1
　　　　If numFlag(n) = True Then
　　　　　　Return n
　　　　End If
　　Next
　　Return -1
End Function
Private Shared Function getOffsetx() As Integer
　　If form01Seat1.Checked Then
　　　　Return 0
　　ElseIf form01Seat2.Checked Then
　　　　Return 135
　　ElseIf form01Seat3.Checked Then
　　　　Return 135 * 2
　　ElseIf form01Seat4.Checked Then
　　　　Return 135 * 3
　　ElseIf form01Seat5.Checked Then
　　　　Return 135 * 4
　　End If
　　Return 0
End Function
Private Shared Function isCheckDouble(ByVal num As Integer, ByVal aceFlag As Boolean) As Boolean
　　If aceFlag Then
　　　　Select Case num
　　　　　　Case 12:　　If form01Double212.Checked Then Return True
　　　　　　Case 13:　　If form01Double313.Checked Then Return True
　　　　　　Case 14:　　If form01Double414.Checked Then Return True
　　　　　　Case 15:　　If form01Double515.Checked Then Return True
　　　　　　Case 16:　　If form01Double616.Checked Then Return True
　　　　　　Case 17:　　If form01Double717.Checked Then Return True
　　　　　　Case 18:　　If form01Double818.Checked Then Return True
　　　　　　Case 19:　　If form01Double919.Checked Then Return True
　　　　　　Case 20:　　If form01Double1020.Checked Then Return True
　　　　End Select
　　Else
　　　　Select Case num
　　　　　　Case 4:　　　　If form01Double04.Checked Then Return True
　　　　　　Case 5:　　　　If form01Double05.Checked Then Return True
　　　　　　Case 6:　　　　If form01Double06.Checked Then Return True
　　　　　　Case 7:　　　　If form01Double07.Checked Then Return True
　　　　　　Case 8:　　　　If form01Double08.Checked Then Return True
　　　　　　Case 9:　　　　If form01Double09.Checked Then Return True
　　　　　　Case 10:　　If form01Double10.Checked Then Return True
　　　　　　Case 11:　　If form01Double11.Checked Then Return True
　　　　　　Case 12:　　If form01Double12.Checked Then Return True
　　　　　　Case 13:　　If form01Double13.Checked Then Return True
　　　　　　Case 14:　　If form01Double14.Checked Then Return True
　　　　　　Case 15:　　If form01Double15.Checked Then Return True
　　　　　　Case 16:　　If form01Double16.Checked Then Return True
　　　　　　Case 17:　　If form01Double17.Checked Then Return True
　　　　　　Case 18:　　If form01Double18.Checked Then Return True
　　　　　　Case 19:　　If form01Double19.Checked Then Return True
　　　　　　Case 20:　　If form01Double20.Checked Then Return True
　　　　End Select
　　End If
　　Return False
End Function
Private Shared Function isCheckHit(ByVal num As Integer, ByVal aceFlag As Boolean) As Boolean
　　If aceFlag Then
　　　　Select Case num
　　　　　　Case 12:　　If form01Hit212.Checked Then Return True
　　　　　　Case 13:　　If form01Hit313.Checked Then Return True
　　　　　　Case 14:　　If form01Hit414.Checked Then Return True
　　　　　　Case 15:　　If form01Hit515.Checked Then Return True
　　　　　　Case 16:　　If form01Hit616.Checked Then Return True
　　　　　　Case 17:　　If form01Hit717.Checked Then Return True
　　　　　　Case 18:　　If form01Hit818.Checked Then Return True
　　　　　　Case 19:　　If form01Hit919.Checked Then Return True
　　　　　　Case 20:　　If form01Hit1020.Checked Then Return True
　　　　End Select
　　Else
　　　　Select Case num
　　　　　　Case 4:　　　　If form01Hit04.Checked Then Return True
　　　　　　Case 5:　　　　If form01Hit05.Checked Then Return True
　　　　　　Case 6:　　　　If form01Hit06.Checked Then Return True
　　　　　　Case 7:　　　　If form01Hit07.Checked Then Return True
　　　　　　Case 8:　　　　If form01Hit08.Checked Then Return True
　　　　　　Case 9:　　　　If form01Hit09.Checked Then Return True
　　　　　　Case 10:　　If form01Hit10.Checked Then Return True
　　　　　　Case 11:　　If form01Hit11.Checked Then Return True
　　　　　　Case 12:　　If form01Hit12.Checked Then Return True
　　　　　　Case 13:　　If form01Hit13.Checked Then Return True
　　　　　　Case 14:　　If form01Hit14.Checked Then Return True
　　　　　　Case 15:　　If form01Hit15.Checked Then Return True
　　　　　　Case 16:　　If form01Hit16.Checked Then Return True
　　　　　　Case 17:　　If form01Hit17.Checked Then Return True
　　　　　　Case 18:　　If form01Hit18.Checked Then Return True
　　　　　　Case 19:　　If form01Hit19.Checked Then Return True
　　　　　　Case 20:　　If form01Hit20.Checked Then Return True
　　　　End Select
　　End If
　　Return False
End Function
Private Shared Sub form01text(ByVal str As String)
　　form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
　　Static count As Integer = 0
　　Dim allPos As Point
　　If count > 15 Then　　'カジノ＄補充チェック間隔
　　　　count = 0
　　　　allPos = imageSearch(markAll)
　　　　If allPos.X <> -1 Then
　　　　　　mMoveR(allPos.X - 87, allPos.Y)
　　　　　　mClick(1)
　　　　　　Return True
　　　　End If
　　End If
　　count += 1
　　Return False
End Function
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 form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Seat1 As RadioButton = New RadioButton
Private Shared form01Seat2 As RadioButton = New RadioButton
Private Shared form01Seat3 As RadioButton = New RadioButton
Private Shared form01Seat4 As RadioButton = New RadioButton
Private Shared form01Seat5 As RadioButton = New RadioButton
Private Shared form01Double04 As CheckBox = New CheckBox
Private Shared form01Double05 As CheckBox = New CheckBox
Private Shared form01Double06 As CheckBox = New CheckBox
Private Shared form01Double07 As CheckBox = New CheckBox
Private Shared form01Double08 As CheckBox = New CheckBox
Private Shared form01Double09 As CheckBox = New CheckBox
Private Shared form01Double10 As CheckBox = New CheckBox
Private Shared form01Double11 As CheckBox = New CheckBox
Private Shared form01Double12 As CheckBox = New CheckBox
Private Shared form01Double13 As CheckBox = New CheckBox
Private Shared form01Double14 As CheckBox = New CheckBox
Private Shared form01Double15 As CheckBox = New CheckBox
Private Shared form01Double16 As CheckBox = New CheckBox
Private Shared form01Double17 As CheckBox = New CheckBox
Private Shared form01Double18 As CheckBox = New CheckBox
Private Shared form01Double19 As CheckBox = New CheckBox
Private Shared form01Double20 As CheckBox = New CheckBox
Private Shared form01Double212 As CheckBox = New CheckBox
Private Shared form01Double313 As CheckBox = New CheckBox
Private Shared form01Double414 As CheckBox = New CheckBox
Private Shared form01Double515 As CheckBox = New CheckBox
Private Shared form01Double616 As CheckBox = New CheckBox
Private Shared form01Double717 As CheckBox = New CheckBox
Private Shared form01Double818 As CheckBox = New CheckBox
Private Shared form01Double919 As CheckBox = New CheckBox
Private Shared form01Double1020 As CheckBox = New CheckBox
Private Shared form01Hit04 As CheckBox = New CheckBox
Private Shared form01Hit05 As CheckBox = New CheckBox
Private Shared form01Hit06 As CheckBox = New CheckBox
Private Shared form01Hit07 As CheckBox = New CheckBox
Private Shared form01Hit08 As CheckBox = New CheckBox
Private Shared form01Hit09 As CheckBox = New CheckBox
Private Shared form01Hit10 As CheckBox = New CheckBox
Private Shared form01Hit11 As CheckBox = New CheckBox
Private Shared form01Hit12 As CheckBox = New CheckBox
Private Shared form01Hit13 As CheckBox = New CheckBox
Private Shared form01Hit14 As CheckBox = New CheckBox
Private Shared form01Hit15 As CheckBox = New CheckBox
Private Shared form01Hit16 As CheckBox = New CheckBox
Private Shared form01Hit17 As CheckBox = New CheckBox
Private Shared form01Hit18 As CheckBox = New CheckBox
Private Shared form01Hit19 As CheckBox = New CheckBox
Private Shared form01Hit20 As CheckBox = New CheckBox
Private Shared form01Hit212 As CheckBox = New CheckBox
Private Shared form01Hit313 As CheckBox = New CheckBox
Private Shared form01Hit414 As CheckBox = New CheckBox
Private Shared form01Hit515 As CheckBox = New CheckBox
Private Shared form01Hit616 As CheckBox = New CheckBox
Private Shared form01Hit717 As CheckBox = New CheckBox
Private Shared form01Hit818 As CheckBox = New CheckBox
Private Shared form01Hit919 As CheckBox = New CheckBox
Private Shared form01Hit1020 As CheckBox = New CheckBox
Private Shared form01Insurance As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01Label1 As Label = New Label
Private Shared form01Label2 As Label = New Label
Private Shared form01Label3 As Label = New Label
Private Shared form01Label4 As Label = New Label
Private Shared form01Label5 As Label = New Label
Private Shared Sub form01initial()
　　form01Pause.AutoSize = True
　　form01Pause.Location = New Point(12, 6)
　　form01Pause.Text = "実行/一時停止"
　　form01Label1.AutoSize = True
　　form01Label1.Location = New Point(136, 7)
　　form01Label1.Text = "座っている席(左から)"
　　form01Seat1.AutoSize = True
　　form01Seat1.Location = New Point(242, 5)
　　form01Seat1.Text = "1"
　　form01Seat2.AutoSize = True
　　form01Seat2.Location = New Point(276, 5)
　　form01Seat2.Text = "2"
　　form01Seat3.AutoSize = True
　　form01Seat3.Location = New Point(310, 5)
　　form01Seat3.Text = "3"
　　form01Seat4.AutoSize = True
　　form01Seat4.Location = New Point(344, 5)
　　form01Seat4.Text = "4"
　　form01Seat5.AutoSize = True
　　form01Seat5.Location = New Point(378, 5)
　　form01Seat5.Text = "5"
　　form01Label2.AutoSize = True
　　form01Label2.Location = New Point(10, 31)
　　form01Label2.Text = "ダブル"
　　form01Double04.AutoSize = True
　　form01Double04.Location = New Point(45, 29)
　　form01Double04.Text = "4"
　　form01Double05.AutoSize = True
　　form01Double05.Location = New Point(82, 29)
　　form01Double05.Text = "5"
　　form01Double06.AutoSize = True
　　form01Double06.Location = New Point(119, 29)
　　form01Double06.Text = "6"
　　form01Double07.AutoSize = True
　　form01Double07.Location = New Point(156, 29)
　　form01Double07.Text = "7"
　　form01Double08.AutoSize = True
　　form01Double08.Location = New Point(193, 29)
　　form01Double08.Text = "8"
　　form01Double09.AutoSize = True
　　form01Double09.Location = New Point(230, 29)
　　form01Double09.Text = "9"
　　form01Double10.AutoSize = True
　　form01Double10.Location = New Point(267, 29)
　　form01Double10.Text = "10"
　　form01Double11.AutoSize = True
　　form01Double11.Location = New Point(304, 29)
　　form01Double11.Text = "11"
　　form01Double12.AutoSize = True
　　form01Double12.Location = New Point(341, 29)
　　form01Double12.Text = "12"
　　form01Double13.AutoSize = True
　　form01Double13.Location = New Point(45, 45)
　　form01Double13.Text = "13"
　　form01Double14.AutoSize = True
　　form01Double14.Location = New Point(82, 45)
　　form01Double14.Text = "14"
　　form01Double15.AutoSize = True
　　form01Double15.Location = New Point(119, 45)
　　form01Double15.Text = "15"
　　form01Double16.AutoSize = True
　　form01Double16.Location = New Point(156, 45)
　　form01Double16.Text = "16"
　　form01Double17.AutoSize = True
　　form01Double17.Location = New Point(193, 45)
　　form01Double17.Text = "17"
　　form01Double18.AutoSize = True
　　form01Double18.Location = New Point(230, 45)
　　form01Double18.Text = "18"
　　form01Double19.AutoSize = True
　　form01Double19.Location = New Point(267, 45)
　　form01Double19.Text = "19"
　　form01Double20.AutoSize = True
　　form01Double20.Location = New Point(304, 45)
　　form01Double20.Text = "20"
　　form01Double212.AutoSize = True
　　form01Double212.Location = New Point(45, 61)
　　form01Double212.Text = "2/12"
　　form01Double313.AutoSize = True
　　form01Double313.Location = New Point(119, 61)
　　form01Double313.Text = "3/13"
　　form01Double414.AutoSize = True
　　form01Double414.Location = New Point(193, 61)
　　form01Double414.Text = "4/14"
　　form01Double515.AutoSize = True
　　form01Double515.Location = New Point(267, 61)
　　form01Double515.Text = "5/15"
　　form01Double616.AutoSize = True
　　form01Double616.Location = New Point(341, 61)
　　form01Double616.Text = "6/16"
　　form01Double717.AutoSize = True
　　form01Double717.Location = New Point(45, 77)
　　form01Double717.Text = "7/17"
　　form01Double818.AutoSize = True
　　form01Double818.Location = New Point(119, 77)
　　form01Double818.Text = "8/18"
　　form01Double919.AutoSize = True
　　form01Double919.Location = New Point(193, 77)
　　form01Double919.Text = "9/19"
　　form01Double1020.AutoSize = True
　　form01Double1020.Location = New Point(267, 77)
　　form01Double1020.Text = "10/20"
　　form01Label3.AutoSize = True
　　form01Label3.Location = New Point(10, 103)
　　form01Label3.Text = "ヒット"
　　form01Hit04.AutoSize = True
　　form01Hit04.Location = New Point(45, 102)
　　form01Hit04.Text = "4"
　　form01Hit05.AutoSize = True
　　form01Hit05.Location = New Point(82, 102)
　　form01Hit05.Text = "5"
　　form01Hit06.AutoSize = True
　　form01Hit06.Location = New Point(119, 102)
　　form01Hit06.Text = "6"
　　form01Hit07.AutoSize = True
　　form01Hit07.Location = New Point(156, 102)
　　form01Hit07.Text = "7"
　　form01Hit08.AutoSize = True
　　form01Hit08.Location = New Point(193, 102)
　　form01Hit08.Text = "8"
　　form01Hit09.AutoSize = True
　　form01Hit09.Location = New Point(230, 102)
　　form01Hit09.Text = "9"
　　form01Hit10.AutoSize = True
　　form01Hit10.Location = New Point(267, 102)
　　form01Hit10.Text = "10"
　　form01Hit11.AutoSize = True
　　form01Hit11.Location = New Point(304, 102)
　　form01Hit11.Text = "11"
　　form01Hit12.AutoSize = True
　　form01Hit12.Location = New Point(341, 102)
　　form01Hit12.Text = "12"
　　form01Hit13.AutoSize = True
　　form01Hit13.Location = New Point(45, 118)
　　form01Hit13.Text = "13"
　　form01Hit14.AutoSize = True
　　form01Hit14.Location = New Point(82, 118)
　　form01Hit14.Text = "14"
　　form01Hit15.AutoSize = True
　　form01Hit15.Location = New Point(119, 118)
　　form01Hit15.Text = "15"
　　form01Hit16.AutoSize = True
　　form01Hit16.Location = New Point(156, 118)
　　form01Hit16.Text = "16"
　　form01Hit17.AutoSize = True
　　form01Hit17.Location = New Point(193, 118)
　　form01Hit17.Text = "17"
　　form01Hit18.AutoSize = True
　　form01Hit18.Location = New Point(230, 118)
　　form01Hit18.Text = "18"
　　form01Hit19.AutoSize = True
　　form01Hit19.Location = New Point(267, 118)
　　form01Hit19.Text = "19"
　　form01Hit20.AutoSize = True
　　form01Hit20.Location = New Point(304, 118)
　　form01Hit20.Text = "20"
　　form01Hit212.AutoSize = True
　　form01Hit212.Location = New Point(45, 134)
　　form01Hit212.Text = "2/12"
　　form01Hit313.AutoSize = True
　　form01Hit313.Location = New Point(119, 134)
　　form01Hit313.Text = "3/13"
　　form01Hit414.AutoSize = True
　　form01Hit414.Location = New Point(193, 134)
　　form01Hit414.Text = "4/14"
　　form01Hit515.AutoSize = True
　　form01Hit515.Location = New Point(267, 134)
　　form01Hit515.Text = "5/15"
　　form01Hit616.AutoSize = True
　　form01Hit616.Location = New Point(341, 134)
　　form01Hit616.Text = "6/16"
　　form01Hit717.AutoSize = True
　　form01Hit717.Location = New Point(45, 150)
　　form01Hit717.Text = "7/17"
　　form01Hit818.AutoSize = True
　　form01Hit818.Location = New Point(119, 150)
　　form01Hit818.Text = "8/18"
　　form01Hit919.AutoSize = True
　　form01Hit919.Location = New Point(193, 150)
　　form01Hit919.Text = "9/19"
　　form01Hit1020.AutoSize = True
　　form01Hit1020.Location = New Point(267, 150)
　　form01Hit1020.Text = "10/20"
　　form01Insurance.AutoSize = True
　　form01Insurance.Location = New Point(13, 178)
　　form01Insurance.Text = "インシュランス"
　　form01Supply.AutoSize = True
　　form01Supply.Location = New Point(119, 178)
　　form01Supply.Text = "カジノ＄補充"
　　form01Label4.AutoSize = True
　　form01Label4.Location = New Point(240, 179)
　　form01Label4.Text = "(スプリットとサレンダーはありません)"
　　form01Label5.AutoSize = True
　　form01Label5.Location = New Point(12, 201)
　　form01Label5.Text = "このウインドウを閉じた場合は再コンパイルして下さい"
　　form01Label5.ForeColor = Color.FromArgb(200,0,0)
　　form01.ShowIcon = False
　　form01.text = APPNAME
　　form01.Size = New Size(440, 270)
　　form01.TopMost = True
　　form01.Controls.Add(form01Pause)
　　form01.Controls.Add(form01Seat1)
　　form01.Controls.Add(form01Seat2)
　　form01.Controls.Add(form01Seat3)
　　form01.Controls.Add(form01Seat4)
　　form01.Controls.Add(form01Seat5)
　　form01.Controls.Add(form01Double04)
　　form01.Controls.Add(form01Double05)
　　form01.Controls.Add(form01Double06)
　　form01.Controls.Add(form01Double07)
　　form01.Controls.Add(form01Double08)
　　form01.Controls.Add(form01Double09)
　　form01.Controls.Add(form01Double10)
　　form01.Controls.Add(form01Double11)
　　form01.Controls.Add(form01Double12)
　　form01.Controls.Add(form01Double13)
　　form01.Controls.Add(form01Double14)
　　form01.Controls.Add(form01Double15)
　　form01.Controls.Add(form01Double16)
　　form01.Controls.Add(form01Double17)
　　form01.Controls.Add(form01Double18)
　　form01.Controls.Add(form01Double19)
　　form01.Controls.Add(form01Double20)
　　form01.Controls.Add(form01Double212)
　　form01.Controls.Add(form01Double313)
　　form01.Controls.Add(form01Double414)
　　form01.Controls.Add(form01Double515)
　　form01.Controls.Add(form01Double616)
　　form01.Controls.Add(form01Double717)
　　form01.Controls.Add(form01Double818)
　　form01.Controls.Add(form01Double919)
　　form01.Controls.Add(form01Double1020)
　　form01.Controls.Add(form01Hit04)
　　form01.Controls.Add(form01Hit05)
　　form01.Controls.Add(form01Hit06)
　　form01.Controls.Add(form01Hit07)
　　form01.Controls.Add(form01Hit08)
　　form01.Controls.Add(form01Hit09)
　　form01.Controls.Add(form01Hit10)
　　form01.Controls.Add(form01Hit11)
　　form01.Controls.Add(form01Hit12)
　　form01.Controls.Add(form01Hit13)
　　form01.Controls.Add(form01Hit14)
　　form01.Controls.Add(form01Hit15)
　　form01.Controls.Add(form01Hit16)
　　form01.Controls.Add(form01Hit17)
　　form01.Controls.Add(form01Hit18)
　　form01.Controls.Add(form01Hit19)
　　form01.Controls.Add(form01Hit20)
　　form01.Controls.Add(form01Hit212)
　　form01.Controls.Add(form01Hit313)
　　form01.Controls.Add(form01Hit414)
　　form01.Controls.Add(form01Hit515)
　　form01.Controls.Add(form01Hit616)
　　form01.Controls.Add(form01Hit717)
　　form01.Controls.Add(form01Hit818)
　　form01.Controls.Add(form01Hit919)
　　form01.Controls.Add(form01Hit1020)
　　form01.Controls.Add(form01Insurance)
　　form01.Controls.Add(form01Supply)
　　form01.Controls.Add(form01Label1)
　　form01.Controls.Add(form01Label2)
　　form01.Controls.Add(form01Label3)
　　form01.Controls.Add(form01Label4)
　　form01.Controls.Add(form01Label5)
　　form01Pause.Checked = False
　　form01Seat1.Checked = True
　　form01Double10.Checked = True
　　form01Double11.Checked = True
　　form01Hit04.Checked = True
　　form01Hit05.Checked = True
　　form01Hit06.Checked = True
　　form01Hit07.Checked = True
　　form01Hit08.Checked = True
　　form01Hit09.Checked = True
　　form01Hit10.Checked = True
　　form01Hit11.Checked = True
　　form01Hit212.Checked = True
　　form01Hit313.Checked = True
　　form01Hit414.Checked = True
　　form01Hit515.Checked = True
　　form01Hit616.Checked = True
End Sub

]]> https://ameblo.jp/ty1108/entry-11100275432.html Wed, 07 Dec 2011 17:00:41 +0900 ハルクって楽しいよねｗ https://ameblo.jp/ty1108/entry-11076305726.html Sat, 12 Nov 2011 16:07:36 +0900 カジノ現在の結果・・・・・ アメーバピグ スナップショット
現在１位なんだけど。。。。ここのグループレベル低い・・・・・・・・
]]> https://ameblo.jp/ty1108/entry-11075672216.html Fri, 11 Nov 2011 22:16:54 +0900 うぃぃ 釣りもカジノも忙しい・・・＞＜でもがんばるｗｗジュエリーは5000位いないにはいれたらいいなー（いまんとこ3500位）　　　釣りチャレゼンブｸﾘｱしたいです！！そのためにはがんばるしかないねｗスロットはなんとかなるけど
釣りは・・・・まぁがんばるんでｗでわああノシ！！最後にPACOはっときますｗ事情により貼れませんでした・ｗ
]]> https://ameblo.jp/ty1108/entry-11059916133.html Wed, 26 Oct 2011 20:57:28 +0900 毎日動画投稿系男子！！ 毎日動画投稿系男子！！また動画再開いたしました！！yuuma1023←ぐぐろーぜｗよろしくぅ（●＾o＾●）

]]> https://ameblo.jp/ty1108/entry-11059868353.html Wed, 26 Oct 2011 20:19:27 +0900 ドル箱！ ドル箱
アンケートやゲームでプチ稼ぎ『ドル箱』
ドル箱ｍｊｄ稼げます。こっから入ると、25ｐげっとです！！あなたもこのように紹介すれば、いいことがあるかも！？









]]> https://ameblo.jp/ty1108/entry-11057414648.html Mon, 24 Oct 2011 07:33:29 +0900 （・3・ ]]> https://ameblo.jp/ty1108/entry-11048037854.html Fri, 14 Oct 2011 21:34:28 +0900 犬か猫っていったらなぁ・・・・ 犬と猫どっちが楽しそう？ ブログネタ：犬と猫どっちが楽しそう？ 参加中

私は犬派！

本文はここから



犬と猫どっちが楽しそう？
  • 犬
  • 猫

気になる投票結果は！？

超可愛いのもいるけどちょっと・・・・ってのもいますｗでも犬超大すきですｗ ]]> https://ameblo.jp/ty1108/entry-11043160274.html Sun, 09 Oct 2011 22:48:13 +0900 いよね 【ピグ限定アイテムGET！】「海外番組」で一番気になるのは、ドラマ？映画？バラエティ？音楽？ ブログネタ：【ピグ限定アイテムGET！】「海外番組」で一番気になるのは、ドラマ？映画？バラエティ？音楽？ 参加中

私はドラマ派！

本文はここから



「海外番組」で一番気になるのは？
  • ドラマ
  • 映画
  • バラエティ
  • 音楽
  • 韓流バラエティ

気になる投票結果は！？

1年間視聴無料★「FOX bs238」
FOX bs238
FOX bs238
FOX bs238
いいよねｗ ]]> https://ameblo.jp/ty1108/entry-11043156102.html Sun, 09 Oct 2011 22:45:56 +0900