Cara Membuat Injector Point Blank

Ok.............!!!!!!!!!!!!!!!
            Kali Ini Kita Akan Membuat Tool Atau Cheat(Injector)
Pasti Kalian Semua Udah Pada Tau Apa Itu (Cheat)..........:D


 Pada Tutorial Kali ini Saya Akan Membuat Injector PointBlank
 Tool Yang Di Butuhkan

1- Visual Basic 6.0

2- Makanan Ringan

3- Marimas Mangga



• Pertama, Anda Download Dulu Vb 6.0 nya
• Lalu Anda Buka Vb Nya Maka Anda Akan Melihat Seperti Ini

Klik Standard EXE,



• Lalu beri nama form tersebut Di Kolom Categorized►Caption
" ganti form1 Dengan nama exe anda".
• Klik kanan Form tersebut Dan Klik View Code
• Jika Sudah Anda Copy Kode Dibawah ini
"      

Wheldt Injector  by Dhani HAcker, Multi Injector (Wheldt_Injector)  From Volcano.forumid,net [WI]<br /> <br /> Private noc As Integer<br /> Private str1 As String<br /> Private str2 As String<br /> Private str3 As String<br /> Private strmessage As String<br /> <br /> Private resmue As String<br /> Private winHwnd As Long<br /> Private bSuspend As Boolean<br /> <br /> Option Explicit<br /> Private Declare Function ExtCreateRegion Lib "gdi32" (lpXform As Any, ByVal nCount As Long, lpRgnData As Any) As Long<br /> Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long<br /> <br /> Dim bytRegion(31) As Byte<br /> Dim nBytes As Long<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 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 /> <br /> Private Sub cmdExecute_Click()<br /> resmue = "yes"<br /> Unload Me<br /> End Sub<br /> <br /> Private Sub cmdInjector_Click()<br /> On Error GoTo errLine<br /> <br /> If Not cmdInjector.Caption = "Inject Now" Then<br /> Dim theTemp As String<br /> theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path)<br /> If Trim$(theTemp) <> "" Then<br /> If Dir$(theTemp) <> "" Then<br /> sFlDLL = theTemp<br /> cmdInjector.Caption = "Inject Now"<br /> Else<br /> sFlDLL = "None"<br /> cmdInjector.Caption = "Select Dll For Inject"<br /> End If<br /> End If<br /> Else<br /> If sFlDLL = "None" Then<br /> MsgBox "You can't Injector execute", 48, "Error Injector"<br /> Exit Sub<br /> Else<br /> InjectExecute sFlDLL<br /> sFlDLL = "None"<br /> cmdInjector.Caption = "Select Dll For Inject"<br /> End If<br /> End If<br /> <br /> Exit Sub<br /> errLine:<br /> MsgBox "File tidak respon atau tidak support", 48, "Error"<br /> End Sub<br /> <br /> <br /> Private Sub cmdTerminate_Click()<br /> resmue = "yes"<br /> On Error Resume Next<br /> Dim lExitCode As Long<br /> If MsgBox("Terminate Hackshield sekarang?", _<br /> vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then<br /> lExitCode = TerminateTargetOne<br /> If lExitCode = 0 Then<br /> MsgBox "Proses terminate gagal.", _<br /> vbExclamation, "Terminate info"<br /> cmdTerminate.Enabled = False<br /> Else<br /> lExitCode = TerminateTargetTwo<br /> If lExitCode = 0 Then<br /> MsgBox "Succsses.! Jika ada masalah hubungi nstars.net !!", _<br /> vbExclamation, "Succsses Terminate N2 Injector"<br /> Else<br /> Unload Me<br /> End If<br /> End If<br /> End If<br /> End Sub<br /> <br /> Private Sub Command1_Click()<br /> InjectExecute App.Path & "\Exm1.dll"<br /> End Sub<br /> <br /> Private Sub Command2_Click()<br /> InjectExecute App.Path & "\Exm2.dll"<br /> End Sub<br /> <br /> Private Sub Command3_Click()<br /> InjectExecute App.Path & "\Exm3.dll"<br /> End Sub<br /> <br /> Private Sub File1_Click()<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() 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<br /> NTProcessList<br /> SetSuspendResumeThread True<br /> cmdTerminate.Enabled = True<br /> cmdExecute.Enabled = True<br /> cmdInjector.Enabled = True<br /> 'pengaturan tombol jadi aktif<br /> Command1.Enabled = True<br /> Command2.Enabled = True<br /> Command3.Enabled = True<br /> bSuspend = True<br /> Vibrate Me, 100, 50<br /> Timer1.Enabled = False<br /> Else<br /> cmdTerminate.Enabled = False<br /> cmdExecute.Enabled = False<br /> cmdInjector.Enabled = False<br /> '-------------------------<br /> 'pengaturan tombol jadi tidak aktif<br /> Command1.Enabled = False<br /> Command2.Enabled = False<br /> Command3.Enabled = False<br /> <br /> Timer1.Enabled = True<br /> bSuspend = False<br /> End If<br /> End Sub<br /> <br /> Private Sub Timer2_Timer()<br /> Me.Top = (Screen.Height - Height) / 2<br /> Timer2.Enabled = False<br /> Timer1.Enabled = True<br /> Timer1.Interval = 20<br /> End Sub<br /> Private Sub Timer3_Timer()<br /> <br /> If Label1.Visible = True Then<br /> Label1.Visible = False<br /> Else<br /> Label1.Visible = True<br /> End If<br /> <br /> End Sub<br /> Private Sub Timer4_Timer()<br /> <br /> If Label3.Visible = True Then<br /> Label3.Visible = False<br /> Else<br /> Label3.Visible = True<br /> End If<br /> <br /> End Sub<br /> Private Sub timer5_Timer()<br /> <br /> Timer5.Interval = 300<br /> Label4.Caption = Mid(Label4.Caption, 2, Len(Label4.Caption) - 1) + Mid(Label4.Caption, 1, 1)<br /> <br /> <br /> End Sub<br /> Private Sub Timer6_Timer()<br /> <br /> WindowsMediaPlayer1.Controls.play<br /> <br /> End Sub<br /> <br /> Sub SlideWindow(frmSlide As Form, iSpeed As Integer)<br /> 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

• Nah Close Aja.........................
• Klik project Di atas Lalu pilih add module Dan Beri nama " ModProcess "
• Dan Copy Lagi Kode Dibawah

Option Explicit<br /> <br /> Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long<br /> 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<br /> Public Declare Function Process32First Lib _<br /> "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As PROCESSENTRY32) As Long<br /> Public Declare Function Process32Next Lib _<br /> "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As PROCESSENTRY32) As Long<br /> Public Declare Function CloseHandle Lib _<br /> "kernel32" (ByVal hObject As Long) As Long<br /> <br /> Public FileTargetOne As String<br /> Public FileTargetTwo As String<br /> Public sFlDLL As String<br /> <br /> Public IdTargetOne As Long<br /> Private IdTargetTwo As Long<br /> <br /> Private Const TH32CS_SNAPHEAPLIST = &H1<br /> Private Const TH32CS_SNAPPROCESS = &H2<br /> Private Const TH32CS_SNAPTHREAD = &H4<br /> Private Const TH32CS_SNAPMODULE = &H8<br /> Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _<br /> TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)<br /> Private Const MAX_PATH = 260<br /> Public Const PROCESS_ALL_ACCESS = &H1F0FFF<br /> <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 /> <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 /> <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 /> <br /> Private Const THREAD_SUSPEND_RESUME = &H2<br /> Private Declare Function OpenThread Lib _<br /> "kernel32.dll" (ByVal dwDesiredAccess As Long, _<br /> ByVal bInheritHandle As Boolean, _<br /> ByVal dwThreadId As Long) As Long<br /> Private Declare Function ResumeThread Lib _<br /> "kernel32.dll" (ByVal hThread As Long) As Long<br /> Private Declare Function SuspendThread Lib _<br /> "kernel32.dll" (ByVal hThread As Long) As Long<br /> Private hThread As Long<br /> <br /> Private Declare Function CreateToolhelp32Snapshot Lib _<br /> "kernel32" (ByVal lFlags As Long, _<br /> ByVal lProcessID As Long) As Long<br /> <br /> Private Declare Function Module32First Lib _<br /> "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As MODULEENTRY32) As Long<br /> Private Declare Function lstrlen Lib _<br /> "kernel32" Alias "lstrlenA" ( _<br /> ByVal lpString As String) As Long<br /> Private Declare Function GetFileTitle Lib _<br /> "COMDLG32.DLL" Alias "GetFileTitleA" ( _<br /> ByVal lpszFile As String, _<br /> ByVal lpszTitle As String, _<br /> ByVal cbBuf As Integer) As Integer<br /> <br /> Private Declare Function Thread32First Lib _<br /> "kernel32.dll" (ByVal hSnapShot As Long, _<br /> ByRef lpte As THREADENTRY32) As Boolean<br /> Private Declare Function Thread32Next Lib _<br /> "kernel32.dll" (ByVal hSnapShot As Long, _<br /> ByRef lpte As THREADENTRY32) As Boolean<br /> <br /> Public Declare Function OpenProcess Lib _<br /> "kernel32" (ByVal dwDesiredAccess As Long, _<br /> ByVal bInheritHandle As Long, _<br /> ByVal dwProcessId As Long) As Long<br /> <br /> Private Declare Function TerminateProcess Lib _<br /> "kernel32" (ByVal hProcess As Long, _<br /> ByVal uExitCode As Long) As Long<br /> <br /> Public Function NTProcessList() As Long<br /> On Error Resume Next<br /> Dim FileName As String, ExePath As String<br /> Dim hProcSnap As Long, hModuleSnap As Long, _<br /> lProc As Long<br /> Dim uProcess As PROCESSENTRY32, _<br /> uModule As MODULEENTRY32<br /> Dim intLVW As Integer<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 FileTargetOne = FileName Then IdTargetOne = uProcess.th32ProcessID<br /> If FileTargetTwo = FileName Then IdTargetTwo = uProcess.th32ProcessID<br /> End If<br /> End If<br /> lProc = Process32Next(hProcSnap, uProcess)<br /> Loop<br /> Call CloseHandle(hProcSnap)<br /> Call CloseHandle(lProc)<br /> End Function<br /> <br /> Function StripNulls(ByVal sStr As String) As String<br /> StripNulls = Left$(sStr, lstrlen(sStr))<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 /> <br /> Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _<br /> ByVal lProcessID As Long) As Long<br /> On Error Resume Next<br /> ReDim Thread(0)<br /> Dim THREADENTRY32 As THREADENTRY32<br /> Dim hThreadSnap As Long<br /> Dim lThread As Long<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)<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 /> End Function<br /> <br /> Public Function SetSuspendResumeThread(SuspendNow As Boolean) As Long<br /> Dim Thread() As THREADENTRY32, hPID As Long, hThread As Long, i As Long<br /> hPID = IdTargetOne<br /> Thread32Enum Thread(), hPID<br /> For i = 0 To UBound(Thread)<br /> If Thread(i).th32OwnerProcessID = hPID Then<br /> hThread = OpenThread(THREAD_SUSPEND_RESUME, False, (Thread(i).th32ThreadID))<br /> If SuspendNow = True Then<br /> SetSuspendResumeThread = SuspendThread(hThread)<br /> Else<br /> SetSuspendResumeThread = ResumeThread(hThread)<br /> End If<br /> End If<br /> Next i<br /> Call CloseHandle(hThread)<br /> End Function<br /> <br /> Public Function TerminateTargetOne() As Long<br /> Dim hPID As Long<br /> hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)<br /> TerminateTargetOne = TerminateProcess(hPID, 0)<br /> Call CloseHandle(hPID)<br /> End Function<br /> <br /> Public Function TerminateTargetTwo() As Long<br /> Dim hPID As Long<br /> hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo)<br /> TerminateTargetTwo = TerminateProcess(hPID, 0)<br /> Call CloseHandle(hPID)<br /> End Function<br /> <br />

• Pilih Add module Lagi Dan Beri nama  " ModBrowser "
• lalu Copy Code Berikut

'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 /> <br />

• Pilih Add module Lagi Dan Beri nama " ModCDialog "

• lalu Copy Code Berikut

Option Explicit<br /> <br /> 'Common Dialog<br /> Private Type OPENFILENAME<br /> lStructSize As Long<br /> hWndOwner As Long<br /> hInstance As Long<br /> lpstrFilter As String<br /> lpstrCustomFilter As String<br /> nMaxCustFilter As Long<br /> nFilterIndex As Long<br /> lpstrFile As String<br /> nMaxFile As Long<br /> lpstrFileTitle As String<br /> nMaxFileTitle As Long<br /> lpstrInitialDir As String<br /> lpstrTitle As String<br /> Flags As Long<br /> nFileOffset As Integer<br /> nFileExtension As Integer<br /> lpstrDefExt As String<br /> lCustData As Long<br /> lpfnHook As Long<br /> lpTemplateName As String<br /> End Type<br /> <br /> Public Const OFN_READONLY = &H1<br /> Public Const OFN_OVERWRITEPROMPT = &H2<br /> Public Const OFN_HIDEREADONLY = &H4<br /> Public Const OFN_NOCHANGEDIR = &H8<br /> Public Const OFN_SHOWHELP = &H10<br /> Public Const OFN_ENABLEHOOK = &H20<br /> Public Const OFN_ENABLETEMPLATE = &H40<br /> Public Const OFN_ENABLETEMPLATEHANDLE = &H80<br /> Public Const OFN_NOVALIDATE = &H100<br /> Public Const OFN_ALLOWMULTISELECT = &H200<br /> Public Const OFN_EXTENSIONDIFFERENT = &H400<br /> Public Const OFN_PATHMUSTEXIST = &H800<br /> Public Const OFN_FILEMUSTEXIST = &H1000<br /> Public Const OFN_CREATEPROMPT = &H2000<br /> Public Const OFN_SHAREAWARE = &H4000<br /> Public Const OFN_NOREADONLYRETURN = &H8000<br /> Public Const OFN_NOTESTFILECREATE = &H10000<br /> Public Const OFN_NONETWORKBUTTON = &H20000<br /> Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules<br /> Public Const OFN_EXPLORER = &H80000 ' new look commdlg<br /> Public Const OFN_NODEREFERENCELINKS = &H100000<br /> Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules<br /> Public Const OFN_SHAREFALLTHROUGH = 2<br /> Public Const OFN_SHARENOWARN = 1<br /> Public Const OFN_SHAREWARN = 0<br /> <br /> Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long<br /> Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long<br /> <br /> 'Browse Folder Declarations<br /> Private Type BrowseInfo<br /> hWndOwner As Long<br /> pIDLRoot As Long<br /> pszDisplayName As Long<br /> lpszTitle As Long<br /> ulFlags As Long<br /> lpfnCallback As Long<br /> lParam As Long<br /> iImage As Long<br /> End Type<br /> Private Const BIF_RETURNONLYFSDIRS = 1<br /> Private Const MAX_PATH = 260<br /> Public Const BIF_STATUSTEXT = &H4&<br /> Public Const BIF_DONTGOBELOWDOMAIN = 2<br /> Public Const WM_USER = &H400<br /> Public Const BFFM_INITIALIZED = 1<br /> Public Const BFFM_SELCHANGED = 2<br /> Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)<br /> Public Const BFFM_SETSELECTION = (WM_USER + 102)<br /> <br /> Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)<br /> Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long<br /> Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long<br /> Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long<br /> <br /> Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String<br /> Dim ofn As OPENFILENAME<br /> Dim A As Long<br /> Dim theTemp As String<br /> <br /> ofn.lStructSize = Len(ofn)<br /> ofn.hWndOwner = Form1.hwnd<br /> ofn.hInstance = App.hInstance<br /> If Right$(Filter, 1) <> "|" Then Filter = Filter + "|"<br /> For A = 1 To Len(Filter)<br /> If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0)<br /> Next<br /> ofn.lpstrFilter = Filter<br /> ofn.lpstrFile = Space$(254)<br /> ofn.nMaxFile = 255<br /> ofn.lpstrFileTitle = Space$(254)<br /> ofn.nMaxFileTitle = 255<br /> ofn.lpstrInitialDir = InitDir<br /> ofn.lpstrTitle = Title<br /> ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST<br /> A = GetOpenFileName(ofn)<br /> <br /> If (A) Then<br /> theTemp = Trim$(ofn.lpstrFile)<br /> If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp, Len(theTemp) - 1)<br /> OpenDialog = theTemp<br /> Else<br /> OpenDialog = ""<br /> End If<br /> End Function<br /> <br /> Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String<br /> '**************************************<br /> ' Name: Win95DirectoryPrompt<br /> ' Description:Prompting the User for a D<br /> ' irectory in Win95. Windows' common dialo<br /> ' gs are great if you want the user to sel<br /> ' ect a file, but what if you want them to<br /> ' select a directory? Call the following f<br /> ' unction, which relies on Win32's new SHB<br /> ' rowseForFolder function:<br /> ' By: Found on the World Wide Web<br /> Dim iNull As Integer<br /> Dim lpIDList As Long<br /> Dim lResult As Long<br /> Dim sPath As String<br /> Dim udtBI As BrowseInfo<br /> <br /> <br /> With udtBI<br /> .hWndOwner = hWndOwner<br /> .lpszTitle = lstrcat(sPrompt, "")<br /> .ulFlags = BIF_RETURNONLYFSDIRS<br /> End With<br /> lpIDList = SHBrowseForFolder(udtBI)<br /> <br /> <br /> If lpIDList Then<br /> sPath = String$(MAX_PATH, 0)<br /> lResult = SHGetPathFromIDList(lpIDList, sPath)<br /> Call CoTaskMemFree(lpIDList)<br /> iNull = InStr(sPath, vbNullChar)<br /> <br /> <br /> If iNull Then<br /> sPath = Left$(sPath, iNull - 1)<br /> End If<br /> End If<br /> If InStr(LCase$(sPath), "\nethood") > 0 Then<br /> MsgBox "The item that you selected is a folder shortcut, not a folder.", vbCritical, "Browse Folders"<br /> BrowseForFolder = ""<br /> Else<br /> BrowseForFolder = sPath<br /> End If<br /> End Function<br />

• Pilih Add module Lagi Dan Beri nama " ModInjector "


• lalu Copy Code Berikut

Option Explicit<br /> <br /> Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, 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, lpAddress As Any, ByVal dwSize As Long, ByVal fAllocType As Long, flProtect As Long) As Long<br /> 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<br /> 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<br /> Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<br /> <br /> <br /> Public Function InjectDll(DllPath As String, ProsH As Long)<br /> Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As Long<br /> Dim CreateThread As Long, ThreadID As Long<br /> Dim Bla As VbMsgBoxResult<br /> <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<br /> Exit Function<br /> End If<br /> End If<br /> <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<br /> Exit Function<br /> End If<br /> End If<br /> <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<br /> Exit Function<br /> End If<br /> End If<br /> <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<br /> Exit Function<br /> End If<br /> End If<br /> <br /> MsgBox "Seep.. prosses inject telah succsses. Happy CHeating", 64, "White Injector succsses"<br /> <br /> End Function<br /> <br /> Public Sub InjectExecute(ByVal sFlDLL As String)<br /> Dim lProcInject As Long<br /> lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)<br /> If lProcInject > "0" Then<br /> Call InjectDll(sFlDLL, lProcInject)<br /> End If<br /> Call CloseHandle(lProcInject)<br /> End Sub<br /> <br />

• Setelah Di Copy Semua Code Tersebut,
         - Sisipkan 6 Buah Timer
         - 4 Label
         - Dan 6 Command Button
• Naaaah.....,
 Dari pada Bingung Mendingan Download Aja Video Tutorialnya

Sumber : http://wheldt.forumid.net

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi, software, dan tutorial

Artikel Cara Membuat Injector Point Blank ini dipublish oleh Unknown pada hari Kamis, 28 April 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Cara Membuat Injector Point Blank