Public Class Form1
Private DLLFileName As String
Private ExeName As String
Public Const MEM_COMMIT As Integer = &H1000
Public Const PAGE_READWRITE As Integer = 4
Private pfnStartAddr As Integer
Public Const PROCESS_CREATE_THREAD As Integer = 2
Public Const PROCESS_VM_OPERATION As Integer = 8
Public Const PROCESS_VM_READ As Integer = &H10
Public Const PROCESS_VM_WRITE As Integer = &H20
Private pszLibFileRemote As String
Private TargetBufferSize As Integer
Private TargetProcessHandle As Integer
Public Const TH32CS_SNAPPROCESS As Integer = 2
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.Button1.Text = "Browse..."
Me.Label1.Text = "Waiting for users input"
Me.Timer1.Interval = 50
Me.Timer1.Start
End Sub
Private Sub Inject()
Dim num7 As Integer
Try
Dim num5 As Integer
ProjectData.ClearProjectError
Dim num4 As Integer = 2
Me.Timer1.Stop
Dim processesByName As Process() = Process.GetProcessesByName(Me.TextBox1.Text)
Me.TargetProcessHandle = Form1.OpenProcess(&H2A, 0, processesByName(0).Id)
Me.pszLibFileRemote = Me.OpenFileDialog1.FileName
Dim lpModuleName As String = "Kernel32"
Dim lpProcName As String = "LoadLibraryA"
Me.pfnStartAddr = Form1.GetProcAddress(Form1.GetModuleHandle(lpModuleName), lpProcName)
Me.TargetBufferSize = (1 + Strings.Len(Me.pszLibFileRemote))
Dim lpBaseAddress As Integer = Form1.VirtualAllocEx(Me.TargetProcessHandle, 0, Me.TargetBufferSize, &H1000, 4)
Dim lpNumberOfBytesWritten As Integer = 0
Dim num2 As Integer = Form1.WriteProcessMemory(Me.TargetProcessHandle, lpBaseAddress, Me.pszLibFileRemote, Me.TargetBufferSize, lpNumberOfBytesWritten)
lpNumberOfBytesWritten = 0
Form1.CreateRemoteThread(Me.TargetProcessHandle, 0, 0, Me.pfnStartAddr, lpBaseAddress, 0, lpNumberOfBytesWritten)
Form1.CloseHandle(Me.TargetProcessHandle)
Label_00E0:
num7 = 1
Me.Show
If (num5 <> 0) Then
ProjectData.ClearProjectError
End If
Return
Label_00EC:
num5 = -1
Select Case num4
Case 0, 1
goto Label_0128
Case 2
goto Label_00E0
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(obj1, Exception), num7)
goto Label_00EC
End Try
Label_0128:
Throw ProjectData.CreateProjectError(-2146828237)
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
Me.OpenFileDialog1.ShowDialog
Dim str As String = Me.OpenFileDialog1.FileName.Substring(Me.OpenFileDialog1.FileName.LastIndexOf("\")).Replace("\", "")
Me.TextBox2.Text = str
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
If File.Exists(Me.OpenFileDialog1.FileName) Then
If (Process.GetProcessesByName(Me.TextBox1.Text).Length = 0) Then
Me.Label1.Text = ("Waiting for " & Me.TextBox1.Text & ".exe")
Else
Me.Timer1.Stop
Me.Label1.Text = "Successfully Injected!"
Me.Inject
End If
End If
End Sub
End Class
if not how about css?? thoes it work there?? 