Scope.. Whats wrong?

Private Sub Timer2_Timer()
If GetAsyncKeyState(2) <> 0 Then
Call WriteALong("WarRock", &H9493558, 1)
End If
End Sub

Private Sub Timer3_Timer()
If GetAsyncKeyState(2) <> 0 Then
Call WriteALong("WarRock", &H9493558, 0)
End If
End Sub

whats wrong?.....

i like rightclick - than zoom.. next rightclick - back to normal ^^

pls help me... wont work :P

The Address , maybe try this one

Code:

Private Sub Timer2_Timer()
If GetAsyncKeyState(97) <> 0 Then Call WriteALong("Warrock", &H90DC36, &H0)
End Sub

need on and off .. and it dont seems right...

1 is on.. not &H0 ^^

I't works for me, i got it right out of my hack:P

could u send code for On and OFF?

(vb6)

hey wessel are you a fan of mythbusters? i'm a huge fan i have nearly seen all their epiosodes on Discovery!

&h0 = off &h1 = On

what do you have in the 2 command buttons??

command buttons? i work whit timers like this:
1. put in a timer interval 100
2. put this @ the source code:

Code:

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

3. put this @ the timer code:

Code:

If GetAsyncKeyState(96) <> 0 Then Call WriteALong("Warrock", &H90DC36, &H1)

(96) is the numeric 0, thats the key you must press for activating it

what am i doing wrong?

Private Sub Command1_Click()
Call WriteALong("WarRock", &H9493558, 1)
End Sub

Private Sub Command2_Click()
Call WriteALong("WarRock", &H9493558, 0)
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(97) <> 0 Then Call WriteALong("Warrock", &H90DC36, &H1)
Call WriteALong("WarRock", &H9493558, 1)
End If
End Sub

Private Sub Timer2_Timer()
If GetAsyncKeyState(97) <> 0 Then Call WriteALong("Warrock", &H90DC36, &H0)
Call WriteALong("WarRock", &H9493558, 0)
End If
End Sub

have u tried with other hotkeys (does it even work at all)?

can you give everytihing you put into you buttons

why is Shouldn't is have this straigt from my own source:P

just made a small tut?

it would be nice

Scope.. Whats wrong?

Similar Threads

Tags for this Thread