™ THE]X[BLUE ™
"SELAMAT DATANG DI KELUARGA BESAR =THE-X-BLUE="


Join the forum, it's quick and easy

™ THE]X[BLUE ™
"SELAMAT DATANG DI KELUARGA BESAR =THE-X-BLUE="
™ THE]X[BLUE ™
Would you like to react to this message? Create an account in a few clicks or log in to continue.
SUBSCRIBE YOUTUBE KITA
Latest topics
» Cheat Garena full Hack 2015
[Tutor]Membuat Injektor EmptyThu Sep 24, 2015 4:29 pm by delpieroz

» Cheat Point Blank D3D Menu
[Tutor]Membuat Injektor EmptyThu Mar 12, 2015 3:09 pm by delpieroz

» Salam kenal
[Tutor]Membuat Injektor EmptySun Feb 01, 2015 3:08 pm by fadli.portny

» New Update Cheat PB Auto HS = SIMPLE NO RUSUH Version 4.0 Terbaru 1-10 November 2014
[Tutor]Membuat Injektor EmptyWed Dec 31, 2014 9:07 pm by royalframe89

» Download Cheat Premium Auto HS + WH + Anti VK 23-27 Oktober 2014
[Tutor]Membuat Injektor EmptyThu Oct 23, 2014 10:18 pm by Green_Hat™

» TANYA JAWAB SEKITAR POINTBLANK
[Tutor]Membuat Injektor EmptyMon Oct 20, 2014 8:58 pm by riskaana

» Download Cheat Premium Auto HS + WH + Anti VK 15-20 Oktober 2014
[Tutor]Membuat Injektor EmptyMon Oct 20, 2014 8:51 pm by riskaana

» EVENT MENJADI 'SUPER MODERATOR'
[Tutor]Membuat Injektor EmptyThu Oct 16, 2014 3:03 pm by ™T.X.B-Bypassing™

» Cheat Point Blank 14-18 oktober 2014 D3D Menu 1 HIT Full Wallhack
[Tutor]Membuat Injektor EmptyTue Oct 14, 2014 2:34 am by Green_Hat™


[Tutor]Membuat Injektor

2 posters

Go down

[Tutor]Membuat Injektor Empty [Tutor]Membuat Injektor

Post  S|C™ Sev3n† Sun Dec 26, 2010 3:26 pm

Oke langsung aja kita buat Injektor Versi gue Alat yang Di GunakanVB 6

Nie SS : [You must be registered and logged in to see this image.]

Tutor :
Buat Form 1 dan Isi code pada Form 1
buat 4 command button, masing2 beri nama : Exit,cmdInjector,cmdExecute,cmdTerminate.
untuk cmdInjector beri nama caption "Select DLL For Inject" tanpa tanda kutip
untuk cmdExecute beri nama caption "Resume".
untuk cmdTerminate beri nama caption "Terminate"
buat timer pada form, masing2 beri nama : timer1 dan timer2
kemudian buat 4 modul masing beri nama ModCDialog,ModInjector, ModBrowser, dan ModProcess

Step 1 isi Form dngan Code ini :
Private resmue As String
Private winHwnd As Long
Private bSuspend As Boolean

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
OpenURL "http://scarletzer.listen2myradio.com/", Me.hwnd
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 "Proses terminate sukses.", _
vbExclamation, "Terminate info"
Else
Unload Me
End If
End If
End If
End Sub

Private Sub Form_Load()
Welcome = MsgBox("WellCome Scarletzer !! ", vbInformation, "scarletzer Injector")
Welcome = MsgBox(" Thank's S|C™️Sev3n†", vbInformation, "Jangan Lupa Join yaaa !!")
bSuspend = False
Me.Left = (Screen.Width - Width) / 2
' Me.Top = -1000
Timer2.Interval = 20
Timer2.Enabled = True
FileTargetOne = "PointBlank.exe"
FileTargetTwo = "HSUpdate.exe"

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://scarletzer.indonesianforum.net", 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
'pengaturan tombol jadi aktif
Command1.Enabled = True
Command2.Enabled = True
bSuspend = True
Vibrate Me, 100, 20
MoveToTop
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

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
currentTop = Me.Top
TargetTop = (Screen.Height - Height) / 50

For i = currentTop To TargetTop Step -2
Me.Top = i
Next i

currentLeft = Me.Left
TargetLeft = (Screen.Width - Me.Width) - 100

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 = 1 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 Command1_Click()
End
End Sub

Step 2 isi modul ModCDialog :

Spoiler:

Step 3 Isi Code ModInjector :
Spoiler:

Step 4 Isi Code ModProcess :

Spoiler:

Step 5 Isi Code ModBrowser :
Spoiler:

klo udh klik File>>Save Project.exe

Sory Gue ga bisa Upload Tutor Vidoa Nya,.,karna JAringan Gue lemot

klo masih bingung silahkan replay yg sopan di bwh ini,.,.,.Idea Idea
S|C™ Sev3n†
S|C™ Sev3n†

Jumlah posting : 11
Points : 35
Join date : 21.12.10

http://scarletzer.indonesianforum.net/

Kembali Ke Atas Go down

[Tutor]Membuat Injektor Empty Re: [Tutor]Membuat Injektor

Post  T]X[B.ASOY-GEBOY Mon Dec 27, 2010 3:24 am

Nais Nais kereen om biasa untuk di pelajari
T]X[B.ASOY-GEBOY
T]X[B.ASOY-GEBOY
Moderator
Moderator

Jumlah posting : 218
Points : 414
Join date : 09.11.10
Age : 31
Lokasi : LA,LOS ANGELS

Kembali Ke Atas Go down

[Tutor]Membuat Injektor Empty Re: [Tutor]Membuat Injektor

Post  Tamu Mon Dec 27, 2010 7:15 am

kok saya gagal trs yah gan zzz emang gak berbakat jdi cracker Sad
Anonymous
Tamu
Tamu


Kembali Ke Atas Go down

[Tutor]Membuat Injektor Empty Re: [Tutor]Membuat Injektor

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik