who cares if u press alt u zoom out? i use right click - right click way more easier but thnkx to the people who need it
I'm really sorry for Posting a Help in here.
I hv made new WarRock Trainer on new Address's today & it's working on new Updated worrock as of 9th Nov. 2007 6:30pm IST.
I made Stamina, Perfect Aim & Zoom hack, all working.
but I hv also added a Alternate shorcut to Scope Zoom Hack, as on Right Click Zoom in & on Pressing ALT do Zoom Out.
this is my code looks like, I made 2 Extra Timers for Zoom hack [see img.1] :
img.1 :Code:Private Sub Timer3_Timer() If GetAsyncKeyState(2) <> 0 Then Call WriteALong("Warrock", &HADD126, 1) End If End Sub Private Sub Timer4_Timer() If GetAsyncKeyState(18) <> 0 Then Call WriteALong("Warrock", &HADD126, 0) End If End Sub
-
-
-
-
& this is my whole Code Looks like [u can take this ADDRESS's as they r working. i was playing abt 1hr's with this hack.]:
Note I did Right Click on Form1 > View Code > and added a Line on TOP of the code [as Told by RedEye in his Tut on MPGH.] :Code:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() Call WriteALong("Warrock", &HADD126, 1) End Sub Private Sub Command4_Click() Call WriteALong("Warrock", &HADD126, 0) End Sub Private Sub Command5_Click() Timer2.Enabled = True End Sub Private Sub Command6_Click() Timer2.Enabled = False End Sub Private Sub Timer1_Timer() Call WriteALong("Warrock", &H8DBAFC, 1120403456) End Sub Private Sub Timer2_Timer() Call WriteALong("Warrock", &HADD164, 0) Call WriteALong("Warrock", &HADD16B, 0) End Sub Private Sub Timer3_Timer() If GetAsyncKeyState(2) <> 0 Then Call WriteALong("Warrock", &HADD126, 1) End If End Sub Private Sub Timer4_Timer() If GetAsyncKeyState(18) <> 0 Then Call WriteALong("Warrock", &HADD126, 0) End If End Sub
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Originally Posted by ace76543
who cares if u press alt u zoom out? i use right click - right click way more easier but thnkx to the people who need it
hey can u give me your module please.... or generate for me 1....
Whr do i add it ? i'm using TheRedEye's this Tut https://www.mpgh.net/forum/61-archive...light=tutorial
as referance, I really dont know anything on VB6 i just learnt warock VB6 hacks making from tutorials.
--
& dean_josef use any public Module & Crypt it so it gets Hard to PB to read the crypted data.
Originally Posted by ace76543
Still please answer my post..
Edit: can u post your module into your site please..
This should be the code for Scope:
Interval 1, enabled false.Code:Call WriteALong ("Warrock", &HADD126, 1)
Now the hotkey:
Interval 1, enabled true.Code:If GetKeyPress (vbKeyRButton) Then Call WriteALong ("Warrock", &HADD126, 1) Else: Call WriteALong ("Warrock", &HADD126, 0) End If
This is Hold right click on/off. If you want to use two seperate keys to turn it on/off:
First hotkey timer:
Second hotkey timer:Code:If GetKeyPress (vbKeyRButton) Then Call WriteALong ("Warrock", &HADD126, 1) End If
Interval 1, enabled true for both.Code:If GetKeyPress (vbKeyMenu) Then Call WriteALong ("Warrock", &HADD126, 1) End If
vbKeyMenu = Alt.
Last edited by wr194t; 11-09-2007 at 07:19 AM.
Thanx wr194t
I will try it & then Posts here my Test result.
Between wht is difference between the intervals 1 & 100 ? true & false ?
I did changed my interval from 100 to 1 & False to True.
Originally Posted by ace76543
SteeL (11-09-2007)
man, it did worked, now I can Zoom in & Zoom out on Right Click
i will be adding comments in exe : Thanx to wr194t.
Last edited by SteeL; 11-09-2007 at 08:31 PM.
Originally Posted by ace76543
Originally Posted by ace76543