MessageBox For DLL/C++ & Injector/VB6

Oke langsung aja, ane cuma ingin berbagi tentang jenis2 messagebox .

For DLL/Dev-C++,MS VC++ :

Jenis2 MessageBox untuk DLL Agan : # MB_ICONEXCLAMATION 
# MB_ICONWARNING  
# MB_ICONINFORMATION 
# MB_ICONASTERISK
# MB_ICONQUESTION
# MB_ICONSTOP
# MB_ICONERROR
# MB_ICONHAND

For Injector/VB6 :

Jenis2 MessageBox untuk Injector Agan :
#vbCritical
#vbQuestion
#vbExclamation
#vbInformation

*NB : Untuk DLL Caranya Seperti Ini :

MessageBox (0,"|Minimize On = F1| Thanks to HRD/RCD ","ryannaN2 a.K.a Eriz", MB_OK | "MB_ICONEXCLAMATION");

Dan untuk Injector Caranya Seperti Ini :

MsgBox("Thanks to ryannaN2 a.K.a Eriz !! akakak LoL", "vbInformation", "Crewcabangers Injection")

anda tinggal COPAS salah satu jenis messagebox yg sudah saya sediakan dan taruh COPASAN ke bagian "MB_ICONEXCLAMATION" tanpa tanda kutip untuk DLL dan "vbInformation" untuk Injector tanpa tanda kutip juga .

atau tinggal DL saja Jenis2 MessageBox yg sudah saya siapkan di sini.

Read More

MEMASUKAN DLL KE DALAM INJECTOR

Sebelum nya sorry ... gak bisa detail .. "Koneksi Lemod" [VGA ... boro -boro]
Laptop Mode On ... alhasil >> CUman Copazz <<

step 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.

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

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

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

injectexecute "c:\temp\namadll1.dll"

FINISH

Read More