Simple Auto-Talker Tutorial!

[kyle99]

For VB 6

Components:

TextBox
Name: textbox
Text: Message

TextBox
Name: Text1
Message: Time

Command Button
Name: Command1
Text: Start

Command Button
Name:Command 2
Text: Stop

Timer
Name: Timer1
Enabled: False

Right click anywhere on the form, and type in this code:

Private Sub Command1_Click()
Timer1.Interval = Text1 * 1000
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub



Private Sub Timer1_Timer()
SendKeys textbox
SendKeys "{enter}"
End Sub

And ur done

 

[Covey]

if you enter a letter into that textbox its going to die.
you might want to add the code on command1_click():

if val(text1) = "0" then msgbox "please enter a NUMBER into the text box": text1 = empty: exit sub

 

[Crimson47]

uhmm this is a good tutorial but i think the auto typer could be a little better..

 

I've seen this same tut over and over...Make it more interesting, everyone knows this!