its look good no erorrs re cheek the inject code
or use this
[INJECT CODE]
Private Sub Inject()
On Error GoTo 1 ' If error occurs, app will close without any error messages
InjectTimer.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
pszLibFileRemote = browsedll.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)
1: MsgBox("Error. your dll was not injected into" & " " & TextBox1.Text & " " & "yousef's Injector will restart.", MsgBoxStyle.OkOnly, "Error")
Application.Restart()
End Sub
---------- Post added at 09:43 AM ---------- Previous post was at 09:39 AM ----------
if you use the code change this in red