Cara memasukkan DLL ke [INJECTOR] By : ™†Snuter_Daniels†™

step 1
Klik Menu Add-Ins - Klik pada Add-Ins Manager, cari VB6 Resouce Editor. centang pada loaded pada behaviornya.

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

Spoiler:

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

Private Sub Form_Load

Spoiler:

Code:: ............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

Spoiler:

Code:: injectexecute "c:tempnamadll1.dll"

gddfg

Tamu

ga ngerti gw.....
ini mah main copas ajaaa

wah

tapi ane mau nanya nih gaan, klo d ganti file extensionnya kan ntar bisa ngga jalan tuh..
misalnya dari XXX.dll jadi XXX.js .. otomatiskan dy brubah jadi format javascript gaan bingung