Help with weapon hack

Hey ppl

I added the new Zeas module , and i did 2 buttons with a timer to make weapon hack, when i but i get error on line :

Call BAOCAOERN("WarRock", &HUE38F9, FAMAS)

here is the code
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

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

Private Sub Command3_Click()
MsgBox ("Hotkeys: FAMAS = Cntrl (Copyright hero4rune)")
End Sub

Private Sub Timer1_Timer()
If AENRBAOCO(vbKeyControl) Then
Dim FAMAS As Long
Dim FAMAS1 As Long
Call BAOCAOERN("WarRock", &HUE38F9, FAMAS)
FAMAS1 = FAMAS + &H4C
Call BAOCOEARN("WarRock", FAMAS1, 42)
End If
End Sub
End Sub

no timer and tell me wat ur strings r

i got the timer (clock)
my strings are AENRBAOCO and BAOCOEARN from the module

i cant get it to work

can you help me over msn ?

put ur weapon hack in a button and wat is AENRBAOCO and BAOCOEARN like what string is it ( WriteALong etc.. )

the weapon hack , will start when i press to buttun on and off

with timer. so i dont got your point ?

AENRBAOCO and BAOCOEARN is from write and readalong

btw i got banned oMg, when i should try it our ingame, damn you knwo why, i thought zeas modules was underdetected?

ok look make a new a button called Weapons and a textbox and paste this code in the button

Code:

Dim Weapons1 As Long
Dim Weapons2 As Long
Call ReadALong("WarRock", &HPOINTER, Weapons1)
Weapons2 = Weapons1 + &HOFFSET
Call WriteALong("WarRock", Weapons1, Text1.Text)

ok now i changed to
but can you tell me the what value istead of &Hpointer?

Private Sub Timer1_Timer()
Dim Weapons1 As Long
Dim Weapons2 As Long
Call EVOSMBBRF("WarRock", &HPOINTER, Weapons1)
Weapons2 = Weapons1 + &H4C
Call EVOSBBMRF("WarRock", Weapons1, Text1.Text)
End Sub

when i start and typing in command1, after pressing, its exit the hack?

the code is following
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

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

Private Sub Timer1_Timer()
Dim b00m As Long
Dim b00m1 As Long
Call BRPDFIKRS("Warrock", &H4C, b00m)
shotgun1 = shotgun + &H4C
Call BRPDIKFRS("Warrock", b00m1, Text1.Text)
End Sub

POINTER is the PLAYER POINTER ADDRESS go to warrock section look for my post with addies and use that offset is 4c and then u type the # of the weapon u want in hex and click button to get weapon ( u may have to roll to take it out )

is that the code right now, with the adresses

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

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

Private Sub Timer1_Timer()
Dim b00m As Long
Dim b00m1 As Long
Call BRPDFIKRS("Warrock", &H4C, b00m)
b00m11 = b00m + &H4C
Call BRPDIKFRS("Warrock", b00m1, Text1.Text)
End Sub

ya, its fine. when i did it didnt work for me because i forgot to disable and change the interval. but other than that the code is fine. if theres errors just pm me i can help you with vb6

i got error Ambiguos name detected IMIJCGEPI something wrong with readabyte

ok listen 4C is a OFFSET put "Player Pointer Address" as address it should be about 7 letters or numbers if not a litttle less since ur too lazy to look for it here it is

Code:

ADR_PLAYERBASE     1376340

ok look the code is now
now when i compile and pressing on button 1, the hack menu leaving (exitting/&

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

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

Private Sub Timer1_Timer()
Dim pons1 As Long
Dim pons2 As Long
Call ZPTULUOAL("Warrock", &H1376340, pons1)
pons2 = b00m + &H4C
Call ZPTUUOLAL("Warrock", pons1, Text1.Text)
End Sub

ok listen delete ur timer and put the code u have in ur timer into a button ur not supposed to have a timer for weapon hack

Help with weapon hack

Post a Reply

Similar Threads

Tags for this Thread