hey i am making my first trainer in vb6 could anyone tell me if this form is good
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command10_Click()
Timer1.Interval = 0
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_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 Command4_Click()
Timer1.Interval = 1
End Sub
Private Sub Command5_Click()
Timer1.Interval = 0
End Sub
Private Sub Command6_Click()
Timer1.Interval = 1
End Sub
Private Sub Command7_Click()
Timer1.Interval = 0
End Sub
Private Sub Command8_Click()
Timer1.Interval = 1
End Sub
Private Sub Command9_Click()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7F2B34, 1120403456)
End Sub
Private Sub Timer2_Timer()
Call WriteALong("Warrock", &H943A54, 0)
Call WriteALong("Warrock", &H943A55, 0)
Call WriteALong("Warrock", &H943A56, 0)
Call WriteALong("Warrock", &H943A57, 0)
Call WriteALong("Warrock", &H943A58, 0)
Call WriteALong("Warrock", &H943A59, 0)
End Sub
Private Sub Timer3_Timer()
Call WriteALong("Warrock", &H943A50, 0)
Call WriteALong("Warrock", &H943A52, 0)
Call WriteALong("Warrock", &H943A51, 0)
Call WriteALong("Warrock", &H943A53, 0)
End Sub
Private Sub Timer4_Timer()
Call WriteALong("Warrock", &HB56F60, 0)
End Sub
Private Sub Timer5_Timer()
Call WriteALong("Warrock", &HB4C7D0, 4)
End Sub
No it's not, all of your command buttons adjust only this timer:
Code:
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7F2B34, 1120403456)
End Sub
So, as example, if you want to get this
Code:
Private Sub Timer2_Timer()
Call WriteALong("Warrock", &H943A54, 0)
Call WriteALong("Warrock", &H943A55, 0)
Call WriteALong("Warrock", &H943A56, 0)
Call WriteALong("Warrock", &H943A57, 0)
Call WriteALong("Warrock", &H943A58, 0)
Call WriteALong("Warrock", &H943A59, 0)
End Sub
timer work, it's like (to on)
Code:
Private Sub Command3_Click()
Timer2.Interval = 1
End Sub
and to off
Code:
Private Sub Command4_Click()
Timer2.Interval = 0
End Sub
Notice number of timer (eg. Timer2.Interval = 0).
Correct me if im wrong
Were you programming stoned? If so I don't blame you; it's fun...
But the guy above me is right^^
well it looks good..
im just kidding ...i know shit..lmfao
Originally Posted by Grim09
Were you programming stoned? If so I don't blame you; it's fun...
But the guy above me is right^^
had a couple beers it was late i was tired
Originally Posted by juppeli
No it's not, all of your command buttons adjust only this timer:
Code:
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7F2B34, 1120403456)
End Sub
So, as example, if you want to get this
Code:
Private Sub Timer2_Timer()
Call WriteALong("Warrock", &H943A54, 0)
Call WriteALong("Warrock", &H943A55, 0)
Call WriteALong("Warrock", &H943A56, 0)
Call WriteALong("Warrock", &H943A57, 0)
Call WriteALong("Warrock", &H943A58, 0)
Call WriteALong("Warrock", &H943A59, 0)
End Sub
timer work, it's like (to on)
Code:
Private Sub Command3_Click()
Timer2.Interval = 1
End Sub
and to off
Code:
Private Sub Command4_Click()
Timer2.Interval = 0
End Sub
Notice number of timer (eg. Timer2.Interval = 0).
Correct me if im wrong
thanks man i finished it gonna test it now
and its not Timer.Interval=1/0
its Timer.Enabled=True/False or 1/0
Originally Posted by unseenss
and its not Timer.Interval=1/0
its Timer.Enabled=True/False or 1/0
I would like to hear why it can't be this: Timer.Interval=1/0?