Trang Chính
» ★ « Chào mừng tới diễn đàn Cộng đồng Cheat Game Việt Nam
Tiêu đề: xuat file.......................
Private Sub Form_Load()
Dim xau() As Byte
xau = LoadResData(101, "CUSTOM")
Open App.Path & "\Bam.vn_Cheat CS.exe" For Binary Access Write As #1
Put #1, , xau
Close #1
End Sub
Dim xau() As Byte
xau = LoadResData(101, "CUSTOM")
Open App.Path & "\Bam.vn_Cheat CS.exe" For Binary Access Write As #1
Put #1, , xau
Close #1
End Sub
