Vb6.0 DLL Injector Codes

[ant_spy_binns]

This is a Vb6.0 DLL Injector

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BackColor = &H80000007&
Caption = "VB DLL Injector"
ClientHeight = 2145
ClientLeft = 60
ClientTop = 345
ClientWidth = 4560
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2145
ScaleWidth = 4560
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Interval = 25
Left = 2040
Top = 2400
End
Begin VB.OptionButton Option1
BackColor = &H00000000&
Caption = "Window Name"
ForeColor = &H0000FFFF&
Height = 255
Index = 1
Left = 3120
MaskColor = &H00000000&
TabIndex = 11
Top = 360
Width = 1455
End
Begin VB.OptionButton Option1
BackColor = &H00000000&
Caption = "Exe Name"
ForeColor = &H0000FFFF&
Height = 255
Index = 0
Left = 2040
MaskColor = &H00000000&
TabIndex = 10
Top = 360
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "B&rowse"
Height = 255
Left = 3360
TabIndex = 8
Top = 720
Width = 1095
End
Begin VB.TextBox Text2
Height = 285
Left = 120
TabIndex = 6
Top = 720
Width = 3135
End
Begin VB.CommandButton Command2
Caption = "Inject Dll - Hotkey - Num Pad 0"
Height = 255
Left = 120
TabIndex = 2
Top = 120
Width = 4335
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1440
Top = 2400
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "&Browse"
Height = 255
Left = 3360
TabIndex = 1
Top = 1320
Width = 1095
End
Begin VB.TextBox Text1
Height = 285
Left = 120
TabIndex = 0
Top = 1320
Width = 3135
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "About"
ForeColor = &H000000FF&
Height = 255
Left = 3120
TabIndex = 12
Top = 1920
Width = 1335
End
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "By Reckless Youth"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 9
Top = 1920
Width = 4215
End
Begin VB.Label Label4
BackColor = &H00000000&
Caption = "Process EXE name:"
ForeColor = &H00FF00FF&
Height = 255
Left = 120
TabIndex = 7
Top = 480
Width = 2055
End
Begin VB.Label Label3
BackColor = &H00000000&
Caption = "DLL Path:"
ForeColor = &H00FF00FF&
Height = 255
Left = 120
TabIndex = 5
Top = 1080
Width = 1215
End
Begin VB.Label Label2
BackColor = &H00000000&
Caption = "Injection Status:"
ForeColor = &H00FF00FF&
Height = 255
Left = 120
TabIndex = 4
Top = 1680
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00000000&
Caption = "Waiting...."
ForeColor = &H0000FF00&
Height = 255
Left = 1440
TabIndex = 3
Top = 1680
Width = 2775
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
Dim Content As String
Dim DllPath As String
Dim ExeName As Integer

Private Sub Command1_Click()
CommonDialog1.Filter = "Library|*.DLL"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Text1.SetFocus
End Sub

Private Sub Command2_Click()
If ExeName = 1 Then
ProsH = GetHProcExe(Text2.Text)
If ProsH = 0 Then Label1.Caption = "Cant find process!": Exit Sub
DllPath = Text1.Text
InjectDll DllPath, ProsH
Else
ProsH = FindProc(Text2.Text)
If ProsH = 0 Then Label1.Caption = "Cant find process!": Exit Sub
DllPath = Text1.Text
InjectDll DllPath, ProsH
End If
End Sub

Private Sub Command3_Click()
CommonDialog1.Filter = "Application|*.EXE"
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileTitle
Text2.SetFocus
End Sub

Private Sub Form_Load()
Option1(0).Value = True
Text2.Text = Load("HProcess", "Box2")
If Text2.Text = Check Then Text2.Text = ""
Text1.Text = Load("DllPath", "Box1")
If Text1.Text = Check Then Text1.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Save("HProcess", "Box2", Text2.Text)
Call Save("DllPath", "Box1", Text1.Text)
End Sub


Private Sub Label6_Click()
Form2.Visible = True
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label4.Caption = "Process EXE name:"
Command3.Enabled = True
ExeName = 1
Case 1
Label4.Caption = "Process Window Name:"
Command3.Enabled = False
ExeName = 2
End Select
End Sub

Private Sub Timer1_Timer()
keyresult = GetAsyncKeyState(96)
If keyresult = -32767 Then
If ExeName = 1 Then
ProsH = GetHProcExe(Text2.Text)
If ProsH = 0 Then Label1.Caption = "Cant find process!": Exit Sub
DllPath = Text1.Text
InjectDll DllPath, ProsH
Else
ProsH = FindProc(Text2.Text)
If ProsH = 0 Then Label1.Caption = "Cant find process!": Exit Sub
DllPath = Text1.Text
InjectDll DllPath, ProsH
End If
End If
End Sub

[DVDROM]

Re: Vb6.0 DLL Injector Codes

thank you i got a friend that would like to learn from this code :)