Forum Games Indonesia l Android
™️ Welcome Hacker Newbie Community ™️™️

[-]Yang Belum Punya User DI HnC Harap Register.
[-]Yang Sudah Ada Di HarapKan Log In Terlebih Dahulu.
[-]DaftarKan User Anda Di ™️Special_V.I.P™️(Terdapat Aplikasi Lebih Banyak).

~Thankz For ALL Hacker Newbie Community~
---------------------------------------------------------



 
Vip ForumIndeksPendaftaranLogin
UNTUK MEMBER HnC YANG JARANG ONLINE,KAMI MOHON MAAF APABILA USER ANDA KAMI " DELETE "KARENA KAMI INGIN MEMBERIKAN YANG TERBAIK KEPADA FORUM HnC, KAMI UCAPKAN TERIMA KASIH
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Latest topics
» Rice Warmer 20 Liter Krw-920s Kirin
Sat Jan 20, 2018 10:19 am by indah permata

» Magic Com Mcm-18bh Miyako
Fri Jan 19, 2018 9:05 am by indah permata

» Rak Pirig Dish Rack With Tray A-7 Lion
Wed Jan 17, 2018 8:30 am by indah permata

» Clear Punch Set Small
Mon Jan 15, 2018 8:46 am by indah permata

» Pressure Cooker Maxim Presto 4 Liter Maspion
Sat Jan 13, 2018 11:14 am by indah permata

» Pisau Steak Knife Ss Ozone
Fri Jan 12, 2018 8:49 am by indah permata

» perasan jeruk Citrus Juicer Eagle
Thu Jan 11, 2018 3:35 pm by indah permata

» perasan jeruk Citrus Juicer Eagle
Thu Jan 11, 2018 3:30 pm by indah permata

» Penggorengan Wok Marble 20 cm Akebonno
Wed Jan 10, 2018 8:48 am by indah permata

Top posters
indah permata (412)
 
ADMIN (262)
 
nurfatimah (244)
 
juliono (171)
 
Cheater-sejati (147)
 
751_COMMUNITY (129)
 
TRICKâ„¢ (104)
 
AdeListiawan (103)
 
[HnC]Rio™ (99)
 
ID BANNED (87)
 

Share | 
 

 cara bikin injeqtorOption Explicit 'Created Date: 4 September 2011 'Form1 Universal Injector by qmoainx/mpgh.Net 'This Code Tutorial Credit Goes to mpgh, Do As mpgh Rule. 'variable declaration Private winHwnd As Long Private NamaDll As String 'Movab

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
wahyujunty
™-MemBeR-™
™-MemBeR-™
avatar

Jumlah posting : 37
Cendol : 135
Reputation : 42
Join date : 15.08.11

PostSubyek: cara bikin injeqtorOption Explicit 'Created Date: 4 September 2011 'Form1 Universal Injector by qmoainx/mpgh.Net 'This Code Tutorial Credit Goes to mpgh, Do As mpgh Rule. 'variable declaration Private winHwnd As Long Private NamaDll As String 'Movab   Fri Sep 16, 2011 4:51 am

Option Explicit
'Created Date: 4 September 2011
'Form1 Universal Injector by qmoainx/mpgh.Net
'This Code Tutorial Credit Goes to mpgh, Do As mpgh Rule.

'variable declaration
Private winHwnd As Long
Private NamaDll As String

'Movable function declaration form
Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Integer = 2
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long


Private Sub Form_Load()
'explores Form
CenterForm Me

'adjust names below with the name etc. etc. who want to inject it.
NamaDll = App.Path & "\.dll"

'the name of the target game is up to you, for example pointblank
FileTarget = "PBlackout.exe"

'if you want an automatic injector exit disetting
'given the value 1 on check1 code below, otherwise
'if not given the value 0
Check1.Value = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)
'auto open the url after form close
OpenURL "http://mpgh.net", Me.hwnd
End Sub

Private Sub Label2_Click()

'exit injector application

Unload Me

End Sub

Private Sub Timer1_Timer()

winHwnd = GetProcessWndByName(FileTarget)
If Not winHwnd = 0 Then 'if found
NTProcessList 'detection process game
InjectExecute NamaDll 'inject library
If Check1.Value = 1 Then 'if check1 is checked (Auto Exit After Injection) then
End 'auto-injector cap
End If
Else 'if not
Label1.Caption = "Waiting Game..."
End If

End Sub

'kode center form
Private Sub CenterForm(frm As Form)

frm.Top = Screen.Height / 2 - frm.Height / 2
frm.Left = Screen.Width / 2 - frm.Width / 2

End Sub

'kode movable form
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)


If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
Screen.MousePointer = vbDefault

End Sub
Kembali Ke Atas Go down
 

cara bikin injeqtorOption Explicit 'Created Date: 4 September 2011 'Form1 Universal Injector by qmoainx/mpgh.Net 'This Code Tutorial Credit Goes to mpgh, Do As mpgh Rule. 'variable declaration Private winHwnd As Long Private NamaDll As String 'Movab

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» WTA cara bikin dudukan lampu custom di batok custom
» shock kanan ninja dipakai kekiri buat bikin doble disc
» bikin nafas panjang di gigi 1,2,3
» Pake HID dua-duanya malah bikin ga nyaman, butuh saran
» [ASK] Cara dapetin template polosan gimana ya...?
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum Games Indonesia l Android :: Tong Sampah-
Free forum | © phpBB | Free forum support | Kontak | Report an abuse | Sosblogs.com