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
Copy đúng link dười đây gửi đến nick yahoo bạn bè!
Show Code Hack Perfect All Version !!!
Trang 1 trong tổng số 1 trang
Bài viết cùng chuyên mục
Bài viết liên quan
* Bài viết sưu tầm nên ghi rõ nguồn (Sưu Tâm). * Không dùng những ngôn từ thiếu lịch sư.* Tránh spam nhầm những chủ đề không liên quan. * Bấm nút A/a bên góc phải nếu gặp vấn đề khi chèn hình vui. * Nếu thấy bài viết hay, hãy bấm nút Người viết.