STARK™
Welcome To Stars Cheaters

Cara Membuat Injektor dan Suspend Sendiri

Topik sebelumnya Topik selanjutnya Go down

Cara Membuat Injektor dan Suspend Sendiri

Post by |VJ|NaZtHeW on October 22nd 2010, 2:50 pm

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

|VJ|NaZtHeW
Corporal Grade IV
Corporal Grade IV

Gender : Male Sagittarius Jumlah posting : 40
Reputasi : 176
Cendol : 14
Birthday : 17.12.94
Join date : 20.10.10
Age : 21
Lokasi : Yogyakarta

Lihat profil user

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik