Code:
(VERSION) 5.00
<Begin> (VB.)Form Form1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2820
ClientLeft = 0
ClientTop = 0
ClientWidth = 4335
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form1.frx":08CA
ScaleHeight = 2820
ScaleWidth = 4335
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox Check1
BackColor = &H00000000&
Caption = "Auto Exit After Injection"
Height = 240
Left = 60
MaskColor = &H00000000&
TabIndex = 1
Top = 2490
Value = 1 'Checked
Width = 2130
End
Begin VB.Timer Timer1
Interval = 100
Left = 3105
Top = 255
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
ForeColor = &H00000000&
Height = 195
Left = 60
TabIndex = 2
Top = 2250
Width = 2025
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H80000001&
Caption = "Exit"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000018&
Height = 255
Left = 3930
TabIndex = 0
Top = 2535
Width = 330
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 ("https://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
please fix the code..