by tuanmuda Sun Apr 10, 2011 10:00 pmstep
1
Klik
Menu Add-Ins - Klik pada Add-Ins Manager, cari VB6 Resouce Editor.
centang pada loaded pada behaviornya.
ini
contoh pictnya Add Ins Manager,
kalau
tidak ada berarti vb6 nya tidak komplit, coba downlot yg versi full.
[You must be registered and logged in to see this image.]
[You must be registered and logged in to see this link.]
step 2
ntar
kalau dah aktif (terloaded), coba klik menu tool - klik pada resource
editor. pada resource editor klik pada icon add custom resource (icon
kotak, disebelah icon help yang tanda ?), dan pilih file dll nya. kalau
udah klik save. ntar liat kode resource nya misalnya 101. dan pembuatan
library dalam resource selesai.
step 3
buat
modul dengan nama CreateFileFromResource
ntar saat
loading injector, tepatnya pada form_load, extract dll nya.
misalnya kode hasil simpan dll nya diresource adalah 101. maka
tidak
harus nama.dll itu dll, bisa juga direname, misalnya nama.ini, nama.crc,
nama.bin. or whatever, tetap bisa jalan asalkan betul2 library.
nah berdasarkan contoh diatas, itu dll ditempatkan di
c:\temp\namadll1.dll, ntar kode injectnya menjadi
Jika Bermanfaat Kasih CenDol Broo
1
Klik
Menu Add-Ins - Klik pada Add-Ins Manager, cari VB6 Resouce Editor.
centang pada loaded pada behaviornya.
ini
contoh pictnya Add Ins Manager,
kalau
tidak ada berarti vb6 nya tidak komplit, coba downlot yg versi full.
[You must be registered and logged in to see this image.]
[You must be registered and logged in to see this link.]
step 2
ntar
kalau dah aktif (terloaded), coba klik menu tool - klik pada resource
editor. pada resource editor klik pada icon add custom resource (icon
kotak, disebelah icon help yang tanda ?), dan pilih file dll nya. kalau
udah klik save. ntar liat kode resource nya misalnya 101. dan pembuatan
library dalam resource selesai.
step 3
buat
modul dengan nama CreateFileFromResource
- Code:
Public Sub CreateFileFromRessource(ByVal ID As Integer, _
ByVal FileName As String)
Dim DataArray() As Byte
Dim Handle As Integer
DataArray = LoadResData(ID, "CUSTOM")
Handle = FreeFile
Open FileName For Binary As #Handle
Put #Handle, , DataArray
Close #Handle
Erase DataArray
End Sub
ntar saat
loading injector, tepatnya pada form_load, extract dll nya.
misalnya kode hasil simpan dll nya diresource adalah 101. maka
- Code:
Private Sub Form_Load
.............kode lainnya/kode injector .............
'auto create folder temp
Dim dPath As String
on error resume next
dPath = "c:\temp"
If Dir$(dPath) = "" Then
MkDir dPath
End If
'sisipkan kode extract file dari resource
CreateFileFromRessource (101, "c:\temp\namadll1.dll") 'terserah maunya
nyimpan/extract dimana. ini cuman contoh.
End sub
tidak
harus nama.dll itu dll, bisa juga direname, misalnya nama.ini, nama.crc,
nama.bin. or whatever, tetap bisa jalan asalkan betul2 library.
nah berdasarkan contoh diatas, itu dll ditempatkan di
c:\temp\namadll1.dll, ntar kode injectnya menjadi
- Code:
injectexecute "c:\temp\namadll1.dll"
Jika Bermanfaat Kasih CenDol Broo
» UPDATE WALLHACK 05 - july - 2011 DENSUS 88 MODE | insert ON
» tips agar char yg ke banned di kembalikan
» Cheat Title hack dan misi major
» cheat nya lengkap
» Video Management for DLNA-Connect and Stream AVCHD Videos to Projector via DLNA on NAS with Window 7 MTS/M2TS Joiner
» DLNA Projector-Enjoy Vacation AVCHD videos on Projector with NAS sharing via DLNA