PDA

View Full Version : Basic Autotalker



Laimonas171
11-18-2008, 05:59 PM
Its basic auto talker and source file's


Option Explicit
Private Sub Cmdstart1_Click()

If txt1timer.Enabled = True Then ' Read below
txt1timer.Enabled = False
cmdstart1.Caption = "Start"
Else
txt1timer.Interval = speed1.Text * 1000
txt1timer.Enabled = True
cmdstart1.Caption = "Stop"
End If
End Sub
Private Sub Cmdstart2_Click()
If txt2timer.Enabled = True Then ' If auto typing for number two has started
txt2timer.Enabled = False ' Stops it
cmdstart2.Caption = "Start"
Else
txt2timer.Interval = speed2.Text * 1000 ' If its stopped then start it when clicked
txt2timer.Enabled = True
cmdstart2.Caption = "Stop"
End If
End Sub

Private Sub txt1timer_Timer()
SendKeys txt1 ' Type whatever is in txt1
End Sub
Private Sub txt2timer_Timer()
SendKeys txt2 ' Type whatever is in txt2
End Sub
Private Sub speed1_keypress(KeyAscii As Integer)

Select Case KeyAscii ' This will stop letters being typed in the speed box
Case Is < 42
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub speed2_keypress(KeyAscii As Integer)
If speed2.Text = "" Then
speed1.Text = 100
End If
Select Case KeyAscii ' Same as speed1
Case Is < 42
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub

gimillii1592
11-21-2008, 06:05 AM
Ha ha ...ur all over vb, arent you?
you should make a tut on how to add music in a form
or maybe ill make a tut for that!
:D

Laimonas171
11-21-2008, 10:46 AM
Ha ha ...ur all over vb, arent you?
you should make a tut on how to add music in a form
or maybe ill make a tut for that!
:D

try to do :) i useing VB6 in college.. :P

gimillii1592
11-22-2008, 06:35 PM
I use vb 2008 express so idk if my source will work with VB6...will it?

Laimonas171
11-22-2008, 08:44 PM
I use vb 2008 express so idk if my source will work with VB6...will it?

i am not sure.. VB 2008 and VB6 is very differend languages.. :) so i think i doesnt work.. but you may try it..

gimillii1592
11-23-2008, 02:57 AM
I know that vb2008 can import the vb6 code, and kind of convert it...or maybe it is just compatible with vb6...idk