|
Registrieren
Login
Autor
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
Verfasst am: 04.01.2008, 23:40
Code: Call ReadAByte("SRO_Client", &HCE997C, value)
So würde das in vb aussehen ;D
@Topmaster haste icq? PM ME^^
bzw add me 316626741
_________________
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
Verfasst am: 05.01.2008, 00:48
JEAH
ich hab einen unfreeze hinkriegt in pinball.
hab ein modul von dem extalia-forum genutzt:
Code:
Option Explicit
'Find Window
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
'Get Process ID
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
'Open Process
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
'Write Process Memory
Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'Close Handle
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'SetProcess
Private FindProcess As Long
Public Sub SetProcess(WindowCaption As String)
FindProcess = FindWindow(vbNullString, WindowCaption)
End Sub
Public Sub WriteNOPs(Address As Long, NOPNum As Integer)
Dim pid&, phandle&
Dim C As Integer
Dim B As Integer
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
For C = 1 To NOPNum
Call WPM(phandle, Address + B, &H90, 1, 0&)
B = B + 1
Next C
CloseHandle phandle
End Sub
Public Sub WriteXBytes(Address As Long, Value As String)
Dim pid&, phandle&
Dim Temp As String
Dim C As Integer
Dim B As Integer
Dim D As Integer
Dim V As Byte
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
D = 1
For C = 1 To Round((Len(Value) / 2))
V = Val("&H" & Mid$(Value, D, 2))
Call WPM(phandle, Address + B, V, 1, 0&)
B = B + 1
D = D + 2
Next C
CloseHandle phandle
End Sub
ihr braucht nur WriteXBytes
jetzt der cod efür die form:
Code:
Private Sub Command1_Click()
'patched Poke 101757C 90 90
'unpatched Poke 101757C 01 30
Call SetProcess("3D-Pinball für Windows - Space Cadet")
Call WriteXBytes(&H101757C, "90909090")
End Sub
Private Sub Command2_Click()
Call SetProcess("3D-Pinball für Windows - Space Cadet")
Call WriteXBytes(&H101757C, "0130")
End Sub
mfg
EDIT:
man kann genausogut auch writeNOPS (adresse , anzahl NOPs)
zum freezen nehmen(ein NOP ist eine 90, also bei uns 4), weil ich hatt schonmal ne adresse, die mehr 90 hatte als es in hex werten zugelassen ist.
EDIT2:
@killer
http://www.extalia.com/forums/viewtopic.php?f=22&t=2433
da steht wie man der mit der base adress und dem offset macht.
_________________
bomber_
Newbie
Anmeldedatum: 19.03.2007
Beiträge: 15
Verfasst am: 05.01.2008, 11:41
Ist es eig in Vb möglich einen CSS cheat zu schreiben?
Kaali_
Tutorial Leser
Anmeldedatum: 14.12.2007
Beiträge: 42
Verfasst am: 05.01.2008, 12:19
bomber hat Folgendes geschrieben: Ist es eig in Vb möglich einen CSS cheat zu schreiben?
DU kannst theorethis in jedem Spiel einen Cheat schreiben, musst nur die richtige Adresse finden (is bei css sehr schwer)
Gruß Kaali
bomber_
Newbie
Anmeldedatum: 19.03.2007
Beiträge: 15
Verfasst am: 05.01.2008, 12:29
Ja ich kann wenn ich einen eigenen Server mache schon unlimited Ammo aber im internet geht das dann nicht da ich ja nicht der Server bin. Verstanden?? xD
Helo_
Tutorial Leser
Anmeldedatum: 06.07.2007
Beiträge: 35
Verfasst am: 05.01.2008, 13:25
also für offline css unlimited ammo funzt 100% einfach das:
Modul:
Code:
Option Explicit
'Find Window
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
'Get Process ID
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
'Open Process
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
'Write Process Memory
Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'Close Handle
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'SetProcess
Private FindProcess As Long
Public Sub SetProcess(WindowCaption As String)
FindProcess = FindWindow(vbNullString, WindowCaption)
End Sub
Public Sub WriteNOPs(Address As Long, NOPNum As Integer)
Dim pid&, phandle&
Dim C As Integer
Dim B As Integer
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
For C = 1 To NOPNum
Call WPM(phandle, Address + B, &H90, 1, 0&)
B = B + 1
Next C
CloseHandle phandle
End Sub
Public Sub WriteXBytes(Address As Long, Value As String)
Dim pid&, phandle&
Dim Temp As String
Dim C As Integer
Dim B As Integer
Dim D As Integer
Dim V As Byte
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
D = 1
For C = 1 To Round((Len(Value) / 2))
V = Val("&H" & Mid$(Value, D, 2))
Call WPM(phandle, Address + B, V, 1, 0&)
B = B + 1
D = D + 2
Next C
CloseHandle phandle
End Sub
und jetzt in die Form:
Code: Private Sub Command1_Click()
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H220D91CD, "9090")
End Sub
Fertig ^^ Frezzt die muni von allen waffen also have fun ^^
ich such noch die css helth und amor adressen ich poste die dann auch noch
mfg Helo
_________________
MrBoomBaltec_
Newbie
Anmeldedatum: 09.06.2007
Beiträge: 16
Verfasst am: 05.01.2008, 13:39
Wie kann man das Value mit VB6 ändern?
Also z.b. Ammo auf 99 setzen. (Nicht Frezzen)
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
Verfasst am: 05.01.2008, 13:40
guck mal in google unter "ReadALong vb memory"
_________________
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
Verfasst am: 05.01.2008, 13:43
Hier merkt man wer biel zoggt xD
Nice tut
_________________
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
Verfasst am: 05.01.2008, 14:01
Blue!Sky! hat Folgendes geschrieben: Hier merkt man wer biel zoggt xD
Nice tut
biel?
_________________
Helo_
Tutorial Leser
Anmeldedatum: 06.07.2007
Beiträge: 35
Verfasst am: 05.01.2008, 14:05
so habe noch die health und armor adressen von css:
Code: Private Sub Command2_Click()
'Health frezzen
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H22026FE0, "9090")
End Sub
Private Sub Command3_Click()
'armor Freezen
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H2220E6B8, "9090")
End Sub
have fun ^^ in meinem letzten post is ja die ammo adresse und so also ja, mit den sachen kann man ammo frezzen , health und armor. aber im einzelspieler also spiel erstellen... haben die bots auch diese features also wenn ihr health freezt haben die bots auch unendlich hp also naja
hier noch die adressen zum unfreezen:
Code: Private Sub Command4_Click()
'Health unfreezen
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H22026FE0, "893E")
End Sub
Private Sub Command5_Click()
'ammo unfreezen
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H220D91CD, "893E")
End Sub
Private Sub Command6_Click()
'Armor unfreezen
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H2220E6B8, "8906")
End Sub
also viel spas
mfg Helo
_________________
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
Verfasst am: 05.01.2008, 14:33
Das Problem an Multiplayer Spielen ist, dass die ganze Leben/ Ammo/ Armor verwaltung auf dem Server stattfindet und meistens auch noch nachgerechnet wird. Wenn du dann was veränderst und auf dem Server VAC Aktiv ist hast du wahrscheinlich ein Steam Account weniger. Natürlich wirkt sich das Leben/ Ammo/ Armor Freezen bei Multiplayer Spielen wie CS auf alle Spieler aus weil alle Spieler von der gleichen Funktion verwaltet werden, das heißt wenn du getroffen wirst ruft der Server die gleiche Funktion auf wie wenn ein anderer getroffen wird was bedeutet da wir ja die Funktion Freezen und nicht die Variable (das geht ja nicht weil der Server eine unbekannte Anzahl an Spielern verwaltet was bedeutet er muss den Speicher dynamisch verwalten was bedeutet man müsste die Adresse der Variable für diesen Spieler suchen). Wir verändern aber die Funktion die aufgerufen wird wenn geschossen wird weil diese immer an der gleichen Adresse ist und machen uns nicht die Mühe und suchen die Adresse in der unsere Munition... gespeichert ist. Also muss ein erfolgreicher Leben/ Ammo/ Armor Cheat für CS auf dem Server PC laufen und auf den Server eingreifen und noch zusätzlich die Dynamische Adresse der Variable für Munition... suchen und diese Freezen.
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
Verfasst am: 05.01.2008, 14:38
Ich finde es sowieso nicht gut das ihr im netz cheaten wollt
_________________
Helo_
Tutorial Leser
Anmeldedatum: 06.07.2007
Beiträge: 35
Verfasst am: 05.01.2008, 14:41
das is mir alles schon klar... als cheat würd ich das auch nicht bezeichnen ...
das:
würd ich als cheat bezeichen, ich mein ich kann auch c++ und in der sprache werden die richtigen cheats hacks gemacht.
mfg Helo
_________________
bomber_
Newbie
Anmeldedatum: 19.03.2007
Beiträge: 15
Verfasst am: 06.01.2008, 14:25
Ja genau das ist ein richtiger cheat
Werden un C++ dann auch "nur" die Adressen verändert? Wie geht z.B autopistelfire oder so ein dauerhaftes Fadenkreuz?
Helo_
Tutorial Leser
Anmeldedatum: 06.07.2007
Beiträge: 35
Verfasst am: 06.01.2008, 17:30
also mit c++ machst du "nur" eine .dll die beim start von css injectet wird.
und mit den adressen wird auch gearbeitet aber man braucht nur wenige. weil die grafik (menu, crosshair, esp, etc) wird alles "gemalt" also die adressen werden benötigt aber man braucht sie nicht verändern. Der hack braucht die Adressen nur um zu wissen was wo is sozusagen (zur orientirung).
auser manche sachen wie Visual no Recoil werden mit WriteProcessMemory gemacht. Aber ich muss sagen mit c++ einen Hack zu machen braucht sehr viel zeit... aber mit vb6 kann man nicht wirklich einen richtigen hack machen weil naja visual basic halt und c++ hat viel mehr mit abläufen und vorgängen zu tun als vb6.
Und Autopistol is einfach nur so grob:
wenn maustaste 1 gedrückt
dann
maustaste 1 drücken, drücken...
so wenn man dann die maustaste gedrückt hält, wird sie automatisch ganz schnell hintereinander gedrückt.
und so ein Fadenkreuz wird auch nur aufgemalt sozusagen.
mfg Helo
_________________
MrBoomBaltec_
Newbie
Anmeldedatum: 09.06.2007
Beiträge: 16
Verfasst am: 06.01.2008, 18:38
Ein Fadenkreuz ist mit Visual Basic theoretisch auch möglich, man erstellt einfach eine Form wo nur ein Kreuz drauf ist, das lässt man dann einfach im Vordergrund anzeigen, aber da das Spiel auch immer in den vordergrund will, "wechseln" die beiden Programme sich immer ab.
Mit C++ kann man aber halt mehr machen ist dafür auch SEHR schwer (zumindest finde ich das so)
igoe
Gast
Sehr Sehr Nice TUT!
Verfasst am: 13.01.2008, 19:20
Nice
_code__
Poster
Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
Verfasst am: 14.01.2008, 12:15
super tutorial!! *daumen hoch* ^^
allerdings ist es bei mir so, das sich jedes spiel bei dem ich das versuche aufhängt (wenn ich's über vb6 mache...)
über tsearch gehts einwandfrei.
(probierte spiele: Splinter cell 3, Spider solitär, css)
weiß wer woran das liegen könnte?
mfg & thx
Kombo
_________________
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
Verfasst am: 14.01.2008, 14:56
also ich mal ein video tut gemacht, leider ohne ton aber egal.
Klick
das modul hab ich jetzt vergessen, hab aber kein bock ales nochmal hochzuladen.
MODUL:
Code: Option Explicit
'Find Window
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
'Get Process ID
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
'Open Process
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
'Write Process Memory
Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'Close Handle
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'SetProcess
Private FindProcess As Long
Public Sub SetProcess(WindowCaption As String)
FindProcess = FindWindow(vbNullString, WindowCaption)
End Sub
Public Sub WriteNOPs(Address As Long, NOPNum As Integer)
Dim pid&, phandle&
Dim C As Integer
Dim B As Integer
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
For C = 1 To NOPNum
Call WPM(phandle, Address + B, &H90, 1, 0&)
B = B + 1
Next C
CloseHandle phandle
End Sub
Public Sub WriteXBytes(Address As Long, Value As String)
Dim pid&, phandle&
Dim Temp As String
Dim C As Integer
Dim B As Integer
Dim D As Integer
Dim V As Byte
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
D = 1
For C = 1 To Round((Len(Value) / 2))
V = Val("&H" & Mid$(Value, D, 2))
Call WPM(phandle, Address + B, V, 1, 0&)
B = B + 1
D = D + 2
Next C
CloseHandle phandle
End Sub
mfg
iKas_
Newbie
Anmeldedatum: 07.10.2007
Beiträge: 6
Verfasst am: 13.02.2008, 17:19
Leute ich hab da ein kleines Problem -.-'
Ich wollte grade mal aus Spaß an der Freude einen AmmoHack für CS:Zero machen.
In meinem Button steht :
Code: Private Sub Command1_Click()
Call WPM("Condition Zero", &8E814BF, &H909090909090, 4)
End Sub
aber wenn ich dann testen will kommt die Fehlermeldung "Fehler beim Kompilieren : Syntaxfehler. Und es ist immer das "&" makiert...
Was mache ich falsch?
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
Verfasst am: 13.02.2008, 17:24
also das kommt weil zu das viele 90 sind. entweder du probierst mal:
Code: Call WPM("Condition Zero", &8E814BF, &H909090, 4)
Call WPM("Condition Zero", &8E814C3, &H909090, 4)
oder du probierst mal mein modul
iKas_
Newbie
Anmeldedatum: 07.10.2007
Beiträge: 6
Verfasst am: 13.02.2008, 17:30
Das mit dem Syntaxfehler ist immernoch da ^^
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
Verfasst am: 13.02.2008, 17:45
dann nimm mal mein modul
PS: 100ter post
jeahr ich bin poster^^
iKas_
Newbie
Anmeldedatum: 07.10.2007
Beiträge: 6
Verfasst am: 13.02.2008, 18:04
wie gesagt , der Fehler kommt immernoch...
seraph1n_
Coder
Anmeldedatum: 06.01.2008
Beiträge: 93
Wohnort: aaaaaaaaa Level: 1337
Verfasst am: 13.02.2008, 18:10
du vergisst das "h"?
_________________
the_gam3r hat Folgendes geschrieben: scheisse stimmt, muss noch besser vb lernen^^
tr4st hat Folgendes geschrieben: Du solltest überhaupt mal VB lernen.
iKas_
Newbie
Anmeldedatum: 07.10.2007
Beiträge: 6
Verfasst am: 13.02.2008, 18:47
Na ja egal , funzt eh nicht. Es kackt jedes mal CS:CZ ab wenn ich dann schießen will (nachdem ich es im Programm angemacht habe).
Hat vllt. jemand von euch ein paar CS:CZ hacks um Offline ein bisschen zu cheaten?
regenz11_
Coder
Anmeldedatum: 29.07.2007
Beiträge: 77
Verfasst am: 13.02.2008, 18:53
einfach gail
_________________
iKas_
Newbie
Anmeldedatum: 07.10.2007
Beiträge: 6
Verfasst am: 13.02.2008, 18:57
Was?
Ich suche jedesmal die Adresse raus damit ich unendlich Ammo habe. Wenn ich dann das Prog in VB6 fertig geschrieben habe und es starte , auf den "AN" Button drücke , kackt mein CS ab...-.-'
_________________
regenz11_
Coder
Anmeldedatum: 29.07.2007
Beiträge: 77
Verfasst am: 13.02.2008, 19:42
Steig am besten zu nem anderen Spiel um als CZ denn das ist gut geschützt.
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Visual Basic Download ?
1743
03.05.2011, 07:38
Api Download in Prozent + Kb anzeige + Progrezzbar
1345
21.10.2007, 13:03
Download
1359
30.08.2007, 15:45
Download mit Internet Explorer Object
923
18.08.2008, 19:00
Visual Basic 6 download
3701
26.05.2007, 11:51
