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