Injector How To Inject A Dll From My Resources.

[Jhem]

This Is Correct?

Private Sub Inject()
        On Error GoTo 1 ' If error occurs, app will close without any error messages
        Timer1.Stop()
        Dim TargetProcess As Process() = Process.GetProcessesByName("WarRock")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = My.Resources.DLLNAME
        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:      Me.Close()
    End Sub

And This

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If IO.File.Exists(My.Resources.DLLNAME) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
            If TargetProcess.Length = 0 Then
                Me.TextBox1.Text = ("Waiting for Warrock.exe")
                Me.TextBox2.Text = ("Let´s Hack")
            Else
                Timer1.Stop()
                Me.TextBox1.Text = "Done..."
                Call Inject()
            End If
        End If
    End Sub

Need Help....Thanks..

[.DLL]

I don't know bout that but I know you shouldn't
send the messagebox + stop the timer if the 'call Inject()' isn't called when I tried that mine bugged up.
I'm talking bout this.

                Timer1.Stop()
                Me.TextBox1.Text = "Done..."
                Call Inject()

[Raow]

i don't think you can directly inject a file from my.resources, try extracting it.

dim hackdll
hackdll = my.computer.filesystem.readallbytes(my.resources.DLLNAME)
my.computer.filesystem.writeallbytes(hackdll,application.startuppath + "\hack.dll")

then instead of saying

pszLibFileRemote = My.Resources.DLLNAME

you would say

pszLibFileRemote = application.startuppath + "\hack.dll"

if you would like you can move the file to a better folder like "Temp" or appdata.
i know you can get it to app data using the My.Computer.FileSystem.SpecialDirectories.AllUsers ApplicationData

Good luck!

[Pingo]

Edit
nvm i was thinking of something different. Running the .dll from within the .exe without injectiing or writing the .dll to file.