Cara Membuat Injector dan Suspender

Cara Membuat Injector dan Suspender

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

VB 6.0 BISA DI CARI DI PAMAN GOOGLE

  SELAMAT BERKARYA MEMBUAT CHEAT