Autotyper

[Zeka]

Hey everybody,
This is my first post here so I want to make it clean and simple.
I want to make a program, just a simple one for my own use, which simulates the typing of a sentance. I have a command button and a text box, and when the command button is pressed, it types the text in the text box and hits enter, and continues doing that over and over. Is there any easy way to do this?

Thanks for your help everybody.

[opus]

What do you mean by "typing".
As I undersand you a textbox (in which you input/type a sentence) and you have a commandButton (which will "TYPE" the sentence for the textbox). The question is where do you want to "TYPE" that sentece, onto a label , into a document, on the screen, do you want to see it coming character by character?

[Zeka]

I just want to simulate the different keypresses in the keypress.
If the typed sentance was "Cats hats" then the "c" would be simulated, then the "a", then the "t" etc.

So say if you opened notepad, the sentance would be typed in, then enter would be automatically pressed at the end of each sentance.

[opus]

Sorry, but I don't get it.
What do you want to simulate?
If you put into the textbox "Cats hats" (you have to use the keypad and "punch" in C,a,t,s,space, h, a,t,s.). Then the textbox will display this sentence. So what do you want to program to do on the Command_Click event?

[Bootking]

You could make it look like something is being typed into your own textbox by adding a timer and putting in some code like this.

Const myString = "Check out my band's site at walterwalker.com"
 
Sub Command1_Click()
    Timer1.enabled = True
End Sub
 
Sub Timer1_Timer()
    Static X as Integer
    X = X + 1
    If X <= len(myString) Then
        Text1 = left(myString, x)
    Else
        Timer1.Enabled = False
    End If
End Sub

Of else you can actually send the text to your program or whatever other program has the focus at run time.

Const myString = "Walter Walter Rocks!"
 
Sub Command1_Click()
    Timer1.enabled = True
End Sub
 
Sub Timer1_Timer()
    Static X as Integer
    X = X + 1
    If X <= len(myString) Then
        Sendkeys Mid(myString, 1, 1), True
    Else
        Timer1.Enabled = False
    End If
End Sub

[Disiance]

Or if he doesn't want to put a timer on the form:

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 
Sub Command1_Click()
 Text1.SetFocus
 SendKeys "C"
 DoEvents
 Sleep 100
 SendKeys "a"
 DoEvents
 Sleep 100
 SendKeys "t"
 DoEvents
 Sleep 100
 SendKeys "s"
 DoEvents
 Sleep 100
 SendKeys " "
 DoEvents
 Sleep 100
 SendKeys "H"
 DoEvents
 Sleep 100
 SendKeys "a"
 DoEvents
 Sleep 100
 SendKeys "t"
 DoEvents
 Sleep 100
 SendKeys "s"
End Sub

Of course this method turned out hellishly long, but it is another way of doing things

Disiance

[Disiance]

Felt my above was much to long, so here's a better compilation:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Command1_Click()
    TypeText "Cats Hats", Text1
End Sub
 
Sub TypeText(toType As String, Destination As TextBox)
    Destination.SetFocus
    Dim i As Integer
    For i = 1 To Len(toType)
        SendKeys Mid(toType, i, 1)
        DoEvents
        Sleep 100
    Next i
    SendKeys "{ENTER}" 'Could be replaced with SendKeys "~"
End Sub

And this will take any amount of characters up to 32,767, limited because of the 'i' variable being an integer.

Disiance

[Zeka]

Thanks alot you guys!

[Zeka]

There is one problem. Once the form is closed, it continues typing. Is there any function I can use to stop it?


Thanks

[Bruce Fox]

Zeka, Welcome to the Forum


Which on of the methods above are you using?

[Zeka]

Oh yeah, forgot to mention. I found the example Disiance posted works best.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Command1_Click()
    TypeText "Cats Hats", Text1
End Sub
 
Sub TypeText(toType As String, Destination As TextBox)
    Destination.SetFocus
    Dim i As Integer
    For i = 1 To Len(toType)
        SendKeys Mid(toType, i, 1)
        DoEvents
        Sleep 100
    Next i
    SendKeys "{ENTER}" 'Could be replaced with SendKeys "~"
End Sub

[dglienna]

put this in the main form_unload:

Dim Frm As Form
For Each Frm In Forms
  Unload frm
Next