Home › Forum › Programming › Visual Basic Programming › [Help]WarRock injector doesn't work

[Help]WarRock injector doesn't work

Posts 1–12 of 12 · Page 1 of 1

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:

Code:

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

Originally Posted by 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:

Code:

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?

Get your VB shit out of here.

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

Originally Posted by edrsvc

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

...you can't

Just wait for Wes to move it.

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

Originally Posted by Brinuz

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~

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.

Try this

Code:

        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)

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.

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

Posts 1–12 of 12 · Page 1 of 1

Post a Reply

Similar Threads

[Help] My Made Injector Doesn't WorkBy Evil-Pancake in Combat Arms EU Help
0Last post 16y ago
My Injector doesn't WorkBy iRaid in WarRock Help
2Last post 16y ago
Warrock Hacks Doesn't work (very detailed)By harelori in WarRock Discussions
6Last post 16y ago
injector doesn't workBy grypery in CrossFire Help
4Last post 15y ago
Need some help. Hack/Injector won't work.By Vexatiion in Combat Arms Help
6Last post 15y ago

Tags for this Thread

None

Home › Forum › Programming › Visual Basic Programming › [Help]WarRock injector doesn't work

[Help]WarRock injector doesn't work

Posts 1–12 of 12 · Page 1 of 1

[Help]WarRock injector doesn't work

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:

Code:

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

Originally Posted by 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:

Code:

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?

Get your VB shit out of here.

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

Originally Posted by edrsvc

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

...you can't

Just wait for Wes to move it.

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

Originally Posted by Brinuz

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~

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.

Try this

Code:

        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)

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.

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

Posts 1–12 of 12 · Page 1 of 1

Post a Reply

Similar Threads

[Help] My Made Injector Doesn't WorkBy Evil-Pancake in Combat Arms EU Help
0Last post 16y ago
My Injector doesn't WorkBy iRaid in WarRock Help
2Last post 16y ago
Warrock Hacks Doesn't work (very detailed)By harelori in WarRock Discussions
6Last post 16y ago
injector doesn't workBy grypery in CrossFire Help
4Last post 15y ago
Need some help. Hack/Injector won't work.By Vexatiion in Combat Arms Help
6Last post 15y ago

Tags for this Thread

None