This is based off the article Specific wrote on how to inject your DLL into another process.

My DLL Module:

Module Module1 Public Declare Function GetModuleHandle Lib "Kernel32.dll" Alias "GetModuleHandleA" (ByVal IpModuleName As String) As IntPtr Public Declare Function GetProcAddress Lib "Kernel32.dll" (ByVal ModuleHandle As IntPtr, ByVal ProcName As String) As IntPtr Public Declare Function OpenProcessToken Lib "Advapi32.dll" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByVal TokenHandle As Long) As Boolean Public Declare Function GetCurrentProcess Lib "Kernel32.dll" () As IntPtr Public Declare Function LookupPrivilegeValue Lib "Advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByVal lpLuid As LUID) As Boolean Public Declare Function AdjustTokenPrivileges Lib "Advapi32.dll" (ByVal TokenHandle As IntPtr, ByVal DisableAllPriviledges As Boolean, ByVal NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByVal PreviousState As Boolean, ByVal ReturnLength As Boolean) As Boolean Public Declare Function OpenProcess Lib "Kernel32.dll" (ByVal DesiredAccess As Long, ByVal InheritHandle As Boolean, ByVal ProcessID As Long) As IntPtr Public Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr Public Declare Function VirtualAllocEx Lib "Kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr Public Declare Function WriteProcessMemory Lib "Kernel32.dll" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer Public Declare Function ReadProcessMemory Lib "Kernel32.dl" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer Public Declare Function CreateRemoteThread Lib "Kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal StackSize As IntPtr, ByVal StartRoutine As Long, ByVal Parameter As Long, ByVal CreationFlags As Integer, ByVal ThreadId As Long) As IntPtr Public Declare Function WaitForSingleObject Lib "Kernel32.dll" (ByVal hHandle As IntPtr, ByVal Milliseconds As UInt32) As UInt32 Public Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As Integer, ByRef dwSize As Integer, ByVal dwFreeType As Long) As IntPtr Public Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As IntPtr) As IntPtr Public Declare Function Main Lib "MyDLL 2.dll" (ByVal Text As String) As Boolean Public Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" (ByVal Library As String) As IntPtr Public Declare Function FreeLibrary Lib "kernel32.dll" Alias "FreeLibraryA" (ByVal Handle As IntPtr) As IntPtr Public Delegate Function DllSelfRegister() As Integer Public Const TOKEN_ADJUST_PRIVILEGES As Short = &H20S Public Const TOKEN_QUERY As Short = &H8S Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege" Public Const SE_PRIVILEGE_ENABLED = &H2 Public Const PROCESS_ALL_ACCESS As Integer = &H1F0FFF Public Const MEM_COMMIT As Long = &H1000 Public Const PAGE_READWRITE As Integer = &H4 Public Const MAX_WAIT = 10000 Public Const MEM_RELEASE As Long = &H8000 Public Structure LUID Dim LowPart As Long Dim HighPart As Long End Structure Public Structure LUID_AND_ATTRIBUTES Dim pLuid As LUID Dim Attributes As Long End Structure Public Structure TOKEN_PRIVILEGES Dim PrivilegeCount As Long Dim TheLuid As LUID Dim Attributes As Long End Structure End Module

My DLL Function (Insert DLL):

Public Shared Function insertDLL(ByVal ProcID As Integer, ByVal DLL As String) As Boolean Dim hKernel32 As IntPtr = GetModuleHandle("Kernel32.dll") Dim hLoadLibrary As IntPtr = GetProcAddress(hKernel32, "LoadLibraryA") Dim hToken As IntPtr Dim TKP As TOKEN_PRIVILEGES If (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)) Then LookupPrivilegeValue(vbNullString, SE_DEBUG_NAME, TKP.TheLuid) TKP.PrivilegeCount = 1 TKP.Attributes = SE_PRIVILEGE_ENABLED AdjustTokenPrivileges(hToken, 0, TKP, Len(TKP), False, False) End If Dim hProc As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, False, ProcID) DLL += "\0" Dim hRemoteMem As IntPtr = VirtualAllocEx(hProc, vbNull, DLL.Length, MEM_COMMIT, PAGE_READWRITE) Dim BytesWritten As Integer WriteProcessMemory(hProc, hRemoteMem, DLL.Length, DLL.Length, BytesWritten) Dim hRemoteThread As IntPtr = CreateRemoteThread(hProc, IntPtr.Zero, 0, hLoadLibrary, hRemoteMem, 0, vbNull) Dim Res As Boolean = False Dim wtf As Integer = 1 If (hRemoteThread) Then Res = WaitForSingleObject(hRemoteThread, MAX_WAIT) VirtualFreeEx(hProc, hRemoteMem, DLL.Length, MEM_RELEASE) CloseHandle(hProc) Return Res End If MsgBox(Res) End Function

My other dll which I will use to inject into another process:

Public Sub Main() MsgBox("Seems Injected!") End Sub

My form I use to inject my DLL:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Notepad As IntPtr = FindWindow(vbNullString, "Untitled - Notepad") Dim ProcID As Integer GetWindowThreadProcessId(Notepad, ProcID) insertDLL(ProcID, "C:\Documents and Settings\Hussain Al Homedawy\My Documents\Visual Studio 2008\Projects\MyDLL 2\MyDLL 2\bin\Release\MyDLL 2.dll") End Sub

I dont get the "Seems Injected" message box, can you tell me whats wrong?

I wrote that code many years ago and was intended for injecting dlls compiled with C++.   Follow this http://windowsdevcenter.com/pub/a/windows/2005/04/26/create_dll.html  and it will show you how to create a dll in visual basic with standard calling convention.

Hope this helps.

I know how to make a DLL and use it..

There are many ways to export your functions from your dll to the preferred application and / or dll. You can add a reference to it or you can use LoadLibrary to load it, etc, etc.

My problem is with the function we created to insert our dll, Specific, you can code in VB, if you can tell me whats my error that is causing this fuss.

Respectfully,

iPromise

Got it fixed!

I'm glad that you were able to fix the problem.  When you get online you should message me and test what I wrote out.