Warrock hack in VB6 will nich...

[hada1234]

Hallo,
ich möchte in VB6 ein CrosshairHack programmieren, leider funktioniert der nicht... Hab die Adresse mit nem UCE herausgefunden, wenn ich die Adresse mit dem UCE verändere, funkt das.

Hier der Code:

Modul:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function
Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function
Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function
Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

--------------------------------------------------
Formcode:

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &HB2B42E, 1)
End Sub

---------------------------------------------------

Ich hoffe ihr könnt mir weiterhelfen.....

MFG
hada1234

[kenwood]

welchen corsshair hack meinst du meinst du den premium oder den wenn du sniper hast das du auch ein ziehlkeruz hast

hier ist der für mit sniper ziehlkeruz haben ohne zoom

HB2B454

Und ich würde mit VB8 coden da bleiben die Hacks länger udt

[hada1234]

Hallo,
ich meine den von dem Sniper(ohne Premium).
Danke für die Adresse, werde es mal damit versuchen.
Wie bekommt man eigentlich die Adressen für Stamina heraus?
Wo kann ich mir VB8 runterladen? Ich besitze nur VB6....

[reijin]

Originally Posted by hada1234

Hallo,
ich meine den von dem Sniper(ohne Premium).
Danke für die Adresse, werde es mal damit versuchen.
Wie bekommt man eigentlich die Adressen für Stamina heraus?
Wo kann ich mir VB8 runterladen? Ich besitze nur VB6....

die adressen kannst du mit UCE oder mit so autologgern bekommen (hier im forum zu finden)
vb8 gibts hier:

[hada1234]

Danke erstmal für den Link.
Ich benutze Revolutions Engine 8.3 als UCE, bekomme jedoch immer dieselbe Adresse heraus: 00B2B42E . Die gepostete Adresse funkt leider irgendwie auch nicht. Und wie gesagt, wenn ich den Wert mit dem UCE verändere (0 auf 1) funktioniert das. Ich scanne mit 2 Bytes

[kenwood]

wenn du das gestern gemacht hättest wärn die adressen noch gleich aber jetzt kam ja ein update und da gibt es immer neue addy (adressen) sorry

[hada1234]

Hab ja das Update auch bekommen, die Adresse war gleich.
Hab wie folgt gesucht: WarRock ausgewählt -> 2 Bytes - > Exact Value -> 0
und dann abwechselnd 0 und 1, natürlich auch bei 0 crosshair deaktiviert und bei 1 aktiviert(über rechtsklick bei dem Sniper). Ich versuche es jetzt mal mit VB8.....

Edit: Wie bei vb8 reagiert WarRock nicht....

Code:

Modul:

Module modMain
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer) As Integer
Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, ByVal lpdwProcessId As Long) As Long
Public RBuff As Long
Public RBuff2 As Single
Public RBuff3 As Integer

Public Function Writememory(ByVal Address As Integer, ByVal Value As Long)

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

WriteProcessMemory(processHandle, Address, Value, Nothing)

CloseHandle(processHandle)

End Function




Public Function ReadLong(ByVal Address As Integer)

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)

CloseHandle(processHandle)

Return RBuff

End Function

Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short)

Dim fullAddress As Long

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

fullAddress = RBuff + Offset

ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)

Return RBuff2

CloseHandle(processHandle)

End Function

Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)

Dim fullAddress As Long

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

fullAddress = RBuff + Offset

ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)

Return RBuff3

CloseHandle(processHandle)

End Function

Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)

Dim fullAddress As Long

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

fullAddress = RBuff + Offset

WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)

CloseHandle(processHandle)

End Function

Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)

Dim fullAddress As Long

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

fullAddress = RBuff + Offset

WriteProcessMemory(processHandle, fullAddress, Value, Bytes)

CloseHandle(processHandle)

End Function

Public Function NOP(ByVal Address As Integer, ByVal value As Integer)

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

WriteProcessMemory(processHandle, Address, value, 1)

CloseHandle(processHandle)

End Function

End Module
------------------------------------------------------------------------------

Formcode:

Public Class frmMain
Private Sub cmdOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOn.Click
cmdOff.Enabled = True
cmdOn.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub cmdOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOff.Click
cmdOff.Enabled = False
cmdOn.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Writememory(&HB2B454, 1)
End Sub
End Class

-------------------------------------------------
Bekomme folgende Verwarnungnen:

Warnung 1 Die Writememory-Funktion gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine Nullverweisausnahme auftreten. C:\Dokumente und Einstellungen\Paolo\Eigene Dateien\Neuer Ordner\WarRock CrosshairHack\WarRock CrosshairHack\modMain.vb 30 5 WarRock CrosshairHack

Warnung 2 Die WriteFloatPointer-Funktion gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine Nullverweisausnahme auftreten. C:\Dokumente und Einstellungen\Paolo\Eigene Dateien\Neuer Ordner\WarRock CrosshairHack\WarRock CrosshairHack\modMain.vb 129 5 WarRock CrosshairHack

Warnung 3 Die WriteLongPointer-Funktion gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine Nullverweisausnahme auftreten. C:\Dokumente und Einstellungen\Paolo\Eigene Dateien\Neuer Ordner\WarRock CrosshairHack\WarRock CrosshairHack\modMain.vb 153 5 WarRock CrosshairHack

Warnung 4 Die NOP-Funktion gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine Nullverweisausnahme auftreten. C:\Dokumente und Einstellungen\Paolo\Eigene Dateien\Neuer Ordner\WarRock CrosshairHack\WarRock CrosshairHack\modMain.vb 171 5 WarRock CrosshairHack

Ich bin langsam am Verzweifeln.... Die Adresse scheint ja eigentlich zu funktionieren
Kann es sein das PB jetzt alles von außen blockiert? Denn ich habe den Code für VB6 auch bei anderen Spielen wie Metin2 angewendet, der funkt eigentlich einwandfrei!

[kenwood]

bei mir gehen die nich die alten adressen ich weiß nicht warum
das mit der warnung ist normal hat nix mit pb zutun

[Stylo4T]

hoert bloss auf mit vb zu coden....pb ist längst dicht und ihr habt keine längeren ud hacks mit vb also benutzt gefälligst c++ oder man kann auch mit java hacken xD ist zwar scheiss kompliziert aber mein hack ist nun schon ca 4 monate undetected...man muss einfach die neuen adressen einfügen xD