Raccolta codici visual basic per warrock
Raccolta realizzata da DeDo , ogni lecheer se ne puo andare a quel paese.
Adesso riassumerò in qst discussione vari Cheat.
GLI ADDRESS USATI IN QUESTA GUIDA SONO QUELLI RELATIVI AL 16/05/08
Bene ora passiamo a qualkosa di + concreto:
CLEAN PB
Kill PnkBstr -A-:
Code:
Shell "taskkill /f /im ""PnkBstrA.exe"""
Kill PnkBstr -B-:
Code:
Shell "taskkill /f /im ""PnkBstrB.exe"""
Kill PnkBstr -K-:
Code:
Shell "taskkill /f /im ""PnkBstrK.exe"""
Cita:
Stamina Hack:
2 Bottoni,1 Timer
Timer:
Dim stamina1 As Long
Dim stamina2 As Long
Call ReadALong("warrock", &H137BE20 , stamina1)
stamina2 = stamina1 + &H28C
Call WriteALong("warrock", stamina2, 1120403456)
Nowater:
Call writealong("Warrock", &H9024A0, 0) attivare
Call writealong("Warrock", &H9024A0, 1) disattivare
OPK hack :
1 bottone:
Call WriteAByte("warrock", &H516504, &H99)
Call WriteAByte("warrock", &H51650E, &H99)
Call WriteAByte("warrock", &H516514, &H99)
2 bottone :
Call WriteAByte("warrock", &H516504, &H95)
Call WriteAByte("warrock", &H51650E, &H81)
Call WriteAByte("warrock", &H516514, &H95)
Invisibilità Hack:
2Bottoni,1Timer
Timer:
Call writeabyte("Warrock", &H524E68, &H1C)
Call writeabyte("Warrock", &H524E68 + 1, &H1C)
Call writeabyte("Warrock", &H524E6A, &H1C)
Call writeabyte("Warrock", &H524E6B, &H1C)
Call writeabyte("Warrock", &H524E6C, &H1C)
Call writeabyte("Warrock", &H524E6D, &H1C)
Call writeabyte("Warrock", &H524E6E, &H1C)
NoSpread Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157F8, 0)
0Dealy
nel timer metti x 0delay:
Call writeabyte("WarRock", &H532B44, &H90)
Call writeabyte("WarRock", &H532B44 + 1, &H90)
Call writeabyte("WarRock", &H532B44 + 2, &H90)
Call writeabyte("WarRock", &H532B44 + 3, &H90)
Call writeabyte("WarRock", &H532B44 + 4, &H90)
Call writeabyte("WarRock", &H532B44 + 5, &H90)
ESP
Nel timer metti x esp:
Call wrattebyte("WarRock", &H523A9D, 118) x attivarlo
Call wrattebyte("WarRock", &H523A9D, 117) x disattivarlo
WTW:
Call writeabyte("WarRock", &H504F3E, &H90)
Call writeabyte("WarRock", &H504F3E + 1, &H90)
Call writeabyte("WarRock", &H504F3E + 1, &H90)
NoRecoil Hack:
2Bottoni,1Timer
Timer:
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H137BE20, recoil1)
recoil2 = recoil1 + &H2DC
recoil3 = recoil1 + &H2E0
recoil4 = recoil1 + &H2E4
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
Cita:
SuperJump Hack:
2Bottoni,1Timer,1TextBox
Hotkeys:Control
Timer:
If GetAsyncKeyState(vbKeyControl) Then
Dim jump1 As Long
Dim jump2 As Long
Dim jump3 As Single
Call ReadALong("warrock", &H137BE20, jump1)
jump2 = jump1 + &H178
jump3 = Text1.Text
Call WriteAFloat("warrock", jump2, jump3)
End If
Nel Textbox qua non dovrete inserire alcun valore è già pronto per quando si apre per inserire quanto vogliamo saltare.
AnyWeapon Hack:
1Bottone,1Timer,1Textbox
Hotkeys:F1
Timer:
If GetAsyncKeyState(vbKeyF1) Then
Dim gun1 As Long
Dim gun2 As Long
Dim gun3 As Long
Call ReadALong("WarRock", &H137BE20, gun1)
gun = gun1 + &H4C
gun3 = Text2.Text
Call WriteALong("WarRock", gun2, gun3)
End If
Nel Textbox qua non dovrete inserire alcun valore è già pronto per quando si apre per inserire l'ID dell'arma ke vogliamo premendo F1.
AntiKick Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("warrock", &H505B25, &H90)
Call WriteAByte("warrock", &H505B25 + 1, &H90)
Call WriteAByte("warrock", &H505B25 + 2, &H90)
Call WriteAByte("warrock", &H505B25 + 3, &H90)
Call WriteAByte("warrock", &H505B25 + 4, &H90)
Call WriteAByte("warrock", &H505B25 + 5, &H90)
Scope Hack:
2Bottoni,1Timer
HotKeys: Tasto Destro del Mouse
Timer:
If GetAsyncKeyState(vbKeyRButton) Then
Call WriteALong("warrock", &HB157AA, 1)
Else
Call WriteALong("warrock", &HB157AA, 0)
End If
5TH SLOT Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HD87AB8, 6)
Call WriteALong("warrock", &HD87AB8, 7)
Call WriteALong("warrock", &HD87AB8, 8)
Call WriteALong("warrock", &HD87AB8, 9)
FAST F\A\H\R
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157B4, 1092779973)
Call WriteALong("warrock", &HB157B4, 1092779973)
Call WriteALong("warrock", &HB157BC, 1092779973)
Call WriteALong("warrock", &HB157C0, 1092779973)
NFD Hack:
2Bottoni,1Timer
Timer:
Dim NFD1 As Long
Dim NFD2 As Long
Call ReadALong("WarRock", &H137BE20, NFD1)
NFD2 = NFD1 + &H264
Call WriteAFloat("WarRock", NFD2, -2000)
CrossHair Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157D0, 1)
NoBounds Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HD89E20, 0)
Call WriteALong("warrock", &HD89E28, 0)
Unl.Ammo Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("WarRock", &H51EBB6, &H90)
Call WriteAByte("WarRock", &H51EBB6 + 1, &H90)
Call WriteAByte("WarRock", &H51EBB6 + 2, &H90)
Call WriteAByte("WarRock", &H51EBC7, &H90)
Call WriteAByte("WarRock", &H51EBC7 + 1, &H90)
Call WriteAByte("WarRock", &H51EBC7 + 2, &H90)
Call WriteAByte("WarRock", &H51EBCD, &H90)
Call WriteAByte("WarRock", &H51EBCD + 1, &H90)
Call WriteAByte("WarRock", &H51EBCD + 2, &H90)
PlayerBoxes Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157D2, 1092779973)
HeadShot Hack:
2Bottoni:
Bottone numero 1:
Call WriteAByte("WarRock", &H4A3964, &H31)
Bottone numero 2:
Call WriteAByte("WarRock", &H4A3964, &H85)
In questo caso non servono Timer il codice viene inserito direttamente nel Bottone.
Cita:
Glasswall Hack:
2Bottoni,1Timer
Timer:
If GetAsyncKeyState(vbKeyMButton) Then
Call WriteALong("Warrock", &HB30848, 1)
Else
Call WriteALong("Warrock", &HB30848, 1166127104)
End If
Cita:
Inst.Spawn Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HD92288, 0)
Call WriteALong("warrock", &H10BFC34, 0)
Cita:
Full Bright Hack:
2Bottoni,1Timer
Timer:
Full braight
Call WriteAFloat("warrock", &HB308C8, 1)
Call WriteAFloat("warrock", &HB308CC, 1)
Call WriteAFloat("warrock", &HB308D0, 1)
Cita:
TELEPORT HACK:
2Bottoni,3Textbox
Bottone 1:Lo chiameremo "GET" ovvero quello che quando lo clicchiamo ci rivela la posizione in cui siamo, e dentro metteremo:
Dim TeleX As Long
Dim TeleX1 As Long
Dim TeleX2 As Single
Call ReadALong("WarRock", &H137BE20, TeleX)
TeleX1 = TeleX + &H174
Call ReadAFloat("Warrock", TeleX1, TeleX2)
Text1.Text = TeleX2
Dim TeleY As Long
Dim TeleY1 As Long
Dim TeleY2 As Single
Call ReadALong("WarRock", &H137BE20, TeleY)
TeleY1 = TeleY + &H17C
Call ReadAFloat("Warrock", TeleY1, TeleY2)
Text2.Text = TeleY2
Dim TeleZ As Long
Dim TeleZ1 As Long
Dim TeleZ2 As Single
Call ReadALong("WarRock", &H137BE20, TeleZ)
TeleZ1 = TeleZ + &H178
Call ReadAFloat("Warrock", TeleZ1, TeleZ2)
Text3.Text = TeleZ2
Bottone 2:Sarà il "TELEPORT" quello ke cliccandolo ci porterà nel punto della mappa dove abbiamo cliccato il "GET" e quindi nelle coordinate scritte nei TextBox.
Dim Xgotele1 As Long
Dim Xgotele2 As Long
Dim Xgotele3 As Single
Xgotele3 = Text1.Text
Call ReadALong("WarRock", &H137BE20, Xgotele1)
Xgotele2 = Xgotele1 + &H174
Call WriteAFloat("Warrock", Xgotele2, Xgotele3)
'y coordinates
Dim Ygotele1 As Long
Dim Ygotele2 As Long
Dim Ygotele3 As Single
Ygotele3 = Text2.Text
Call ReadALong("WarRock", &H137BE20, Ygotele1)
Ygotele2 = Ygotele1 + &H17C
Call WriteAFloat("WarRock", Ygotele2, Ygotele3)
'z coordinates
Dim Zgotele1 As Long
Dim Zgotele2 As Long
Dim Zgotele3 As Single
Zgotele3 = Text3.Text
Call ReadALong("WarRock", &H137BE20, Zgotele1)
Zgotele2 = Zgotele1 + &H178
Call WriteAFloat("WarRock", Zgotele2, Zgotele3)
Se volete inserire delle Hotkeys per GET e per TELEPORT dovrete mettere all'inizio dei codici :
GET(in questo caso premendo la "G"): If GetKeyPress(vbKeyG) Then
TELEPORT(in questo caso premendo la "X"): If GetKeyPress(vbKeyX) Then
E ALLA FINE PER TUTTI E 2 I CODICI ELENCATI PRIMA: End if
STW Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("WarRock", &H6E0C16, &H90)
Call WriteALong("WarRock", &H6E0C16 + 1, &H90)
Call WriteALong("WarRock", &H6E0C16 + 2, &H90)
Call WriteALong("WarRock", &H6E0C16 + 3, &H90)
Map Gps Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("WarRock", &H4CFB79, 1)
Cita:
Automedic Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("WarRock", &H52AEC2, &H90)
Call WriteAByte("WarRock", &H52AEC3, &H90)
Call WriteAByte("WarRock", &H52AEC4, &H90)
Call WriteAByte("WarRock", &H52AEC5, &H90)
Call WriteAByte("WarRock", &H52AEC6, &H90)
Call WriteAByte("WarRock", &H52AEC7, &H90)
FINITA SPERO VI POSSA ESSERE UTILE!!
NON ASSICURO IL NORMALE FUNZIONAMENTO DI TUTTI GLI HACKS
Raccolta realizzata da DeDo , ogni lecheer se ne puo andare a quel paese.
Adesso riassumerò in qst discussione vari Cheat.
GLI ADDRESS USATI IN QUESTA GUIDA SONO QUELLI RELATIVI AL 16/05/08
Bene ora passiamo a qualkosa di + concreto:
CLEAN PB
Kill PnkBstr -A-:
Code:
Shell "taskkill /f /im ""PnkBstrA.exe"""
Kill PnkBstr -B-:
Code:
Shell "taskkill /f /im ""PnkBstrB.exe"""
Kill PnkBstr -K-:
Code:
Shell "taskkill /f /im ""PnkBstrK.exe"""
Cita:
Stamina Hack:
2 Bottoni,1 Timer
Timer:
Dim stamina1 As Long
Dim stamina2 As Long
Call ReadALong("warrock", &H137BE20 , stamina1)
stamina2 = stamina1 + &H28C
Call WriteALong("warrock", stamina2, 1120403456)
Nowater:
Call writealong("Warrock", &H9024A0, 0) attivare
Call writealong("Warrock", &H9024A0, 1) disattivare
OPK hack :
1 bottone:
Call WriteAByte("warrock", &H516504, &H99)
Call WriteAByte("warrock", &H51650E, &H99)
Call WriteAByte("warrock", &H516514, &H99)
2 bottone :
Call WriteAByte("warrock", &H516504, &H95)
Call WriteAByte("warrock", &H51650E, &H81)
Call WriteAByte("warrock", &H516514, &H95)
Invisibilità Hack:
2Bottoni,1Timer
Timer:
Call writeabyte("Warrock", &H524E68, &H1C)
Call writeabyte("Warrock", &H524E68 + 1, &H1C)
Call writeabyte("Warrock", &H524E6A, &H1C)
Call writeabyte("Warrock", &H524E6B, &H1C)
Call writeabyte("Warrock", &H524E6C, &H1C)
Call writeabyte("Warrock", &H524E6D, &H1C)
Call writeabyte("Warrock", &H524E6E, &H1C)
NoSpread Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157F8, 0)
0Dealy
nel timer metti x 0delay:
Call writeabyte("WarRock", &H532B44, &H90)
Call writeabyte("WarRock", &H532B44 + 1, &H90)
Call writeabyte("WarRock", &H532B44 + 2, &H90)
Call writeabyte("WarRock", &H532B44 + 3, &H90)
Call writeabyte("WarRock", &H532B44 + 4, &H90)
Call writeabyte("WarRock", &H532B44 + 5, &H90)
ESP
Nel timer metti x esp:
Call wrattebyte("WarRock", &H523A9D, 118) x attivarlo
Call wrattebyte("WarRock", &H523A9D, 117) x disattivarlo
WTW:
Call writeabyte("WarRock", &H504F3E, &H90)
Call writeabyte("WarRock", &H504F3E + 1, &H90)
Call writeabyte("WarRock", &H504F3E + 1, &H90)
NoRecoil Hack:
2Bottoni,1Timer
Timer:
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H137BE20, recoil1)
recoil2 = recoil1 + &H2DC
recoil3 = recoil1 + &H2E0
recoil4 = recoil1 + &H2E4
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
Cita:
SuperJump Hack:
2Bottoni,1Timer,1TextBox
Hotkeys:Control
Timer:
If GetAsyncKeyState(vbKeyControl) Then
Dim jump1 As Long
Dim jump2 As Long
Dim jump3 As Single
Call ReadALong("warrock", &H137BE20, jump1)
jump2 = jump1 + &H178
jump3 = Text1.Text
Call WriteAFloat("warrock", jump2, jump3)
End If
Nel Textbox qua non dovrete inserire alcun valore è già pronto per quando si apre per inserire quanto vogliamo saltare.
AnyWeapon Hack:
1Bottone,1Timer,1Textbox
Hotkeys:F1
Timer:
If GetAsyncKeyState(vbKeyF1) Then
Dim gun1 As Long
Dim gun2 As Long
Dim gun3 As Long
Call ReadALong("WarRock", &H137BE20, gun1)
gun = gun1 + &H4C
gun3 = Text2.Text
Call WriteALong("WarRock", gun2, gun3)
End If
Nel Textbox qua non dovrete inserire alcun valore è già pronto per quando si apre per inserire l'ID dell'arma ke vogliamo premendo F1.
AntiKick Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("warrock", &H505B25, &H90)
Call WriteAByte("warrock", &H505B25 + 1, &H90)
Call WriteAByte("warrock", &H505B25 + 2, &H90)
Call WriteAByte("warrock", &H505B25 + 3, &H90)
Call WriteAByte("warrock", &H505B25 + 4, &H90)
Call WriteAByte("warrock", &H505B25 + 5, &H90)
Scope Hack:
2Bottoni,1Timer
HotKeys: Tasto Destro del Mouse
Timer:
If GetAsyncKeyState(vbKeyRButton) Then
Call WriteALong("warrock", &HB157AA, 1)
Else
Call WriteALong("warrock", &HB157AA, 0)
End If
5TH SLOT Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HD87AB8, 6)
Call WriteALong("warrock", &HD87AB8, 7)
Call WriteALong("warrock", &HD87AB8, 8)
Call WriteALong("warrock", &HD87AB8, 9)
FAST F\A\H\R
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157B4, 1092779973)
Call WriteALong("warrock", &HB157B4, 1092779973)
Call WriteALong("warrock", &HB157BC, 1092779973)
Call WriteALong("warrock", &HB157C0, 1092779973)
NFD Hack:
2Bottoni,1Timer
Timer:
Dim NFD1 As Long
Dim NFD2 As Long
Call ReadALong("WarRock", &H137BE20, NFD1)
NFD2 = NFD1 + &H264
Call WriteAFloat("WarRock", NFD2, -2000)
CrossHair Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157D0, 1)
NoBounds Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HD89E20, 0)
Call WriteALong("warrock", &HD89E28, 0)
Unl.Ammo Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("WarRock", &H51EBB6, &H90)
Call WriteAByte("WarRock", &H51EBB6 + 1, &H90)
Call WriteAByte("WarRock", &H51EBB6 + 2, &H90)
Call WriteAByte("WarRock", &H51EBC7, &H90)
Call WriteAByte("WarRock", &H51EBC7 + 1, &H90)
Call WriteAByte("WarRock", &H51EBC7 + 2, &H90)
Call WriteAByte("WarRock", &H51EBCD, &H90)
Call WriteAByte("WarRock", &H51EBCD + 1, &H90)
Call WriteAByte("WarRock", &H51EBCD + 2, &H90)
PlayerBoxes Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HB157D2, 1092779973)
HeadShot Hack:
2Bottoni:
Bottone numero 1:
Call WriteAByte("WarRock", &H4A3964, &H31)
Bottone numero 2:
Call WriteAByte("WarRock", &H4A3964, &H85)
In questo caso non servono Timer il codice viene inserito direttamente nel Bottone.
Cita:
Glasswall Hack:
2Bottoni,1Timer
Timer:
If GetAsyncKeyState(vbKeyMButton) Then
Call WriteALong("Warrock", &HB30848, 1)
Else
Call WriteALong("Warrock", &HB30848, 1166127104)
End If
Cita:
Inst.Spawn Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("warrock", &HD92288, 0)
Call WriteALong("warrock", &H10BFC34, 0)
Cita:
Full Bright Hack:
2Bottoni,1Timer
Timer:
Full braight
Call WriteAFloat("warrock", &HB308C8, 1)
Call WriteAFloat("warrock", &HB308CC, 1)
Call WriteAFloat("warrock", &HB308D0, 1)
Cita:
TELEPORT HACK:
2Bottoni,3Textbox
Bottone 1:Lo chiameremo "GET" ovvero quello che quando lo clicchiamo ci rivela la posizione in cui siamo, e dentro metteremo:
Dim TeleX As Long
Dim TeleX1 As Long
Dim TeleX2 As Single
Call ReadALong("WarRock", &H137BE20, TeleX)
TeleX1 = TeleX + &H174
Call ReadAFloat("Warrock", TeleX1, TeleX2)
Text1.Text = TeleX2
Dim TeleY As Long
Dim TeleY1 As Long
Dim TeleY2 As Single
Call ReadALong("WarRock", &H137BE20, TeleY)
TeleY1 = TeleY + &H17C
Call ReadAFloat("Warrock", TeleY1, TeleY2)
Text2.Text = TeleY2
Dim TeleZ As Long
Dim TeleZ1 As Long
Dim TeleZ2 As Single
Call ReadALong("WarRock", &H137BE20, TeleZ)
TeleZ1 = TeleZ + &H178
Call ReadAFloat("Warrock", TeleZ1, TeleZ2)
Text3.Text = TeleZ2
Bottone 2:Sarà il "TELEPORT" quello ke cliccandolo ci porterà nel punto della mappa dove abbiamo cliccato il "GET" e quindi nelle coordinate scritte nei TextBox.
Dim Xgotele1 As Long
Dim Xgotele2 As Long
Dim Xgotele3 As Single
Xgotele3 = Text1.Text
Call ReadALong("WarRock", &H137BE20, Xgotele1)
Xgotele2 = Xgotele1 + &H174
Call WriteAFloat("Warrock", Xgotele2, Xgotele3)
'y coordinates
Dim Ygotele1 As Long
Dim Ygotele2 As Long
Dim Ygotele3 As Single
Ygotele3 = Text2.Text
Call ReadALong("WarRock", &H137BE20, Ygotele1)
Ygotele2 = Ygotele1 + &H17C
Call WriteAFloat("WarRock", Ygotele2, Ygotele3)
'z coordinates
Dim Zgotele1 As Long
Dim Zgotele2 As Long
Dim Zgotele3 As Single
Zgotele3 = Text3.Text
Call ReadALong("WarRock", &H137BE20, Zgotele1)
Zgotele2 = Zgotele1 + &H178
Call WriteAFloat("WarRock", Zgotele2, Zgotele3)
Se volete inserire delle Hotkeys per GET e per TELEPORT dovrete mettere all'inizio dei codici :
GET(in questo caso premendo la "G"): If GetKeyPress(vbKeyG) Then
TELEPORT(in questo caso premendo la "X"): If GetKeyPress(vbKeyX) Then
E ALLA FINE PER TUTTI E 2 I CODICI ELENCATI PRIMA: End if
STW Hack:
2Bottoni,1Timer
Timer:
Call WriteALong("WarRock", &H6E0C16, &H90)
Call WriteALong("WarRock", &H6E0C16 + 1, &H90)
Call WriteALong("WarRock", &H6E0C16 + 2, &H90)
Call WriteALong("WarRock", &H6E0C16 + 3, &H90)
Map Gps Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("WarRock", &H4CFB79, 1)
Cita:
Automedic Hack:
2Bottoni,1Timer
Timer:
Call WriteAByte("WarRock", &H52AEC2, &H90)
Call WriteAByte("WarRock", &H52AEC3, &H90)
Call WriteAByte("WarRock", &H52AEC4, &H90)
Call WriteAByte("WarRock", &H52AEC5, &H90)
Call WriteAByte("WarRock", &H52AEC6, &H90)
Call WriteAByte("WarRock", &H52AEC7, &H90)
FINITA SPERO VI POSSA ESSERE UTILE!!
NON ASSICURO IL NORMALE FUNZIONAMENTO DI TUTTI GLI HACKS
