[REQ.] For Check! [I Give SomeOne]

It's Good Written??

Code:

Private Declare Function HetasynsKeyState Lib "user32" (ByVal key As Long) As Integer
------------------------------------------------------------------------
Private Sub Timer1_Timer()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H8B5288, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub
------------------------------------------------------------------------
Private Sub Timer2_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyF1) Then
Timer1.Interval = 1
End If
End Sub

Please, Check Thanks.

nope not well written shotgun is a command button not a timer and im pretty sure it cant be written as a timer

im sure this is the way its written

Code:

Private Sub Command3_Click()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyF1) Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H8B5288, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End If
End Sub

Now?!

Now is Good?

Code:

Private Declare Function HetasynsKeyState Lib "user32" (ByVal key As Long) As Integer

Private Sub Command1_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H8B5288, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub

Private Sub Command2_Click()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyF1) Then
Timer1.Interval = 1
End If
End Sub

??Please Check

Private Sub Command1_Click()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyF1) Then
Timer1.Interval = 1
End If
End Sub

Private Sub Timer1_Timer()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H8B5288, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub

tell me if this works im not sure i dont have an account to try it out on -.- last one got banned and im wayyy to lazy right now to make another

thx

thx Works Rep +

Originally Posted by yogilek

thx Works Rep +

alright thats cool and thanks for the rep + : P

[REQ.] For Check! [I Give SomeOne]

Similar Threads