Jo, mein Problem steht eigentlich oben.
Er soll eine DLL in S4Client.exe injecten, und dann ins Label "Success" schreiben.
Passiert leider nicht.
(ich weiß, C&P, aber vllt lernt man ja daraus(oder nicht))
Wäre dankbar, wenn jemand wüsste, was falsch ist.
EDIT: Ja, ich starte das als Admin.
Er soll eine DLL in S4Client.exe injecten, und dann ins Label "Success" schreiben.
Passiert leider nicht.
Code:
Private Sub Inject()
On Error GoTo 1
Timer1.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName("S4Client")
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
pszLibFileRemote = OpenFileDialog1.FileName
pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
TargetBufferSize = 1 + Len(pszLibFileRemote)
Dim Rtn As Integer
Dim LoadLibParamAdr As Integer
LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
CloseHandle(TargetProcessHandle)
Label2.Text = "Successfully Injected!"
1: Me.Show()
End Sub
Wäre dankbar, wenn jemand wüsste, was falsch ist.
EDIT: Ja, ich starte das als Admin.