Julian Hacker Admin
Jumlah posting : 21 Join date : 10.09.11 Age : 29 Lokasi : Batam, Kepulauan Riau
| Subyek: [Tutorial] Cara memasukan Dll ke Injector Fri Sep 30, 2011 1:40 pm | |
| - Step 1 Klik Menu Add-ins lalu klik Add - ins Manager, cari VB6 Resource Editor. Cetang pada loaded pada behaviornya. ini contoh Pictnya Add - ins Manager. kalau tidak ada di VB6nya belum komplit, coba download yg versi Full. - 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 module bernama CreateFileFromResource - Spoiler:
Public Sub CreateFileFromResource(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 - Spoiler:
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
Finish | |
|