help making trainer vb6

[platinum92]

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

[juppeli]

No it's not, all of your command buttons adjust only this timer:

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7F2B34, 1120403456)
End Sub

So, as example, if you want to get this

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)

Private Sub Command3_Click()
Timer2.Interval = 1
End Sub

and to off

Private Sub Command4_Click()
Timer2.Interval = 0
End Sub

Notice number of timer (eg. Timer2.Interval = 0).
Correct me if im wrong

[Grim09]

Were you programming stoned? If so I don't blame you; it's fun...

But the guy above me is right^^

[Nishant2213]

well it looks good..

im just kidding ...i know shit..lmfao

[platinum92]

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

[platinum92]

No it's not, all of your command buttons adjust only this timer:

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7F2B34, 1120403456)
End Sub

So, as example, if you want to get this

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)

Private Sub Command3_Click()
Timer2.Interval = 1
End Sub

and to off

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

[unseenss]

and its not Timer.Interval=1/0

its Timer.Enabled=True/False or 1/0

[juppeli]

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?