mp7 in item shop

[123456789987654321]

so i have this code but when i press numpad 7 nothing happens plz. tell me what am i doing wrong??

Private Sub Timer15_Timer()
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H24703F4, 24)
End If
End Sub

[castaway]

Private Sub Timer15_Timer()
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H24703F4, 24)
End If
End Sub

it reads the adress....
it must write

Private Sub Timer15_Timer()
If GetKeyPress(vbKeyNumpad7) Then
Call WriteALong("WarRock", &H24703F4, 24)
End If
End Sub

good luck

[123456789987654321]

so i have now writealong instad of read along but when i m in the item shop and press numpad 7 nothing happens at all what am i doing wrong??

[nbr1dan]

your timer interval needs to be 100

[123456789987654321]

with a interval of 1 it isnt working and with an interval of 100 it is isnt working

[nbr1dan]

Right click on the timer and then choose properties and set timer interval to 100.

Also use the WriteALong not ReadALong

[123456789987654321]

i have this and my timer interval is 100

Private Sub Timer15_Timer()
If GetKeyPress(vbKeyNumpad7) Then
Call WriteALong("WarRock", &H24703F4, 24)
End If
End Sub

[nbr1dan]

Did you open up your form, right click on the form "View Code" then write?

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

[123456789987654321]

u dont have to do that for this is another way to make hotkeys

[123456789987654321]

do u have it working yourself??

[castaway]

just use the ascii k3ys much better :d

[123456789987654321]

is this right because it is not working??

Private Sub Timer14_Timer()
If GetAsyncKeyState(112) <> 0 Then
Call WriteALong("WarRock", &H24703F4, 24)
End If
End Sub

i add this to the code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

my timer interval is: 100

[castaway]

lol the adress is not good...
its 00(6 number/leeters)

at yours its 00(7 letters/numbers)

i thought alteast

[FluffyStuff]

Shouldnt the hex address be 0x########? And are you sure the timer is enabled? Go to the from and click the timer to see if enabled == true.

[lana2]

Did you open up your form, right click on the form "View Code" then write?

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Where write this? thanks