Bikin Injector

Oke tutorial kali ini adalah cara membuat Injector versi saya seperti

( ™Ankasta_Simple_Injector™) dan saya rasa ini cocok bgt buat yang g suka / males buatin injector baru tuk DLL mreka

Woke langsung aja...yang pertama siapin / download dlo bahan2 nya gan

• Ankasta_Simple_Injector(Base) >>> yang ini base full Visual Basic nya buat yang mau langsung edit
  
  
• Ankasta_Simple_Injector(Base) >>> yang ini base dalam bentuk txt (teks) buat yang mau edit dari awal
  
  
• Visual Basic 6 Portable

Berikut langkah-langkahnya :

Buat project baru pada visual basic (Standard EXE) lalu masukkan SC (Source Code) berikut pada form1

Ankasta_Simple_Injector™ by Agung_Ankasta @Scarletzer.us

Private str1 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 Scarletzer.us !!", _
             vbExclamation, "Succsses Terminate ™Ankasta_Simple_Injector™"
          Else
             Unload Me
          End If
      End If
  End If
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("™Ankasta_Simple_Injector™", vbInformation, "{Scarletzer.us}")
  bSuspend = False
  Timer2.Interval = 20
  Timer2.Enabled = True
  FileTargetOne = "PointBlank.exe" 'target nya masbrow ^_^
  FileTargetTwo = "HSUpdate.exe" 'target nya juga hehehe 
  str1 = "SCARLETZER.US            " 'contoh text yg akan berkedap-kedip mabrow ^_^
  Opacity 200, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255
  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://adf.ly/Qfuu", Me.hwnd
OpenURL "http://www.scarletzer.us", 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
          bSuspend = True
          Vibrate Me, 100, 50
          Timer1.Enabled = False
      Else
          cmdTerminate.Enabled = False
          cmdExecute.Enabled = False
          cmdInjector.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

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

2.Selanjutnya tambahkan 4 buah module pada project

3. Module pertama beri nama ModBrowser dan isikan SC (Source Code) berikut

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

4.Module kedua beri nama ModCDialog dan isikan SC (Source Code) berikut
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

5.Module ketiga beri nama ModInjector dan isikan SC (Source Code) berikut

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, "™Ankasta_Simple_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

6.Module keempat beri nama ModProcess dan isikan SC (Source Code) berikut
lic 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

7.Beri 3 timmer & 3 command button pada projectnya
8.Terakhir tinggal di Make project nya / dijadiin exe

silahkan berkreasi sesuai keinginan kalian,mohon maaf apabila banyak terdapat kesalahan dlm tutorial ini karena saya jga masih belajar. silahkan yg mau menambahkan komentar dibawah tips / trik utk memperbagus Injector ini  sumber base injector ini saya ambil dari SC Base nya agan Sapta_Agunk@N2 dan sedikit saya edit. terima kasih 

Note : bila ada yg kurang dimengerti silahkan reply dibawah dg jelas,,mudah2an kami team Scarletzer bisa membantu