Register for your free account! | Forgot your password?

Go Back   elitepvpers > Shooter > WarRock > WarRock Guides, Tutorials & Modifications
You last visited: Today at 03:28

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[How To]Warrock Injector (bessere Version)

Discussion on [How To]Warrock Injector (bessere Version) within the WarRock Guides, Tutorials & Modifications forum part of the WarRock category.

Closed Thread
 
Old   #1
 
.TanTien's Avatar
 
elite*gold: 0
Join Date: May 2009
Posts: 3,825
Received Thanks: 1,208
[How To]Warrock Injector (bessere Version)

Hi Leute!
Ich zeige euch heute wie ihr ganz einfach einen Warrock Hack Injector Coden könnt

Neue Form erstellen:


Textfeld einfügen:




Das macht ihr nun 2 Mal...

Timer einfügen (egal wohin):


Den Code Markieren:


alles löschen was da steht...
und diesen code einfügen:
Code:
Public Class Form1

Private TargetProcessHandle As Integer
Private pfnStartAddr As Integer
Private pszLibFileRemote As String
Private TargetBufferSize As Integer

Public Const PROCESS_VM_READ = &H10
Public Const TH32CS_SNAPPROCESS = &H2
Public Const MEM_COMMIT = 4096
Public Const PAGE_READWRITE = 4
Public Const PROCESS_CREATE_THREAD = (&H2)
Public Const PROCESS_VM_OPERATION = (&H8)
Public Const PROCESS_VM_WRITE = (&H20)

Public Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer

Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
ByVal lpLibFileName As String) As Integer

Public Declare Function VirtualAllocEx Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpAddress As Integer, _
ByVal dwSize As Integer, _
ByVal flAllocationType As Integer, _
ByVal flProtect As Integer) As Integer

Public Declare Function WriteProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer

Public Declare Function GetProcAddress Lib "kernel32" ( _
ByVal hModule As Integer, ByVal lpProcName As String) As Integer

Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) As Integer

Public Declare Function CreateRemoteThread Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpThreadAttributes As Integer, _
ByVal dwStackSize As Integer, _
ByVal lpStartAddress As Integer, _
ByVal lpParameter As Integer, _
ByVal dwCreationFlags As Integer, _
ByRef lpThreadId As Integer) As Integer

Public Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Integer, _
ByVal bInheritHandle As Integer, _
ByVal dwProcessId As Integer) As Integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer

Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
ByVal hObject As Integer) As Integer


Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)

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 = 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: Me.Close()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If IO.File.Exists(Application.StartupPath & "\" + ExeName + ".dll") 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
Else
Me.TextBox1.Text = ("" + ExeName + ".dll not found")
Me.TextBox2.Text = ("Rename the .dll To " + "" + ExeName)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 50
Timer1.Start()
End Sub

End Class
das sieht dann so aus:


Nun speichern wir:




Und erstellen exe:


Die exe ist im Pfad Eigene Dokumente/Visual Studio 2008/Projects/WindowsApplication/bin/Release

Diese Detei könnt ihr dann umbennen wie ihr wollt und verschieben natürlich auch.

Have Fun!
.TanTien is offline  
Thanks
37 Users
Old 04/28/2010, 18:44   #2
 
1599's Avatar
 
elite*gold: 0
Join Date: Apr 2009
Posts: 56
Received Thanks: 8
erster ich teste mal
1599 is offline  
Old 04/28/2010, 18:45   #3
 
tarikgangster's Avatar
 
elite*gold: 0
Join Date: Feb 2010
Posts: 198
Received Thanks: 62
Funzt bei mir Kriegst Thx
tarikgangster is offline  
Old 04/28/2010, 18:46   #4
 
HackTec's Avatar
 
elite*gold: 21
Join Date: Apr 2010
Posts: 1,724
Received Thanks: 1,237
omg -.- erst beschweren dann alles klauen...
HackTec is offline  
Old 04/28/2010, 18:48   #5
 
tarikgangster's Avatar
 
elite*gold: 0
Join Date: Feb 2010
Posts: 198
Received Thanks: 62
Quote:
Originally Posted by XxFavoritexX View Post
omg -.- erst beschweren dann alles klauen...
Nein das ist nicht Kopiert! Schau besser nach ich habs gespeicher und debuggt und es hat geklappt 0 Fehler
ich empfehle dir die Codes besser anzuschauen
tarikgangster is offline  
Old 04/28/2010, 18:48   #6
 
.TanTien's Avatar
 
elite*gold: 0
Join Date: May 2009
Posts: 3,825
Received Thanks: 1,208
ja pech...musste halt schneller reagieren
.TanTien is offline  
Old 04/28/2010, 18:51   #7
 
Cash²'s Avatar
 
elite*gold: 0
Join Date: Apr 2010
Posts: 1,305
Received Thanks: 936
Das ist nicht besser wie das vorherige.
Außerdem besteht es nur aus C&P.
Mehr negatives möcht ich jetzt nicht sagen.

Have fun!
Cash² is offline  
Old 04/28/2010, 18:52   #8
 
elite*gold: 0
Join Date: Apr 2010
Posts: 89
Received Thanks: 26
Tipp: Ihr Müsst Net Immer DoppelThreads Machen!!
Yasin™ is offline  
Old 04/28/2010, 18:53   #9
 
.TanTien's Avatar
 
elite*gold: 0
Join Date: May 2009
Posts: 3,825
Received Thanks: 1,208
also die fehler im code, das unnötige button sind weg und hab es detallierter mit pics gemacht...
.TanTien is offline  
Old 04/29/2010, 11:37   #10
 
elite*gold: 0
Join Date: Jan 2010
Posts: 1,450
Received Thanks: 626
Quote:
Originally Posted by XxFavoritexX View Post
omg -.- erst beschweren dann alles klauen...
^this!

erst beschweren dann ein alles klauen
Was ist daran anderes als von favourite?
fast gleich du hast nur kein button reingemacht
BlueLiqhtz67 is offline  
Old 04/29/2010, 12:28   #11
 
.TanTien's Avatar
 
elite*gold: 0
Join Date: May 2009
Posts: 3,825
Received Thanks: 1,208
und den fehler im code korrigiert ^^
.TanTien is offline  
Old 04/29/2010, 12:42   #12
 
elite*gold: 0
Join Date: Jan 2010
Posts: 1,450
Received Thanks: 626
Quote:
Originally Posted by Axel007649 View Post
und den fehler im code korrigiert ^^
OMG
nur wegen einen Fehler?
BlueLiqhtz67 is offline  
Old 04/29/2010, 12:43   #13
 
.TanTien's Avatar
 
elite*gold: 0
Join Date: May 2009
Posts: 3,825
Received Thanks: 1,208
und weil alle gemeint habe, dass da immer 3 fehler kommen und sie einen nie wegbekommen Oo
.TanTien is offline  
Old 04/29/2010, 12:46   #14
 
elite*gold: 80
Join Date: Feb 2010
Posts: 522
Received Thanks: 434
C&P Peife!
.BlueHax' is offline  
Thanks
2 Users
Old 04/29/2010, 12:48   #15
 
tarikgangster's Avatar
 
elite*gold: 0
Join Date: Feb 2010
Posts: 198
Received Thanks: 62
Natürlich wegen einem Fehler funzt der Injector schon nicht mehr!
tarikgangster is offline  
Closed Thread




All times are GMT +1. The time now is 03:28.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.