[Help]WarRock injector doesn't work

[edrsvc]

Hello MPGH!

Ohh please help me !

I've tried to make a injector for WarRock but it doesn't inject the .dll.
Here is the code of the inject part of the whole script:

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")
        TextBox2.Text = (time + "Process found!!")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"
        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:      TextBox1.Text = ("Error:")

        TextBox2.Text = (time + ": Please run as Administrator")
    End Sub

Yes, the script is NOT from me. But I'm trying to get better skills in BASIC.

Please help me with that problem.
Greeting
edrsvc

[Auxilium]

Hello MPGH!

Ohh please help me !

I've tried to make a injector for WarRock but it doesn't inject the .dll.
Here is the code of the inject part of the whole script:

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")
        TextBox2.Text = (time + "Process found!!")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"
        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:      TextBox1.Text = ("Error:")

        TextBox2.Text = (time + ": Please run as Administrator")
    End Sub

Yes, the script is NOT from me. But I'm trying to get better skills in BASIC.

Please help me with that problem.
Greeting
edrsvc

Why is this in the C++ section?

[Void]

Get your VB shit out of here.

[edrsvc]

OHHH SORRY!!!! I'll delete it!

[Auxilium]

OHHH SORRY!!!! I'll delete it!

...you can't

[Void]

Just wait for Wes to move it.

['Bruno]

ya know.. its understandable... VB is the same shit as C++

[Hell_Demon]

ya know.. its understandable... VB is the same shit as C++

I'm glad I know that you know better.. if not i'd so get ur ass banned D:

~moved to VB~

[Lolland]

It's because that "script" fails.

You need to use a newer copypastable source, or write your own.

Theres a search button for a reason.

[flameswor10]

Try this

        Timer1.Stop()
        Dim TargetProcess As Process() = Process.GetProcessesByName(ProcessName.Text)
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        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)

[edrsvc]

Thank you verry much for your fast answers! I'm trying to solve my problem with your answers.
You two got a thanks from me.
I'll post a message if it works or not.

[/b/oss]

look, there's TUT from blub: https://www.mpgh.net/forum/33-visual-...jector-os.html
but please, don't post anythink there (bump)