Tiêu đề: [Share] Code Hack Audition VB6 Version 6111 | |
| | | | | | Nguồn : Http://www.jeenbiteam.forumvi.com/t138-topic
Tiêu Đề : [Share] Code Hack Audition VB6 Version 6111
JeenBi☺Team - Kết Nối Cộng Đồng Tân Phú Online -------------------------------------------------- - Code:
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 | | | | |
Copy đường link dưới đây gửi đến nick yahoo bạn bè! |
|
|