수다닷컴

Option Explicit

Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Long
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 260
End Type

Private Const TH32CS_SNAPMODULE As Long = &H8
Private Const PAGE_READWRITE As Long = &H4
Private Const MEM_RELEASE As Long = &H8000
Private Const MEM_COMMIT As Long = &H1000
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Private Const INFINITE As Long = &HFFFFFF

Private Declare Function VirtualAllocEx Lib kernel32 (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib kernel32 (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function CreateRemoteThread Lib kernel32 (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function OpenProcess Lib kernel32 (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib kernel32 (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetModuleHandle Lib kernel32 Alias GetModuleHandleA (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib kernel32 (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function WaitForSingleObject Lib kernel32 (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long
Private Declare Function FreeLibrary Lib kernel32.dll (ByVal hLibModule As Long) As Long
Private Declare Function CreateToolhelp32Snapshot Lib kernel32 (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Module32First Lib kernel32 (ByVal hSnapshot As Long, uProcess As MODULEENTRY32) As Long
Private Declare Function Module32Next Lib kernel32 (ByVal hSnapshot As Long, uProcess As MODULEENTRY32) As Long

Public Function Inject_Dll(strDLL As String, StrProcID As String)
Dim LoadlibAdr As Long, RemThread As Long, LngModule As Long, LngProcess As Long, LngBytes As Long, LngThreadID As Long
On Error GoTo ErrTrap
LngProcess = OpenProcess(PROCESS_ALL_ACCESS, False, CLng(StrProcID))
LoadlibAdr = GetProcAddress(GetModuleHandle(kernel32.dll), LoadLibraryA)
LngModule = VirtualAllocEx(LngProcess, 0, Len(strDLL), MEM_COMMIT, PAGE_READWRITE)
WriteProcessMemory LngProcess, ByVal LngModule, ByVal strDLL, Len(strDLL), LngBytes
RemThread = CreateRemoteThread(LngProcess, ByVal 0, 0, ByVal LoadlibAdr, ByVal LngModule, 0, LngThreadID)
WaitForSingleObject RemThread, INFINITE
CloseHandle LngProcess
CloseHandle RemThread
MsgBox Injected Dll!, vbInformation, Injection Finished
Exit Function
ErrTrap:
MsgBox Error Injecting Dll!, vbCritical, Injection Error
End Function

Private Sub Injection_Click()
Inject_Dll strDLL.Text, PID.Text
End Sub

Private Sub injector_Timer()
Inject_Dll strDLL.Text, PID.Text
injector.Enabled = True
End Sub

이게 소스입니다..
인젝트 버튼을 누르면 MsgBox Error Injecting Dll!, vbCritical, Injection Error 이라고 뜨네요
컴파일은 잘됩니다..
아니면 프로세스랑 dll을 안 써서 그런가요??
써야한다면 어디에 써야되나요..
프로세스는 notepad.exe이고 dll은 inject.dll 입니다..
해결법좀요 ㅜㅜ

신청하기