Home › Forum › Programming › Visual Basic Programming › [Help] Loader don't Inject

[Help] Loader don't Inject

Posts 1–13 of 13 · Page 1 of 1

My Code:

Code:

    Private Sub Inject()
        On Error GoTo 1
        Timer1.Stop()
        Dim TargetProcess As Process() = Process.GetProcessesByName("Engine")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        pszLibFileRemote = "Hack.dll"
        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

Code:

        Dim appdata As String = Environment.SpecialFolder.ApplicationData

        Dim extractpath As String = appdata & "Hack.dll"

        IO.File.WriteAllBytes(extractpath, My.Resources.Hack)

        If System.IO.File.Exists(extractpath) = True Then

            Dim TargetProcess As Process() = Process.GetProcessesByName("Engine")
            If TargetProcess.Length = 0 Then
                Me.Label1.Text = ("Waiting for PROCESS.exe")
            Else
                Timer1.Stop()
                Me.Label1.Text = "Done..."
                Call Inject()
            End If
        Else
            Me.Label1.Text = ("" + ExeName + ".dll not found")
        End If
    End Sub

PS: Hack.dll in Resources!

But don't Injet...

How does your Inject code even inject the DLL when there is no full path or anything there, just 'Hack.dll'?
Learn to code before copying and pasting. If you observe your code properly you can see that it extracts to ApplicationData!

Error is here:

Code:

pszLibFileRemote = "Hack.dll"

Put the Hack.dll on the .exe folder then do this:

Code:

pszLibFileRemote = Application.StartupPath & "\" & "Hack.dll"

But if you want on resources try this:

Code:

pszLibFileRemote = My.Resources.Hack_dll

Something like that

Code:

Dim extractpath As String = appdata & "Hack.dll"

should be:

Code:

Dim extractpath As String = appdata & "\Hack.dll"

Code:

pszLibFileRemote = "Hack.dll"

should be:

Code:

pszLibFileRemote = Environment.SpecialFolder.ApplicationData & "\Hack.dll"

master, putting "Hack.dll" will simply make the application look for a file named "Hack.dll" in the startup path.

@ topic. If you have the .dll in resources simply do this:
[highlight=vb.net]
IO.File.WriteAllBytes("Hack.dll", My.Resources.Hack)
[/highlight]

THEN call Inject()

I Try, and don't work :S

Code:

pszLibFileRemote = System.Text.Encoding.ASCII.GetString(My.Resources.Hack)

Code:

        IO.File.WriteAllBytes("Hack.dll", My.Resources.Hack)

        Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")

        If TargetProcess.Length = 0 Then
            Me.Label1.Text = ("Waiting for PROCESS.exe")
        Else
            Timer1.Stop()
            Me.Label1.Text = "Done..."
            Call Inject()
        End If

    End Sub

Print dll in Resource
\/

Originally Posted by Jason

yea ^^
Finally, I were thinking to answer this, but I saw ur post Jason, and urr!!!! Fuck is it possible to beat you on post an answer?

Marked as solved?

Originally Posted by 3Li0

yea ^^
Finally, I were thinking to answer this, but I saw ur post Jason, and urr!!!! Fuck is it possible to beat you on post an answer?

Marked as solved?

Hei.. i need fix it: pszLibFileRemote

Originally Posted by Goku_SSJ3

Hei.. i need fix it: pszLibFileRemote

what's wrong with it?

pszLibFileRemote = Environment.SpecialFolder.ApplicationData & "\Hack.dll" is Wrong, i tested and not inject.

Correct is: pszLibFileRemote == Resouces (Dll)

Its declarated String:

Code:

 Private pszLibFileRemote As String

And Dll is Byte lol

Read my post Goku. The pszLibFileRemote is the location so change you code to this:

[highlight=vb.net]
IO.File.WriteAllBytes("hack.dll", My.Resources.Hack)
pszLibFileRemote = "hack.dll"
[/highlight]

pl0x l2vb before leeching injectors.

Originally Posted by Alessandro10

pszLibFileRemote = Environment.SpecialFolder.ApplicationData & "\Hack.dll" is Wrong, i tested and not inject.

Correct is: pszLibFileRemote == Resouces (Dll)

Its declarated String:

Code:

 Private pszLibFileRemote As String

And Dll is Byte lol

1) If you knew how the code actually worked, you'd know why it's a string and not a byte array.
2) A DLL is an array of bytes, not a single byte.

Posts 1–13 of 13 · Page 1 of 1