Cara Membuat Injektor dan Suspend Sendiri

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 & "\sebelah kiri.dll" 'sebelah kiri.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

Jangan Lupa Cendolnya,,,,

Created:|VJ|NaZtHeW