-=[a*N]=-^aZz^?<~

CARA 1
Kali ini ane coba sampaikan tutorial membuat file DLL untuk keperluan game hacking dengan menggunakan Visual C++ 2008 Express secara sederhana.

Adapun software yang diperlukan sebagai berikut, yang belum punya silakan download: Download

Visual C++ 2008 Express Edition (free)
Injector, dalam tutorial ini tool injector favorit ane adalah x1nject


Adapun target game yang ada dalam tutorial ini adalah Point Blank, dengan contoh hack misi mayor.

Silakan ikuti langkah-langah di bawah ini:

1. Jalankan Visual C++ 2008 Express Edition, buat sebuah project dengan cara akses menu File - New - Project atau dengan menekan tombol CTRL + SHIFT + N.

2. Pada jendela New Project, pilih Empty Project (1) pada bagian Templates, kemudian pada kolom Name masukkan nama project (2) dan klik tombol OK (3)

3. Project telah berhasil dibuat. Pada bagian Solution Explorer, klik kanan pada nama project (1), kemudian pilih menu Properties (2).


4.Jendela project properties akan tampil. Pada tree menu sebelah kiri, pilih Configuration Properties (1), kemudian bagian opsi Project Defaults, ubah opsi Configuration Type menjadi Dynamic Library (.dll) (2), kemudian tekan tombol OK (3) untuk melakukan perubahan.

5. Pada jendela Add New Item yang tampil, pada bagian templates pilih C++ File (.cpp) (1), beri nama 'Main.cpp' (2) pada bagian kolom Name, kemudian tekan tombol OK (3).

6. Sebuah file bernama 'Main.cpp' berhasil dibuat. Silakan masukkan kode-kode di bawah ini pada file tersebut, kemudian simpan (save)

7. Berikutnya adalah membuat sebuah file bernama Main.cpp untuk memasukkan kode-kode utama, dengan cara pilih direktori Source Files (1) pada bagian Solution Explorer, kemudian klik menu Project - Add New Item (2) atau dengan menekan tombol CTRL + SHIFT + A.


#define _CRT_SECURE_NO_WARNINGS
#include
#include

// definisikan variable dengan 'window title', 'window classname' dan modul
char *pProcessWindowTitle = "Point Blank";
char *pProcessWindowClass = "I3VIEWER";
char *pProcessModuleName = "PointBlank.i3Exec";

// etc...
UINT_PTR uipUserRankValue = 35; // major?
UINT_PTR uipUserPointsValue = 999999; // OMG!

UINT_PTR uiptrFinalRank, uiptrFinalPoints;

bool isInitMmhMemory = true;

DWORD dwProcessID;
UINT_PTR uipMmhBaseAddress;
HANDLE hProcess;

DWORD GetModuleBase(LPSTR lpModuleName, DWORD dwProcessId)
{
MODULEENTRY32 lpModuleEntry = {0};
HANDLE hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwProcessId);

if(!hSnapShot)
return NULL;
lpModuleEntry.dwSize = sizeof(lpModuleEntry);
BOOL bModule = Module32First( hSnapShot, &lpModuleEntry );
while(bModule)
{
if(!strcmp( lpModuleEntry.szModule, lpModuleName ) )
{
CloseHandle(hSnapShot);
return (DWORD)lpModuleEntry.modBaseAddr;
}
bModule = Module32Next( hSnapShot, &lpModuleEntry );
}
CloseHandle( hSnapShot );
return NULL;
}

// DeRef() = credit L. Spiro (MHS)
UINT_PTR DeRef( UINT_PTR _uiptrPointer ) {
UINT_PTR uiptrRet;
if (!::ReadProcessMemory(hProcess, reinterpret_cast(_uiptrPointer), &uiptrRet, sizeof(uiptrRet), NULL)) { return 0UL; }
return uiptrRet;
}

// inisialisasi proses
void InitApplicationProcess()
{
bool isFindWindow = true;
HWND hWnd = NULL;

while(isFindWindow)
{
if((hWnd = FindWindowA(pProcessWindowClass, pProcessWindowTitle)) != NULL) // jika window ditemukan
{
isFindWindow = false;
}
Sleep(500);
}

GetWindowThreadProcessId(hWnd, &dwProcessID);
hProcess = OpenProcess(PROCESS_ALL_ACCESS|PROCESS_VM_OPERATION|PROCESS_VM_READ|PROCESS_VM_WRITE|PROCESS_QUERY_INFORMATION, FALSE, dwProcessID);
}

void MajorMissionHack()
{
if(isInitMmhMemory)
{
uipMmhBaseAddress = GetModuleBase(pProcessModuleName, dwProcessID);

// misal: pointer yang didapat = PointBlank.i3Exec+00471234 dengan offset 0xA12, tuliskan seperti di bawah!
uiptrFinalRank = DeRef(uipMmhBaseAddress + 0x4XXXXX) + 0xXXX; // User rank pointer - masked, sorry!
uiptrFinalPoints = DeRef(uipMmhBaseAddress + 0x4XXXXX) + 0xXXX; // User points pointer - masked, sorry!

isInitMmhMemory = false;
}

// WriteProcessMemory pada pointer 'rank', berikan nilai uipUserRankValue (35)
::WriteProcessMemory(hProcess, reinterpret_cast(uiptrFinalRank), &uipUserRankValue, sizeof(uipUserRankValue), NULL);

// WriteProcessMemory pada pointer 'points', berikan nilai uipUserPointsValue (999999) LOL!
::WriteProcessMemory(hProcess, reinterpret_cast(uiptrFinalPoints), &uipUserPointsValue, sizeof(uipUserPointsValue), NULL);
}

void LovelyLoopy()
{
// ok, berikan salam dulu!
MessageBox(0, "DLL berhasil di-inject. Lanjutkan!", "Hello World", MB_OK + MB_ICONASTERISK);

InitApplicationProcess();

while(1) // loop selamanya
{
if(GetAsyncKeyState(VK_F12)&1) // jika F12 ditekan
{
MajorMissionHack(); // panggil fungsi 'MajorMissionHack()'
Sleep(500);
}

Sleep(1);
}
}

BOOL WINAPI DllMain(HMODULE hDll, DWORD dwReason, LPVOID lpReserved)
{
DisableThreadLibraryCalls(hDll);

if(dwReason == DLL_PROCESS_ATTACH)
{
CreateThread(NULL, NULL, (LPTHREAD_START_ROUTINE)LovelyLoopy, NULL, NULL, NULL);
}
else if(dwReason == DLL_PROCESS_DETACH)
{
CloseHandle(hProcess);
}

return TRUE;
}

8. Jika kode sudah disimpan (save), langkah berikutnya adalah membentuk file DLL-nya dengan cara klik menu Build - Build Solution atau dengan menekan tombol F7.

9. Setelah proses build solution, pada jendela Output akan menampilkan hasil dari proses compile/build tersebut, jika tidak ada kesalahan (error) berarti kode-kode sudah benar dan file DLL sudah terbentuk. Jika ternyata ada kesalahan (error), silakan periksa langkah-langkah sebelumnya jika ada yang terlewatkan.

10. Kemudian buka direktori tempat project anda disimpan, dalam tutorial ini ane simpan di direktori D:\!PROJECTS!\SukaSukaEnte dan buka direktori yang bernama Debug di dalamnya (sesuaikan letak direktori anda).

Bisa kita lihat ada beberapa file yang terbentuk, namun yang kita perlukan hanyalah file yang berekstensi .dll, karena file tersebut yang akan kita injeksikan ke proses program/game. Agar tidak membingungkan, sekaligus ane copy-kan file injector-nya (x1nject.exe) ke direktori tersebut.


11. Kemudian jalankan injector (x1nject.exe), ubah pada kolom 'What to inject' dengan nama proses program/game, (contoh: PointBlank.exe), pada bagian 'Add to injection list' tambahkan file .dll yang telah kita buat dengan menekan tombol Browse dan cari pada direktori Debug project kita.

12. Jalankan program/game yang akan kita injeksikan dengan .dll yang kita buat, dan apabila program/game telah berjalan, injector x1nject.exe otomatis menginjeksikan file .dll tersebut.

CARA 2

- Microsoft visual basic 6.0 [kalau bisa jangan yang portable]
- Logika

PERSIAPAN
- Siapin bahan yang akan dipakai seperti gambar trainer dsb
- Hilangin semua permasalahan yang ada [karena kita memakai logika "jika"]

Ok kita mulai :

1. Buka vb6 >> pilih standar exe
disini kita akan menambahkan gambar, icon dsb
2. Tambahkan lima command button dan dua timer
kemudian kita rubah commandnya
[perhatikan bintik merah : name, caption]
name = nama dari command button
caption = tulisan pada command button

PERUBAHAN NAME :
command 3 = cmdTerminate
command 4 = cmdExecute
command 5 = cmdInjector
yang lain cukup rubah captionnya saja

3. Tambahkan 4 module
ubah masing - masing nama module sebagai berikut :
ModInjector
ModBrowser
ModProcess
ModCDialog

Alhamdulillah tahap pertama dah jadi ...

sekarang tinggal tahap kedua isi form dan isi module
MODINJECTOR DOWNLOAD
MODBROWSER DOWNLOAD
MODPROCESS DOWNLOAD
MODDIALOG DOWNLOAD

tinggal copy paste dari masing-masing ke tempatnya masing masing.....
caranya klik kanan dan pilih view code

OK pada tahap ini injector kamu dah jadi tinggal pilih FILE, make project.exe [bisa dirubah dengan nama injector kamu].. tetapi dengan syarat file .dll nya diganti dengan destroyer1 dst [karena source yang saya beri namanya itu] kalau mau dengan nama kamu sendiri ikuti yang berikut ....


Tahap ketiga
1. Ingin merubah nama dll. yang di inject ???

rubah "destroyer1.dll" dengan .dll kepunyaan mu

2. Rubah alamat yang [blog, forum dsb] dibuka setelah injector dijalankan ???
pada code form cari dan rubah :
OpenURL "TULIS DISINI ALAMAT BLOGMU/FORUM", me.Hwnd dengan alamat blog/forum kamu

DONE
injector kamu sudah jadi. tinggal menambahkan [.dll] dalam satu folder dengan injector kamu

CARA 3

bahan:
1.Visual Basic 06

Cara pembuatan:
1.buka Vb06,pilih standard exe,lalu buat 1 form,1 timer 1 tabel
contoh gambar di bawah ini


2.klik 2x formnya,lalu isi dengan kode berikut ini:
Option Explicit<br /> 'Win 2k, ME, XP<br /> Private Const GWL_EXSTYLE As Long = (-20)<br /> Private Const WS_EX_LAYERED As Long = &H80000<br /> Private Const LWA_ALPHA As Long = &H2<br /> Private winHwnd As Long<br /> Private NamaDll As String<br /> Private Declare Function GetWindowLongA Lib "USER32" (ByVal hwnd As Long, _<br /> ByVal nIndex As Long) As Long<br /> Private Declare Function SetWindowLongA Lib "USER32" (ByVal hwnd As Long, _<br /> ByVal nIndex As Long, _<br /> ByVal dwNewLong As Long) As Long<br /> Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hwnd As Long, _<br /> ByVal crey As Byte, _<br /> ByVal bAlpha As Byte, _<br /> ByVal dwFlags As Long) As Long<br /> <br /> Private Sub silakandiedit()<br /> <br /> '---------------------------------------------------------------<br /> ' silakan diedit bagian kode dibawah ini<br /> '---------------------------------------------------------------<br /> <br /> Me.Caption = "RFD AutoInjector" 'pengaturan caption atau nama injector<br /> 'Opacity 150, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255<br /> NamaDll = App.Path & "\" & "suntix.dll" 'isikan nama library, contoh: suntix.dll<br /> FileTarget = "PointBlank.exe"<br /> Timer1.Interval = 20 'interval untuk timer<br /> '----------------------------------------------------------------<br /> <br /> End Sub<br /> <br /> 'fungsi transparent form<br /> Private Sub Opacity(Value As Byte, _<br /> Frm As Form)<br /> <br /> <br /> Dim MaxVal As Byte<br /> Dim MinVal As Byte<br /> <br /> On Error GoTo ErrorHandler<br /> MinVal = 20<br /> MaxVal = 255<br /> If Value > MaxVal Then<br /> Value = MaxVal<br /> End If<br /> If Value < MinVal Then Value = MinVal End If SetWindowLongA Frm.hwnd, GWL_EXSTYLE, GetWindowLongA(Frm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes Frm.hwnd, 0, Value, LWA_ALPHA ErrorHandler: Exit Sub End Sub Private Sub Form_Load() App.TaskVisible = False 'hidden aplikasi dari window taskmanager terserah mau true/false 'tetapi tidak hidden di process 'perintah menghindari aplikasi dijalankan 2 kali 'pada saat yg bersamaan '---------------------------------------- If App.PrevInstance Then End End If '---------------------------------------- silakandiedit '--> memanggil perintah pada -->> Private Sub silakandiedit()<br /> <br /> End Sub<br /> <br /> <br /> Private Sub Timer1_Timer()<br /> <br /> winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate<br /> If Not winHwnd = 0 Then 'jika ditemukan<br /> NTProcessList 'deteksi process pointblank<br /> InjectExecute (NamaDll) 'inject library<br /> End 'tutup otomatis injector<br /> Else 'jika tidak<br /> Label1.Caption = "Waiting NamaGame..." 'sabar menanti<br /> End If<br /> <br /> End Sub<br /> <br /> Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<br /> OpenURL "http://www.ipalzblog.blogspot.com", Me.hwnd<br /> End Sub<br /> " width="150" height="70" style="display:inline" border="0" /></a>

3.klik kanan,lalu add module..ubah nama modulenya dengan modinjection
Option Explicit<br /> Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _<br /> ByVal lpProcName As String) As Long<br /> Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long<br /> Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long<br /> Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, _<br /> lpAddress As Any, _<br /> ByVal dwSize As Long, _<br /> ByVal fAllocType As Long, _<br /> flProtect As Long) As Long<br /> Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _<br /> ByVal lpBaseAddress As Any, _<br /> lpBuffer As Any, _<br /> ByVal nSize As Long, _<br /> lpNumberOfBytesWritten As Long) As Long<br /> Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, _<br /> lpThreadAttributes As Long, _<br /> ByVal dwStackSize As Long, _<br /> ByVal lpStartAddress As Any, _<br /> ByVal lpParameter As Any, _<br /> ByVal dwCreationFlags As Long, _<br /> lpThreadID As Long) As Long<br /> Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<br /> <br /> <br /> Public Sub InjectDll(DllPath As String, _<br /> ProsH As Long)<br /> <br /> <br /> Dim DLLVirtLoc As Long<br /> Dim DllLength As Long<br /> <br /> Dim inject As Long<br /> Dim LibAddress As Long<br /> Dim CreateThread As Long<br /> Dim ThreadID As Long<br /> Dim Bla As VbMsgBoxResult<br /> g_loadlibary:<br /> LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")<br /> If LibAddress = 0 Then<br /> Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_loadlibary<br /> Else 'NOT BLA...<br /> Exit Sub<br /> End If<br /> End If<br /> g_virutalallocex:<br /> DllLength = Len(DllPath)<br /> DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4)<br /> If DLLVirtLoc = 0 Then<br /> Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_virutalallocex<br /> Else 'NOT BLA...<br /> Exit Sub<br /> End If<br /> End If<br /> g_writepmemory:<br /> inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)<br /> If inject = 0 Then<br /> Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_writepmemory<br /> Else 'NOT BLA...<br /> Exit Sub<br /> End If<br /> End If<br /> g_creatthread:<br /> CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)<br /> If CreateThread = 0 Then<br /> Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_creatthread<br /> Else 'NOT BLA...<br /> Exit Sub<br /> End If<br /> End If<br /> <br /> MsgBox "Dll Injection Successful!", vbInformation, "Success"<br /> End Sub<br /> <br /> Public Sub InjectExecute(ByVal sFlDLL As String)<br /> <br /> Dim lProcInject As Long<br /> <br /> lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)<br /> If lProcInject > "0" Then<br /> Call InjectDll(sFlDLL, lProcInject)<br /> <br /> End If<br /> Call CloseHandle(lProcInject)<br /> <br /> End Sub<br /> " width="150" height="70" style="display:inline" border="0" /></a>

4.klik kanan lagi,tambahkan module juga,ubah namanya jadi modprocess
Option Explicit<br /> Public FileTarget As String<br /> Public sFlDLL As String<br /> Public IdTargetOne As Long<br /> Private Const TH32CS_SNAPHEAPLIST As Long = &H1<br /> Private Const TH32CS_SNAPPROCESS As Long = &H2<br /> Private Const TH32CS_SNAPTHREAD As Long = &H4<br /> Private Const TH32CS_SNAPMODULE As Long = &H8<br /> Private Const TH32CS_SNAPALL As Double = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)<br /> Private Const MAX_PATH As Integer = 260<br /> Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF<br /> Private Type PROCESSENTRY32<br /> dwSize As Long<br /> cntUsage As Long<br /> th32ProcessID As Long<br /> th32DefaultHeapID As Long<br /> th32ModuleID As Long<br /> cntThreads As Long<br /> th32ParentProcessID As Long<br /> pcPriClassBase As Long<br /> dwFlags As Long<br /> szExeFile As String * MAX_PATH<br /> End Type<br /> Private Type MODULEENTRY32<br /> dwSize As Long<br /> th32ModuleID As Long<br /> th32ProcessID As Long<br /> GlblcntUsage As Long<br /> ProccntUsage As Long<br /> modBaseAddr As Long<br /> modBaseSize As Long<br /> hModule As Long<br /> szModule As String * 256<br /> szExePath As String * 260<br /> End Type<br /> Private Type THREADENTRY32<br /> dwSize As Long<br /> cntUsage As Long<br /> th32ThreadID As Long<br /> th32OwnerProcessID As Long<br /> tpBasePri As Long<br /> tpDeltaPri As Long<br /> dwFlags As Long<br /> End Type<br /> Private Const THREAD_SUSPEND_RESUME As Long = &H2<br /> Private hThread As Long<br /> Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, _<br /> ByVal lProcessID As Long) As Long<br /> Private Declare Function Module32First Lib "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As MODULEENTRY32) As Long<br /> Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long<br /> Private Declare Function GetFileTitle Lib "COMDLG32.DLL" Alias "GetFileTitleA" (ByVal lpszFile As String, _<br /> ByVal lpszTitle As String, _<br /> ByVal cbBuf As Integer) As Integer<br /> Private Declare Function Thread32First Lib "kernel32.dll" (ByVal hSnapShot As Long, _<br /> ByRef lpte As THREADENTRY32) As Boolean<br /> Private Declare Function Thread32Next Lib "kernel32.dll" (ByVal hSnapShot As Long, _<br /> ByRef lpte As THREADENTRY32) As Boolean<br /> Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _<br /> ByVal bInheritHandle As Long, _<br /> ByVal dwProcessId As Long) As Long<br /> Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, _<br /> ByVal uExitCode As Long) As Long<br /> Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, _<br /> ByVal WindowName As String) As Long<br /> Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, _<br /> ByVal wMsg As Long, _<br /> ByVal wParam As Long, _<br /> lParam As Any) As Long<br /> Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As PROCESSENTRY32) As Long<br /> Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As PROCESSENTRY32) As Long<br /> Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long<br /> Private Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, _<br /> ByVal bInheritHandle As Boolean, _<br /> ByVal dwThreadId As Long) As Long<br /> Private Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As Long) As Long<br /> Private Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Long) As Long<br /> <br /> Public Function NTProcessList() As Long<br /> <br /> Dim FileName As String<br /> <br /> Dim ExePath As String<br /> Dim hProcSnap As Long<br /> Dim hModuleSnap As Long<br /> Dim lProc As Long<br /> Dim uProcess As PROCESSENTRY32<br /> Dim uModule As MODULEENTRY32<br /> On Error Resume Next<br /> hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)<br /> uProcess.dwSize = Len(uProcess)<br /> lProc = Process32First(hProcSnap, uProcess)<br /> Do While lProc<br /> If uProcess.th32ProcessID <> 0 Then<br /> hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)<br /> uModule.dwSize = Len(uModule)<br /> Module32First hModuleSnap, uModule<br /> If hModuleSnap > 0 Then<br /> ExePath = StripNulls(uModule.szExePath)<br /> FileName = GetFName(ExePath)<br /> If FileTarget = FileName Then<br /> IdTargetOne = uProcess.th32ProcessID<br /> End If<br /> End If<br /> End If<br /> lProc = Process32Next(hProcSnap, uProcess)<br /> Loop<br /> Call CloseHandle(hProcSnap)<br /> Call CloseHandle(lProc)<br /> On Error GoTo 0<br /> <br /> End Function<br /> <br /> Private Function StripNulls(ByVal sStr As String) As String<br /> <br /> <br /> StripNulls = Left$(sStr, lstrlen(sStr))<br /> <br /> End Function<br /> <br /> Public Function GetFName(fn) As String<br /> Dim f%, n%<br /> GetFName = fn<br /> f% = InStr(fn, "\")<br /> Do While f%<br /> n% = f%<br /> f% = InStr(n% + 1, fn, "\")<br /> Loop<br /> If n% > 0 Then GetFName = Mid$(fn, n% + 1)<br /> End Function<br /> <br /> Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _<br /> ByVal lProcessID As Long) As Long<br /> <br /> Dim THREADENTRY32 As THREADENTRY32<br /> Dim hThreadSnap As Long<br /> Dim lThread As Long<br /> <br /> On Error Resume Next<br /> ReDim Thread(0) As THREADENTRY32<br /> hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID)<br /> THREADENTRY32.dwSize = Len(THREADENTRY32)<br /> If Thread32First(hThreadSnap, THREADENTRY32) = False Then<br /> Thread32Enum = -1<br /> Exit Function<br /> Else<br /> ReDim Thread(lThread) As THREADENTRY32<br /> Thread(lThread) = THREADENTRY32<br /> End If<br /> Do<br /> If Thread32Next(hThreadSnap, THREADENTRY32) = False Then<br /> Exit Do<br /> Else<br /> lThread = lThread + 1<br /> ReDim Preserve Thread(lThread)<br /> Thread(lThread) = THREADENTRY32<br /> End If<br /> Loop<br /> Thread32Enum = lThread<br /> Call CloseHandle(hThreadSnap)<br /> On Error GoTo 0<br /> <br /> End Function<br /> " width="150" height="70" style="display:inline" border="0" /></a>

5.klik kanan lagi tambahkan module,ubah namanya jadi modbrowser
'modul buka browser<br /> Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _<br /> (ByVal hwnd As Long, _<br /> ByVal lpOperation As String, _<br /> ByVal lpFile As String, _<br /> ByVal lpParameters As String, _<br /> ByVal lpDirectory As String, _<br /> ByVal nShowCmd As Long) As Long<br /> <br /> Public Sub OpenURL(situs As String, sourceHWND As Long)<br /> Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)<br /> End Sub<br /> " width="150" height="70" style="display:inline" border="0" /></a>

Note:-jika ingin mengubah nama filenya,lihat di form1,liat yg
"RFD AutoInjector" ubahla RFD AutoInjector sesuka nama anda
-ini adalah auto injector,jadi dllnya gak pakai browse lagi,jadi otomatis...
tinggal ubah nama dllnya aja,perhatikan yg di dekat ubah nama injector ubahlah suntix.dll jadi nama dll anda..contoh:suntix.dll jadi 20102010.dll
-jika telah selesai mengisi source codenya jgn lupa untuk di kustomisasi lagi programnya seperti mengubah backgroundnya
-jika ingin mengubah setelah berhasil inject terbuka browesr ke web,cari aja di form terakhir yg ada bacaan http://ipalzblog.blogspot.com,ubahlah sesuai alamat yg anda inginkan
-jika semuanya sudah jadi klik File>build project exe..

CARA 4
nie untuk download vb6 express edition 2008
DOWNLOAD
Sebelumnya gw dah ngajarin.
Nah ini .


Oke,bahan:

-VB6./8
-Advanced only
-Sabar dan teliti

Komponen:

-2 Command Button
-2 Timer
-1 Module
Cara :
Copas semua ke form
yg warna merah

Private resmue As String
Private winHwnd As Long
Private bSuspend As Boolean
Private Sub Command1_Click()
InjectExecute App.Path & "\snutz.dll" 'snutz.dll ubah jadi nama yang mw di injek
End Sub
Private Sub Command2_Click()
    resmue = "yes"
    Unload Me
End Sub

Private Sub Form_Load()
    bSuspend = False
    Timer2.Interval = 20
    Timer2.Enabled = True
    FileTargetOne = "PointBlank.exe"
    FileTargetTwo = "HSUpdate.exe"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If bSuspend = True Then SetSuspendResumeThread False
    End
End Sub

Private Sub Timer1_Timer()
    winHwnd = FindWindow(vbNullString, "HSUpdate")
        If winHwnd <> 0 Then
            NTProcessList
            SetSuspendResumeThread True
            Command1.Enabled = True
            Command2.Enabled = True
            bSuspend = True
            Timer1.Enabled = False
        Else
            Command1.Enabled = False
            Command2.Enabled = False
           
            Timer1.Enabled = True
            bSuspend = False
        End If
End Sub

Private Sub Timer2_Timer()
   Timer2.Enabled = False
   Timer1.Enabled = True
   Timer1.Interval = 20
End Sub

 Panduan bisa di liat di bwh

YOUTUBE 

Free Template Blogger collection template Hot Deals SEO