Code Hack Audition VB6

Private Sub Check1_Click()
If Check1.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Per Feck"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF472, &H907C
Put #1, &H4DF473, &H907F


Close #1
End If
If Check1.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4DF472, &H7F7C
Put #1, &H4DF473, &H3F7F
Close #1
End If
End Sub


Private Sub Check11_Click()
If Check11.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Per BR"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF4B8, &H9000
Put #1, &H4DF4B9, &H9001
Put #1, &H4DF4B6, &H9002
Put #1, &H4DF4B7, &H9001


Close #1
End If
If Check11.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4DF4B8, &H100
Put #1, &H4DF4B9, &H201
Put #1, &H4DF4B6, &H102
Put #1, &H4DF4B7, &H2
Close #1
End If
End Sub

Private Sub Check7_Click()
If Check7.Value = Checked Then
FileCopy "nkons2khj.dll", "Hackdel.exe"
Shell App.Path & "\Hackdel.exe"
Check7.Enabled = False
End If
End Sub



Private Sub Check12_Click()
If Check12.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Bug Score BU"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4F11F7, &H4903

Close #1
End If
If Check12.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4F11F7, &H3
Close #1
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Bug Diem Vip"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF517, &H4916
Put #1, &H4DF51B, &H493B
Put #1, &H4DF51F, &H4961
Put #1, &H4DF527, &H4996
Put #1, &H4DF52B, &H49A8
Put #1, &H4DF52F, &H49C8


Close #1
End If
If Check2.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H4DF517, &H4416
Put #1, &H4DF51B, &H443B
Put #1, &H4DF51F, &H4461
Put #1, &H4DF527, &H4496
Put #1, &H4DF52B, &H44A8
Put #1, &H4DF52F, &H44C8
Close #1
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Dao Xink+Noi Bay"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4ADC63, &H732F
Put #1, &H4ADDCB, &H316E

Close #1
End If
If Check3.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H4ADC63, &H652F
Put #1, &H4ADDCB, &H766E
Close #1
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss Ðon"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &HA620
Put #1, &H1A7FDD, &H610

Close #1
End If
If Check4.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check5_Click()
If Check5.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss Ðon"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &HFB20
Put #1, &H1A7FDD, &H3310

Close #1
End If
If Check5.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If


End Sub
Private Sub Check6_Click()
If Check6.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss Nho'm"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &H6F20
Put #1, &H1A7FDD, &H1710

Close #1
End If
If Check6.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check7_Click()
If Check7.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss BU"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &H7020
Put #1, &H1A7FDD, &H1610

Close #1
End If
If Check7.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check8_Click()
If Check8.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss BR"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &H1F20
Put #1, &H1A7FDD, &H2C10

Close #1
End If
If Check8.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check9_Click()
If Check9.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Bug Gioi Tinh"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4F3BB6, &H4E00
Put #1, &H4F3BC0, &H6

Close #1
End If
If Check9.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H4FABB6, &H5A00
Put #1, &H4F3BC0, &H6B
Close #1
End If
End Sub

Private Sub Command1_Click()

MsgBox " Ban Da Bat Hack Thanh Cong", , "Design Hoastyle"
FileCopy App.Path & "\Modz.dll", App.Path & "\data\031.acv"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4FABB6, &H5A00
Put #1, &H4F3BC0, &H6B




Private Sub Check1_Click()
If Check1.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Cool ko Miss"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF47e, &H4099
Put #1, &H4DF484, &H403f
put #1, &h4df485, &h4000
Put #1, &H4DF476, &H4000
Put #1, &H4DF487, &H4000
put #1, &h4df488, &h4000
Put #1, &H4DF479, &H4000
Put #1, &H4DF48b, &H4080


Close #1
End If
If Check1.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"


Close #1
End If











Code Hack Auditon All Vesion

Private Sub Check1_Click()
'Hack Perfect
If Check1.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Perfect"
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF47B, &H4073
Put #1, &H4DF47F, &H4059
Put #1, &H4DF483, &H4047
Put #1, &H4DF487, &H4000
Put #1, &H4DF48F, &H4080
Close #1

End If
If Check1.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary Access Write As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4DF47B, &H3F73
Put #1, &H4DF47F, &H3F59
Put #1, &H4DF483, &H3F47
Put #1, &H4DF487, &H0
Put #1, &H4DF48F, &H3F80
Close #1

End If

End Sub