If Dir(App.Path &"\Audition.exe") = "" Then Msgbox "Copy tất cả vào thư mục chứa Audition !", vbInfomation End End If
2: Code hoàn chỉnh :
Trích dẫn :
Private Sub Check2_Click() If Check2.Value = Checked Then Open App.Path &"\Audition.exe" For Binary As #1 Put #1, &H53F343, &H7600 Put #1, &H53534F, &H322F Close #1 End If If Check2.Value =UnChecked then Open App.Path &"\Audition.exe" For Binary As #1 Put #1, &H53F343, &H7300 Put #1, &H53F34F, &HB42F Close #1 End If End Sub
3:
Trích dẫn :
Shell App.Path &"\Patcher.exe" Nếu bạn mún open Patcher của Audition (Copy zô au trc nhé !)
Copy đúng link dười đây gửi đến nick yahoo bạn bè!
Viết code Hack Au trong VB6
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.