Seoting: Trik

<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="post-entry">
<div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIcGx67TpyNrc6Pioqe7SWtWEHrs6JCMj_9cXwlGFDqXGZo9BtxshiIE1yzbgG_uZY6VDZ02-0nZChpOHy9XpGaNyhAsyzYSHlk6NTFR2SH0ffiSas83KHebPHnF6bEex3BTL5VQqqakJa/s1600/Lphacker.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="113" id="irc_mi" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIcGx67TpyNrc6Pioqe7SWtWEHrs6JCMj_9cXwlGFDqXGZo9BtxshiIE1yzbgG_uZY6VDZ02-0nZChpOHy9XpGaNyhAsyzYSHlk6NTFR2SH0ffiSas83KHebPHnF6bEex3BTL5VQqqakJa/s320/Lphacker.JPG" style="margin-top: 140px;" width="320" /></a></div>
1.Buka Visual Basic 6. Klik Disini Untuk Visual Basic 6 Enterprise Edition [FULL] 
2.buat 1 form dengan nama form1 , kemudian Isi Form1 dengan 6 Timer, simpan dimana saja. 
buat 6 command button, masing2 beri nama : 
- Command1 
- Command2 
- Command3 
- cmdInjector 
- cmdExecute 
- cmdTerminate 
 
3. - Untuk cmdInjector beri nama pada menu Caption "Select DLL For Inject" 
- Untuk cmdExecute beri nama pada menu Caption "Resume" 
- Untuk cmdTerminate beri nama pada menu Caption "Terminate" 
 
4. Klik kanan pada Form1 -> View Code , lalu masukan Code berikut : 
 
<dl class="spoiler">
'N2 Injector Revisi 5 November 2010 by Sapta_Agunk, Multi Injector (WhItE_Injector) by Sapta_Agunk from nstars.net [N2] 
 
Private noc As Integer 
Private str1 As String 
Private str2 As String 
Private str3 As String 
Private strmessage As String 
 
Private resmue As String 
Private winHwnd As Long 
Private bSuspend As Boolean 
 
Option Explicit 
Private Declare Function ExtCreateRegion Lib "gdi32" (lpXform As Any, ByVal nCount As Long, lpRgnData As Any) As Long 
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 
 
Dim bytRegion(31) As Byte 
Dim nBytes As Long 
'Win 2k, ME, XP 
Private Const GWL_EXSTYLE As Long = (-20) 
Private Const WS_EX_LAYERED As Long = &H80000 
Private Const LWA_ALPHA As Long = &H2 
Private NamaDll As String 
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, _ 
ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, _ 
ByVal nIndex As Long, _ 
ByVal dwNewLong As Long) As Long 
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _ 
ByVal crey As Byte, _ 
ByVal bAlpha As Byte, _ 
ByVal dwFlags As Long) As Long 
 
 
Private Sub cmdExecute_Click() 
resmue = "yes" 
Unload Me 
End Sub 
 
Private Sub cmdInjector_Click() 
On Error GoTo errLine 
 
If Not cmdInjector.Caption = "Inject Now" Then 
Dim theTemp As String 
theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path) 
If Trim$(theTemp) <> "" Then 
If Dir$(theTemp) <> "" Then 
sFlDLL = theTemp 
cmdInjector.Caption = "Inject Now" 
Else 
sFlDLL = "None" 
cmdInjector.Caption = "Select Dll For Inject" 
End If 
End If 
Else 
If sFlDLL = "None" Then 
MsgBox "You can't Injector execute", 48, "Error Injector" 
Exit Sub 
Else 
InjectExecute sFlDLL 
sFlDLL = "None" 
cmdInjector.Caption = "Select Dll For Inject" 
End If 
End If 
 
Exit Sub 
errLine: 
MsgBox "File tidak respon atau tidak support", 48, "Error" 
End Sub 
 
 
Private Sub cmdTerminate_Click() 
resmue = "yes" 
On Error Resume Next 
Dim lExitCode As Long 
If MsgBox("Terminate Hackshield sekarang?", _ 
vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then 
lExitCode = TerminateTargetOne 
If lExitCode = 0 Then 
MsgBox "Proses terminate gagal.", _ 
vbExclamation, "Terminate info" 
cmdTerminate.Enabled = False 
Else 
lExitCode = TerminateTargetTwo 
If lExitCode = 0 Then 
MsgBox "Succsses.! Jika ada masalah hubungi nstars.net !!", _ 
vbExclamation, "Succsses Terminate N2 Injector" 
Else 
Unload Me 
End If 
End If 
End If 
End Sub 
 
Private Sub Command1_Click() 
InjectExecute App.Path & "\Exm1.dll" 
End Sub 
 
Private Sub Command2_Click() 
InjectExecute App.Path & "\Exm2.dll" 
End Sub 
 
Private Sub Command3_Click() 
InjectExecute App.Path & "\Exm3.dll" 
End Sub 
 
Private Sub File1_Click() 
 
End Sub 
 
'fungsi transparent form 
Private Sub Opacity(Value As Byte, _ 
Frm As Form) 
 
 
Dim MaxVal As Byte 
Dim MinVal As Byte 
 
On Error GoTo ErrorHandler 
MinVal = 20 
MaxVal = 255 
If Value > MaxVal Then 
Value = MaxVal 
End If 
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() 
Dim Welcome As String 
Welcome = MsgBox("Jangan Lupa Ucapkan terimakasih to Sapta_Agunk !! ^_^V Peace !! ", vbInformation, "N2 Injector") 
Welcome
 = MsgBox(" oea ada yg kelupaan !! Selamat Bergabung di nstars.net !! 
xixixixi", vbInformation, "Jangan Lupa Koment ya !!") 
bSuspend = False 
Timer2.Interval = 20 
Timer2.Enabled = True 
FileTargetOne = "PointBlank.exe" 'target nya sob 
FileTargetTwo = "HSUpdate.exe" 'target nya juga xixixixi 
str1 = "Sapta_Agunk" 'contoh text yg akan Kedap Kedip 
str2 = "Special Thanks to Credit" 'contoh text yg akan Kedap Kedip 
str3 = "http://www.nstars.net _copyright@2010 " 'contoh text yg akan berjalan sob 
Opacity 200, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255 
WindowsMediaPlayer1.URL = App.Path & "\Exm.mp3" 'nih audio nya sob 
Dim rgnMain As Long 
 
nBytes = 100 
 
LoadBytes 
 
rgnMain = ExtCreateRegion(ByVal 0&, nBytes, bytRegion(0)) 
SetWindowRgn Me.hWnd, rgnMain, True 
 
 
 
End Sub 
 
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Screen.MousePointer = vbDefault 
End Sub 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
 
If bSuspend = True Then 
 
If Not resmue = "yes" Then 
 
If MsgBox("Klik Yes untuk Terminate (PB dan HS) dan No Untuk Membatalkan", vbYesNo, "") = vbYes Then 
cmdTerminate_Click 
Else 
Cancel = -1 
End If 
 
Else 
OpenURL "http://nstars.net", Me.hWnd 
End If 
End If 
 
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 
cmdTerminate.Enabled = True 
cmdExecute.Enabled = True 
cmdInjector.Enabled = True 
'pengaturan tombol jadi aktif 
Command1.Enabled = True 
Command2.Enabled = True 
Command3.Enabled = True 
bSuspend = True 
Vibrate Me, 100, 50 
Timer1.Enabled = False 
Else 
cmdTerminate.Enabled = False 
cmdExecute.Enabled = False 
cmdInjector.Enabled = False 
'------------------------- 
'pengaturan tombol jadi tidak aktif 
Command1.Enabled = False 
Command2.Enabled = False 
Command3.Enabled = False 
 
Timer1.Enabled = True 
bSuspend = False 
End If 
End Sub 
 
Private Sub Timer2_Timer() 
Me.Top = (Screen.Height - Height) / 2 
Timer2.Enabled = False 
Timer1.Enabled = True 
Timer1.Interval = 20 
End Sub 
Private Sub Timer3_Timer() 
 
If Label1.Visible = True Then 
Label1.Visible = False 
Else 
Label1.Visible = True 
End If 
 
End Sub 
Private Sub Timer4_Timer() 
 
If Label3.Visible = True Then 
Label3.Visible = False 
Else 
Label3.Visible = True 
End If 
 
End Sub 
Private Sub timer5_Timer() 
 
Timer5.Interval = 300 
Label4.Caption = Mid(Label4.Caption, 2, Len(Label4.Caption) - 1) + Mid(Label4.Caption, 1, 1) 
 
 
End Sub 
Private Sub Timer6_Timer() 
 
WindowsMediaPlayer1.Controls.play 
 
End Sub 
 
Sub SlideWindow(frmSlide As Form, iSpeed As Integer) 
While frmSlide.Top - frmSlide.Height < Screen.Height 
DoEvents 
frmSlide.Top = frmSlide.Top + iSpeed 
Wend 
End Sub 
 
Private Sub MoveToTop() 
Dim currentTop As Long 
Dim TargetTop As Long 
Dim currentLeft As Long 
Dim TargetLeft As Long 
 
Dim i As Long 
 
For i = currentTop To TargetTop Step -2 
Me.Top = i 
Next i 
 
 
For i = currentLeft To TargetLeft Step 2 
Me.Left = i 
Next i 
End Sub 
 
Private Sub Vibrate(Frm As Form, rScale As Integer, Times As Integer) 
Dim Lft As Long, Tp As Long 
Dim i 
Lft = Frm.Left 
Tp = Frm.Top 
For i = 0 To Times 
Frm.Move Lft + Sgn(rScale) 
Pause 20 
Frm.Move Lft + rScale 
Pause 20 
Frm.Move Lft, Tp + Sgn(rScale), Frm.Width, Frm.Height 
Pause 20 
Frm.Move Lft, Tp + rScale, Frm.Width, Frm.Height 
Pause 20 
Next i 
End Sub 
 
Private Sub Pause(ms) 
Dim secs 
Dim g 
secs = ms / 1000 
g = Timer 
Do While Timer - g < secs 
DoEvents 
Loop 
End Sub 
Private Sub LoadBytes() 
bytRegion(0) = 100 
bytRegion(4) = 10 
End Sub</dl>
</div>
</div>
</div>
 
 
5. Jika sudah lalu buat 4 Module, dengan memilih Project -> Add Module (ALT+P+M), lalu beri Nama : 
- ModCDialog 
- ModInjector 
- ModBrowser 
- ModProcess 
 
6. Kemudian pada ModCDialog Isi kan Code berikut : 
<dl class="spoiler">
<dt style="cursor: pointer;"> </dt>
<dd><div class="spoiler_content hidden">
Option Explicit 
 
'Common Dialog 
Private Type OPENFILENAME 
lStructSize As Long 
hWndOwner As Long 
hInstance As Long 
lpstrFilter As String 
lpstrCustomFilter As String 
nMaxCustFilter As Long 
nFilterIndex As Long 
lpstrFile As String 
nMaxFile As Long 
lpstrFileTitle As String 
nMaxFileTitle As Long 
lpstrInitialDir As String 
lpstrTitle As String 
Flags As Long 
nFileOffset As Integer 
nFileExtension As Integer 
lpstrDefExt As String 
lCustData As Long 
lpfnHook As Long 
lpTemplateName As String 
End Type 
 
Public Const OFN_READONLY = &H1 
Public Const OFN_OVERWRITEPROMPT = &H2 
Public Const OFN_HIDEREADONLY = &H4 
Public Const OFN_NOCHANGEDIR = &H8 
Public Const OFN_SHOWHELP = &H10 
Public Const OFN_ENABLEHOOK = &H20 
Public Const OFN_ENABLETEMPLATE = &H40 
Public Const OFN_ENABLETEMPLATEHANDLE = &H80 
Public Const OFN_NOVALIDATE = &H100 
Public Const OFN_ALLOWMULTISELECT = &H200 
Public Const OFN_EXTENSIONDIFFERENT = &H400 
Public Const OFN_PATHMUSTEXIST = &H800 
Public Const OFN_FILEMUSTEXIST = &H1000 
Public Const OFN_CREATEPROMPT = &H2000 
Public Const OFN_SHAREAWARE = &H4000 
Public Const OFN_NOREADONLYRETURN = &H8000 
Public Const OFN_NOTESTFILECREATE = &H10000 
Public Const OFN_NONETWORKBUTTON = &H20000 
Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules 
Public Const OFN_EXPLORER = &H80000 ' new look commdlg 
Public Const OFN_NODEREFERENCELINKS = &H100000 
Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules 
Public Const OFN_SHAREFALLTHROUGH = 2 
Public Const OFN_SHARENOWARN = 1 
Public Const OFN_SHAREWARN = 0 
 
Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long 
Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long 
 
'Browse Folder Declarations 
Private Type BrowseInfo 
hWndOwner As Long 
pIDLRoot As Long 
pszDisplayName As Long 
lpszTitle As Long 
ulFlags As Long 
lpfnCallback As Long 
lParam As Long 
iImage As Long 
End Type 
Private Const BIF_RETURNONLYFSDIRS = 1 
Private Const MAX_PATH = 260 
Public Const BIF_STATUSTEXT = &H4& 
Public Const BIF_DONTGOBELOWDOMAIN = 2 
Public Const WM_USER = &H400 
Public Const BFFM_INITIALIZED = 1 
Public Const BFFM_SELCHANGED = 2 
Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100) 
Public Const BFFM_SETSELECTION = (WM_USER + 102) 
 
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long) 
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long 
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long 
 
Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String 
Dim ofn As OPENFILENAME 
Dim A As Long 
Dim theTemp As String 
 
ofn.lStructSize = Len(ofn) 
ofn.hWndOwner = Form1.hwnd 
ofn.hInstance = App.hInstance 
If Right$(Filter, 1) <> "|" Then Filter = Filter + "|" 
For A = 1 To Len(Filter) 
If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0) 
Next 
ofn.lpstrFilter = Filter 
ofn.lpstrFile = Space$(254) 
ofn.nMaxFile = 255 
ofn.lpstrFileTitle = Space$(254) 
ofn.nMaxFileTitle = 255 
ofn.lpstrInitialDir = InitDir 
ofn.lpstrTitle = Title 
ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST 
A = GetOpenFileName(ofn) 
 
If (A) Then 
theTemp = Trim$(ofn.lpstrFile) 
If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp, Len(theTemp) - 1) 
OpenDialog = theTemp 
Else 
OpenDialog = "" 
End If 
End Function 
 
Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String 
'************************************** 
' Name: Win95DirectoryPrompt 
' Description:Prompting the User for a D 
' irectory in Win95. Windows' common dialo 
' gs are great if you want the user to sel 
' ect a file, but what if you want them to 
' select a directory? Call the following f 
' unction, which relies on Win32's new SHB 
' rowseForFolder function: 
' By: Found on the World Wide Web 
Dim iNull As Integer 
Dim lpIDList As Long 
Dim lResult As Long 
Dim sPath As String 
Dim udtBI As BrowseInfo 
 
 
With udtBI 
.hWndOwner = hWndOwner 
.lpszTitle = lstrcat(sPrompt, "") 
.ulFlags = BIF_RETURNONLYFSDIRS 
End With 
lpIDList = SHBrowseForFolder(udtBI) 
 
 
If lpIDList Then 
sPath = String$(MAX_PATH, 0) 
lResult = SHGetPathFromIDList(lpIDList, sPath) 
Call CoTaskMemFree(lpIDList) 
iNull = InStr(sPath, vbNullChar) 
 
 
If iNull Then 
sPath = Left$(sPath, iNull - 1) 
End If 
End If 
If InStr(LCase$(sPath), "\nethood") > 0 Then 
MsgBox "The item that you selected is a folder shortcut, not a folder.", vbCritical, "Browse Folders" 
BrowseForFolder = "" 
Else 
BrowseForFolder = sPath 
End If 
End Function</div>
</dd></dl>
 
 
7. Isikan Code Berikut Pada ModInjector : 
<dl class="spoiler">
<dt style="cursor: pointer;"> </dt>
<dd><div class="spoiler_content hidden">
Option Explicit 
 
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long 
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long 
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 
Private
 Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long,
 lpAddress As Any, ByVal dwSize As Long, ByVal fAllocType As Long, 
flProtect As Long) As Long 
Public Declare Function WriteProcessMemory
 Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, 
lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As
 Long 
Private Declare Function CreateRemoteThread Lib "kernel32" 
(ByVal ProcessHandle As Long, lpThreadAttributes As Long, ByVal 
dwStackSize As Long, ByVal lpStartAddress As Any, ByVal lpParameter As 
Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
 
 
Public Function InjectDll(DllPath As String, ProsH As Long) 
Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As Long 
Dim CreateThread As Long, ThreadID As Long 
Dim Bla As VbMsgBoxResult 
 
g_loadlibary: 
LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA") 
If LibAddress = 0 Then 
Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR") 
If Bla = vbYes Then 
GoTo g_loadlibary 
Else 
Exit Function 
End If 
End If 
 
g_virutalallocex: 
DllLength = Len(DllPath) 
DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4) 
If DLLVirtLoc = 0 Then 
Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR") 
If Bla = vbYes Then 
GoTo g_virutalallocex 
Else 
Exit Function 
End If 
End If 
 
g_writepmemory: 
Inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull) 
If Inject = 0 Then 
Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR") 
If Bla = vbYes Then 
GoTo g_writepmemory 
Else 
Exit Function 
End If 
End If 
 
g_creatthread: 
CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID) 
If CreateThread = 0 Then 
Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR") 
If Bla = vbYes Then 
GoTo g_creatthread 
Else 
Exit Function 
End If 
End If 
 
MsgBox "Seep.. prosses inject telah succsses. Happy CHeating", 64, "White Injector succsses" 
 
End Function 
 
Public Sub InjectExecute(ByVal sFlDLL As String) 
Dim lProcInject As Long 
lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne) 
If lProcInject > "0" Then 
Call InjectDll(sFlDLL, lProcInject) 
End If 
Call CloseHandle(lProcInject) 
End Sub</div>
</dd></dl>
 
 
9. Isikan ModBrowser dengan Code Berikut 
<dl class="spoiler">
<dt style="cursor: pointer;"> </dt>
<dd><div class="spoiler_content hidden">
'modul buka browser 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ 
(ByVal hwnd As Long, _ 
ByVal lpOperation As String, _ 
ByVal lpFile As String, _ 
ByVal lpParameters As String, _ 
ByVal lpDirectory As String, _ 
ByVal nShowCmd As Long) As Long 
 
Public Sub OpenURL(situs As String, sourceHWND As Long) 
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1) 
End Sub</div>
</dd></dl>
 
 
10.Isikan ModProcess dengan Code berikut 
<dl class="spoiler">
<dt style="cursor: pointer;"> </dt>
<dd><div class="spoiler_content hidden">
Option Explicit 
 
Public
 Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal 
Classname As String, ByVal WindowName As String) As Long 
Public 
Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) 
As Long 
Public Declare Function Process32First Lib _ 
"kernel32" (ByVal hSnapShot As Long, _ 
uProcess As PROCESSENTRY32) As Long 
Public Declare Function Process32Next Lib _ 
"kernel32" (ByVal hSnapShot As Long, _ 
uProcess As PROCESSENTRY32) As Long 
Public Declare Function CloseHandle Lib _ 
"kernel32" (ByVal hObject As Long) As Long 
 
Public FileTargetOne As String 
Public FileTargetTwo As String 
Public sFlDLL As String 
 
Public IdTargetOne As Long 
Private IdTargetTwo As Long 
 
Private Const TH32CS_SNAPHEAPLIST = &H1 
Private Const TH32CS_SNAPPROCESS = &H2 
Private Const TH32CS_SNAPTHREAD = &H4 
Private Const TH32CS_SNAPMODULE = &H8 
Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _ 
TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) 
Private Const MAX_PATH = 260 
Public Const PROCESS_ALL_ACCESS = &H1F0FFF 
 
Private Type PROCESSENTRY32 
dwSize As Long 
cntUsage As Long 
th32ProcessID As Long 
th32DefaultHeapID As Long 
th32ModuleID As Long 
cntThreads As Long 
th32ParentProcessID As Long 
pcPriClassBase As Long 
dwFlags As Long 
szExeFile As String * MAX_PATH 
End Type 
 
Private Type MODULEENTRY32 
dwSize As Long 
th32ModuleID As Long 
th32ProcessID As Long 
GlblcntUsage As Long 
ProccntUsage As Long 
modBaseAddr As Long 
modBaseSize As Long 
hModule As Long 
szModule As String * 256 
szExePath As String * 260 
End Type 
 
Private Type THREADENTRY32 
dwSize As Long 
cntUsage As Long 
th32ThreadID As Long 
th32OwnerProcessID As Long 
tpBasePri As Long 
tpDeltaPri As Long 
dwFlags As Long 
End Type 
 
Private Const THREAD_SUSPEND_RESUME = &H2 
Private Declare Function OpenThread Lib _ 
"kernel32.dll" (ByVal dwDesiredAccess As Long, _ 
ByVal bInheritHandle As Boolean, _ 
ByVal dwThreadId As Long) As Long 
Private Declare Function ResumeThread Lib _ 
"kernel32.dll" (ByVal hThread As Long) As Long 
Private Declare Function SuspendThread Lib _ 
"kernel32.dll" (ByVal hThread As Long) As Long 
Private hThread As Long 
 
Private Declare Function CreateToolhelp32Snapshot Lib _ 
"kernel32" (ByVal lFlags As Long, _ 
ByVal lProcessID As Long) As Long 
 
Private Declare Function Module32First Lib _ 
"kernel32" (ByVal hSnapShot As Long, _ 
uProcess As MODULEENTRY32) As Long 
Private Declare Function lstrlen Lib _ 
"kernel32" Alias "lstrlenA" ( _ 
ByVal lpString As String) As Long 
Private Declare Function GetFileTitle Lib _ 
"COMDLG32.DLL" Alias "GetFileTitleA" ( _ 
ByVal lpszFile As String, _ 
ByVal lpszTitle As String, _ 
ByVal cbBuf As Integer) As Integer 
 
Private Declare Function Thread32First Lib _ 
"kernel32.dll" (ByVal hSnapShot As Long, _ 
ByRef lpte As THREADENTRY32) As Boolean 
Private Declare Function Thread32Next Lib _ 
"kernel32.dll" (ByVal hSnapShot As Long, _ 
ByRef lpte As THREADENTRY32) As Boolean 
 
Public Declare Function OpenProcess Lib _ 
"kernel32" (ByVal dwDesiredAccess As Long, _ 
ByVal bInheritHandle As Long, _ 
ByVal dwProcessId As Long) As Long 
 
Private Declare Function TerminateProcess Lib _ 
"kernel32" (ByVal hProcess As Long, _ 
ByVal uExitCode As Long) As Long 
 
Public Function NTProcessList() As Long 
On Error Resume Next 
Dim FileName As String, ExePath As String 
Dim hProcSnap As Long, hModuleSnap As Long, _ 
lProc As Long 
Dim uProcess As PROCESSENTRY32, _ 
uModule As MODULEENTRY32 
Dim intLVW As Integer 
hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&) 
uProcess.dwSize = Len(uProcess) 
lProc = Process32First(hProcSnap, uProcess) 
Do While lProc 
If uProcess.th32ProcessID <> 0 Then 
hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID) 
uModule.dwSize = Len(uModule) 
Module32First hModuleSnap, uModule 
If hModuleSnap > 0 Then 
ExePath = StripNulls(uModule.szExePath) 
FileName = GetFName(ExePath) 
If FileTargetOne = FileName Then IdTargetOne = uProcess.th32ProcessID 
If FileTargetTwo = FileName Then IdTargetTwo = uProcess.th32ProcessID 
End If 
End If 
lProc = Process32Next(hProcSnap, uProcess) 
Loop 
Call CloseHandle(hProcSnap) 
Call CloseHandle(lProc) 
End Function 
 
Function StripNulls(ByVal sStr As String) As String 
StripNulls = Left$(sStr, lstrlen(sStr)) 
End Function 
 
Public Function GetFName(fn) As String 
Dim f%, n% 
GetFName = fn 
f% = InStr(fn, "\") 
Do While f% 
n% = f% 
f% = InStr(n% + 1, fn, "\") 
Loop 
If n% > 0 Then GetFName = Mid$(fn, n% + 1) 
End Function 
 
 
Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _ 
ByVal lProcessID As Long) As Long 
On Error Resume Next 
ReDim Thread(0) 
Dim THREADENTRY32 As THREADENTRY32 
Dim hThreadSnap As Long 
Dim lThread As Long 
hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID) 
THREADENTRY32.dwSize = Len(THREADENTRY32) 
If Thread32First(hThreadSnap, THREADENTRY32) = False Then 
Thread32Enum = -1 
Exit Function 
Else 
ReDim Thread(lThread) 
Thread(lThread) = THREADENTRY32 
End If 
Do 
If Thread32Next(hThreadSnap, THREADENTRY32) = False Then 
Exit Do 
Else 
lThread = lThread + 1 
ReDim Preserve Thread(lThread) 
Thread(lThread) = THREADENTRY32 
End If 
Loop 
Thread32Enum = lThread 
Call CloseHandle(hThreadSnap) 
End Function 
 
Public Function SetSuspendResumeThread(SuspendNow As Boolean) As Long 
Dim Thread() As THREADENTRY32, hPID As Long, hThread As Long, i As Long 
hPID = IdTargetOne 
Thread32Enum Thread(), hPID 
For i = 0 To UBound(Thread) 
If Thread(i).th32OwnerProcessID = hPID Then 
hThread = OpenThread(THREAD_SUSPEND_RESUME, False, (Thread(i).th32ThreadID)) 
If SuspendNow = True Then 
SetSuspendResumeThread = SuspendThread(hThread) 
Else 
SetSuspendResumeThread = ResumeThread(hThread) 
End If 
End If 
Next i 
Call CloseHandle(hThread) 
End Function 
 
Public Function TerminateTargetOne() As Long 
Dim hPID As Long 
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne) 
TerminateTargetOne = TerminateProcess(hPID, 0) 
Call CloseHandle(hPID) 
End Function 
 
Public Function TerminateTargetTwo() As Long 
Dim hPID As Long 
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo) 
TerminateTargetTwo = TerminateProcess(hPID, 0) 
Call CloseHandle(hPID) 
End Function</div>
</dd></dl>
 
 
11. Ingat : perhatikan kode command1 dan command2 pada listing code pada form1 
 
 
Private Sub Command1_Click() 
InjectExecute App.Path & "\Exm1.dll" 
End Sub 
 
 
- Ganti "Exm1.dll" dengan Nama dll yg pengen di masukin, Tapi Saat Inject Harus 1 Folder dengan Injector ! 
 
Created By : Sapta_Agunk 
 
Semoga Bermanfaat...!!

</div>

[Tutorial] Cara Membuat Injector sendiri

1.Buka Visual Basic 6. Klik Disini Untuk Visual Basic 6 Enterprise Edition [FULL] 2.buat 1 form dengan nama form1 , kemudian Isi Form...

Seoting

[Tutorial] Cara Membuat Injector sendiri

Popular

Ranking

Arsip Blog