Membuat Injector di VB6.0

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