Simulating a keypress-Autotyping

Blitz3D Forums/Blitz3D Beginners Area/Simulating a keypress-Autotyping

Nike	(Posted 2011) [#1]

Hello, I would like to create an auto typing program, and I have no idea how to make blitz3d press a key on its own. I do not want to type to appear in the window, but in whatever is the front one. For example, if I had the notepad program running in front of all my other programs, I would like the text to appear on that. Does anyone know how to make blitz3d type?

Warner

(Posted 2011) [#2]

You need to create a userlib with the function api_keybd_event.
First, save this code as "keybd.decls" in "c:\program files\blitz3d\userlibs"

.lib "user32.dll" 

api_keybd_event%(bVk%, bScan%, dwFlags%, dwExtraInfo%) : "keybd_event"

Then, execute this file and set the focus to the Notepad window:

;------------------------
;.lib "user32.dll" 
;
;api_keybd_event%(bVk%, bScan%, dwFlags%, dwExtraInfo%) : "keybd_event" 
;------------------------

;complete list here: <a href="http://msdn.microsoft.com/en-us/library/dd375731(v=vs.85).aspx" target="_blank">http://msdn.microsoft.com/en-us/library/dd375731(v=vs.85).aspx</a>
Const VK_A = $41

key = VK_A

ExecFile "notepad"

Repeat

		api_keybd_event(key,0,0,0) ;key down
		api_keybd_event(key,0,2,0) ;key up
		Delay 150
				
Until KeyHit(1)

End

It now presses the "A" key. You can find other keycodes in this list here:
http://msdn.microsoft.com/en-us/library/dd375731(v=vs.85).aspx

Last edited 2011

Nike	(Posted 2011) [#3]

Thank you!

Nike	(Posted 2011) [#4]

This is the autotyper I made 20 char limit, and it has a bug that I cannot find. It is also 666 lines, and thats kinda a bad number for two reasons. 1st, its A LOT more then a simple program like this should be, and 2nd, it means that the devil is going to kill me. Can anyone show me how to shorten this or find the bug? Thanks.

AppTitle "Auto Typer V.1"
Graphics 400,200,16,2
Print "Welcome to the Auto Typer."
Print ""
Print "What would you like to be autotyped?"
ainput$ = Input("")
blen$ = Len(ainput$)
time$ = Input("Repeat per seconds (ex. 1 sec = 1000): ")
a1$ = Mid$(ainput$,1,1)
If blen$ > 1 Then a2$ = Mid$(ainput$,2,1)
If blen$ > 2 Then a3$ = Mid$(ainput$,3,1)
If blen$ > 3 Then a4$ = Mid$(ainput$,4,1)
If blen$ > 4 Then a5$ = Mid$(ainput$,5,1)
If blen$ > 5 Then a6$ = Mid$(ainput$,6,1)
If blen$ > 6 Then a7$ = Mid$(ainput$,7,1)
If blen$ > 7 Then a8$ = Mid$(ainput$,8,1)
If blen$ > 8 Then a9$ = Mid$(ainput$,9,1)
If blen$ > 9 Then a10$ = Mid$(ainput$,10,1)
If blen$ > 10 Then a11$ = Mid$(ainput$,11,1)
If blen$ > 11 Then a12$ = Mid$(ainput$,12,1)
If blen$ > 12 Then a13$ = Mid$(ainput$,13,1)
If blen$ > 13 Then a14$ = Mid$(ainput$,14,1)
If blen$ > 14 Then a15$ = Mid$(ainput$,15,1)
If blen$ > 15 Then a16$ = Mid$(ainput$,16,1)
If blen$ > 16 Then a17$ = Mid$(ainput$,17,1)
If blen$ > 17 Then a18$ = Mid$(ainput$,18,1)
If blen$ > 18 Then a19$ = Mid$(ainput$,19,1)
If blen$ > 19 Then a20$ = Mid$(ainput$,20,1)
If a1$ = "a" Then a1$ = $41
If a1$ = "b" Then a1$ = $42
If a1$ = "c" Then a1$ = $43
If a1$ = "d" Then a1$ = $44
If a1$ = "e" Then a1$ = $45
If a1$ = "f" Then a1$ = $46
If a1$ = "g" Then a1$ = $47
If a1$ = "h" Then a1$ = $48
If a1$ = "i" Then a1$ = $49
If a1$ = "j" Then a1$ = $4A
If a1$ = "k" Then a1$ = $4B
If a1$ = "l" Then a1$ = $4C
If a1$ = "m" Then a1$ = $4D
If a1$ = "n" Then a1$ = $4E
If a1$ = "o" Then a1$ = $4F
If a1$ = "p" Then a1$ = $50
If a1$ = "q" Then a1$ = $51
If a1$ = "r" Then a1$ = $52
If a1$ = "s" Then a1$ = $53
If a1$ = "t" Then a1$ = $54
If a1$ = "u" Then a1$ = $55
If a1$ = "v" Then a1$ = $56
If a1$ = "w" Then a1$ = $57
If a1$ = "x" Then a1$ = $58
If a1$ = "y" Then a1$ = $59
If a1$ = "z" Then a1$ = $5A
If blen$ > 1
If a2$ = "a" Then a2$ = $41
If a2$ = "b" Then a2$ = $42
If a2$ = "c" Then a2$ = $43
If a2$ = "d" Then a2$ = $44
If a2$ = "e" Then a2$ = $45
If a2$ = "f" Then a2$ = $46
If a2$ = "g" Then a2$ = $47
If a2$ = "h" Then a2$ = $48
If a2$ = "i" Then a2$ = $49
If a2$ = "j" Then a2$ = $4A
If a2$ = "k" Then a2$ = $4B
If a2$ = "l" Then a2$ = $4C
If a2$ = "m" Then a2$ = $4D
If a2$ = "n" Then a2$ = $4E
If a2$ = "o" Then a2$ = $4F
If a2$ = "p" Then a2$ = $50
If a2$ = "q" Then a2$ = $51
If a2$ = "r" Then a2$ = $52
If a2$ = "s" Then a2$ = $53
If a2$ = "t" Then a2$ = $54
If a2$ = "u" Then a2$ = $55
If a2$ = "v" Then a2$ = $56
If a2$ = "w" Then a2$ = $57
If a2$ = "x" Then a2$ = $58
If a2$ = "y" Then a2$ = $59
If a2$ = "z" Then a2$ = $5A
EndIf 
If blen$ > 2
If a3$ = "a" Then a3$ = $41
If a3$ = "b" Then a3$ = $42
If a3$ = "c" Then a3$ = $43
If a3$ = "d" Then a3$ = $44
If a3$ = "e" Then a3$ = $45
If a3$ = "f" Then a3$ = $46
If a3$ = "g" Then a3$ = $47
If a3$ = "h" Then a3$ = $48
If a3$ = "i" Then a3$ = $49
If a3$ = "j" Then a3$ = $4A
If a3$ = "k" Then a3$ = $4B
If a3$ = "l" Then a3$ = $4C
If a3$ = "m" Then a3$ = $4D
If a3$ = "n" Then a3$ = $4E
If a3$ = "o" Then a3$ = $4F
If a3$ = "p" Then a3$ = $50
If a3$ = "q" Then a3$ = $51
If a3$ = "r" Then a3$ = $52
If a3$ = "s" Then a3$ = $53
If a3$ = "t" Then a3$ = $54
If a3$ = "u" Then a3$ = $55
If a3$ = "v" Then a3$ = $56
If a3$ = "w" Then a3$ = $57
If a3$ = "x" Then a3$ = $58
If a3$ = "y" Then a3$ = $59
If a3$ = "z" Then a3$ = $5A
EndIf 
If blen$ > 3
If a4$ = "a" Then a4$ = $41
If a4$ = "b" Then a4$ = $42
If a4$ = "c" Then a4$ = $43
If a4$ = "d" Then a4$ = $44
If a4$ = "e" Then a4$ = $45
If a4$ = "f" Then a4$ = $46
If a4$ = "g" Then a4$ = $47
If a4$ = "h" Then a4$ = $48
If a4$ = "i" Then a4$ = $49
If a4$ = "j" Then a4$ = $4A
If a4$ = "k" Then a4$ = $4B
If a4$ = "l" Then a4$ = $4C
If a4$ = "m" Then a4$ = $4D
If a4$ = "n" Then a4$ = $4E
If a4$ = "o" Then a4$ = $4F
If a4$ = "p" Then a4$ = $50
If a4$ = "q" Then a4$ = $51
If a4$ = "r" Then a4$ = $52
If a4$ = "s" Then a4$ = $53
If a4$ = "t" Then a4$ = $54
If a4$ = "u" Then a4$ = $55
If a4$ = "v" Then a4$ = $56
If a4$ = "w" Then a4$ = $57
If a4$ = "x" Then a4$ = $58
If a4$ = "y" Then a4$ = $59
If a4$ = "z" Then a4$ = $5A
EndIf 
If blen$ > 4
If a5$ = "a" Then a5$ = $41
If a5$ = "b" Then a5$ = $42
If a5$ = "c" Then a5$ = $43
If a5$ = "d" Then a5$ = $44
If a5$ = "e" Then a5$ = $45
If a5$ = "f" Then a5$ = $46
If a5$ = "g" Then a5$ = $47
If a5$ = "h" Then a5$ = $48
If a5$ = "i" Then a5$ = $49
If a5$ = "j" Then a5$ = $4A
If a5$ = "k" Then a5$ = $4B
If a5$ = "l" Then a5$ = $4C
If a5$ = "m" Then a5$ = $4D
If a5$ = "n" Then a5$ = $4E
If a5$ = "o" Then a5$ = $4F
If a5$ = "p" Then a5$ = $50
If a5$ = "q" Then a5$ = $51
If a5$ = "r" Then a5$ = $52
If a5$ = "s" Then a5$ = $53
If a5$ = "t" Then a5$ = $54
If a5$ = "u" Then a5$ = $55
If a5$ = "v" Then a5$ = $56
If a5$ = "w" Then a5$ = $57
If a5$ = "x" Then a5$ = $58
If a5$ = "y" Then a5$ = $59
If a5$ = "z" Then a5$ = $5A
EndIf
If blen$ > 5
If a6$ = "a" Then a6$ = $41
If a6$ = "b" Then a6$ = $42
If a6$ = "c" Then a6$ = $43
If a6$ = "d" Then a6$ = $44
If a6$ = "e" Then a6$ = $45
If a6$ = "f" Then a6$ = $46
If a6$ = "g" Then a6$ = $47
If a6$ = "h" Then a6$ = $48
If a6$ = "i" Then a6$ = $49
If a6$ = "j" Then a6$ = $4A
If a6$ = "k" Then a6$ = $4B
If a6$ = "l" Then a6$ = $4C
If a6$ = "m" Then a6$ = $4D
If a6$ = "n" Then a6$ = $4E
If a6$ = "o" Then a6$ = $4F
If a6$ = "p" Then a6$ = $50
If a6$ = "q" Then a6$ = $51
If a6$ = "r" Then a6$ = $52
If a6$ = "s" Then a6$ = $53
If a6$ = "t" Then a6$ = $54
If a6$ = "u" Then a6$ = $55
If a6$ = "v" Then a6$ = $56
If a6$ = "w" Then a6$ = $57
If a6$ = "x" Then a6$ = $58
If a6$ = "y" Then a6$ = $59
If a6$ = "z" Then a6$ = $5A
EndIf
If blen$ > 6
If a7$ = "a" Then a7$ = $41
If a7$ = "b" Then a7$ = $42
If a7$ = "c" Then a7$ = $43
If a7$ = "d" Then a7$ = $44
If a7$ = "e" Then a7$ = $45
If a7$ = "f" Then a7$ = $46
If a7$ = "g" Then a7$ = $47
If a7$ = "h" Then a7$ = $48
If a7$ = "i" Then a7$ = $49
If a7$ = "j" Then a7$ = $4A
If a7$ = "k" Then a7$ = $4B
If a7$ = "l" Then a7$ = $4C
If a7$ = "m" Then a7$ = $4D
If a7$ = "n" Then a7$ = $4E
If a7$ = "o" Then a7$ = $4F
If a7$ = "p" Then a7$ = $50
If a7$ = "q" Then a7$ = $51
If a7$ = "r" Then a7$ = $52
If a7$ = "s" Then a7$ = $53
If a7$ = "t" Then a7$ = $54
If a7$ = "u" Then a7$ = $55
If a7$ = "v" Then a7$ = $56
If a7$ = "w" Then a7$ = $57
If a7$ = "x" Then a7$ = $58
If a7$ = "y" Then a7$ = $59
If a7$ = "z" Then a7$ = $5A
EndIf
If blen$ > 7
If a8$ = "a" Then a8$ = $41
If a8$ = "b" Then a8$ = $42
If a8$ = "c" Then a8$ = $43
If a8$ = "d" Then a8$ = $44
If a8$ = "e" Then a8$ = $45
If a8$ = "f" Then a8$ = $46
If a8$ = "g" Then a8$ = $47
If a8$ = "h" Then a8$ = $48
If a8$ = "i" Then a8$ = $49
If a8$ = "j" Then a8$ = $4A
If a8$ = "k" Then a8$ = $4B
If a8$ = "l" Then a8$ = $4C
If a8$ = "m" Then a8$ = $4D
If a8$ = "n" Then a8$ = $4E
If a8$ = "o" Then a8$ = $4F
If a8$ = "p" Then a8$ = $50
If a8$ = "q" Then a8$ = $51
If a8$ = "r" Then a8$ = $52
If a8$ = "s" Then a8$ = $53
If a8$ = "t" Then a8$ = $54
If a8$ = "u" Then a8$ = $55
If a8$ = "v" Then a8$ = $56
If a8$ = "w" Then a8$ = $57
If a8$ = "x" Then a8$ = $58
If a8$ = "y" Then a8$ = $59
If a8$ = "z" Then a8$ = $5A
EndIf 
If blen$ > 8
If a9$ = "a" Then a9$ = $41
If a9$ = "b" Then a9$ = $42
If a9$ = "c" Then a9$ = $43
If a9$ = "d" Then a9$ = $44
If a9$ = "e" Then a9$ = $45
If a9$ = "f" Then a9$ = $46
If a9$ = "g" Then a9$ = $47
If a9$ = "h" Then a9$ = $48
If a9$ = "i" Then a9$ = $49
If a9$ = "j" Then a9$ = $4A
If a9$ = "k" Then a9$ = $4B
If a9$ = "l" Then a9$ = $4C
If a9$ = "m" Then a9$ = $4D
If a9$ = "n" Then a9$ = $4E
If a9$ = "o" Then a9$ = $4F
If a9$ = "p" Then a9$ = $50
If a9$ = "q" Then a9$ = $51
If a9$ = "r" Then a9$ = $52
If a9$ = "s" Then a9$ = $53
If a9$ = "t" Then a9$ = $54
If a9$ = "u" Then a9$ = $55
If a9$ = "v" Then a9$ = $56
If a9$ = "w" Then a9$ = $57
If a9$ = "x" Then a9$ = $58
If a9$ = "y" Then a9$ = $59
If a9$ = "z" Then a9$ = $5A
EndIf 
If blen$ > 9
If a10$ = "a" Then a10$ = $41
If a10$ = "b" Then a10$ = $42
If a10$ = "c" Then a10$ = $43
If a10$ = "d" Then a10$ = $44
If a10$ = "e" Then a10$ = $45
If a10$ = "f" Then a10$ = $46
If a10$ = "g" Then a10$ = $47
If a10$ = "h" Then a10$ = $48
If a10$ = "i" Then a10$ = $49
If a10$ = "j" Then a10$ = $4A
If a10$ = "k" Then a10$ = $4B
If a10$ = "l" Then a10$ = $4C
If a10$ = "m" Then a10$ = $4D
If a10$ = "n" Then a10$ = $4E
If a10$ = "o" Then a10$ = $4F
If a10$ = "p" Then a10$ = $50
If a10$ = "q" Then a10$ = $51
If a10$ = "r" Then a10$ = $52
If a10$ = "s" Then a10$ = $53
If a10$ = "t" Then a10$ = $54
If a10$ = "u" Then a10$ = $55
If a10$ = "v" Then a10$ = $56
If a10$ = "w" Then a10$ = $57
If a10$ = "x" Then a10$ = $58
If a10$ = "y" Then a10$ = $59
If a10$ = "z" Then a10$ = $5A
EndIf 
If blen$ > 10
If a11$ = "a" Then a11$ = $41
If a11$ = "b" Then a11$ = $42
If a11$ = "c" Then a11$ = $43
If a11$ = "d" Then a11$ = $44
If a11$ = "e" Then a11$ = $45
If a11$ = "f" Then a11$ = $46
If a11$ = "g" Then a11$ = $47
If a11$ = "h" Then a11$ = $48
If a11$ = "i" Then a11$ = $49
If a11$ = "j" Then a11$ = $4A
If a11$ = "k" Then a11$ = $4B
If a11$ = "l" Then a11$ = $4C
If a11$ = "m" Then a11$ = $4D
If a11$ = "n" Then a11$ = $4E
If a11$ = "o" Then a11$ = $4F
If a11$ = "p" Then a11$ = $50
If a11$ = "q" Then a11$ = $51
If a11$ = "r" Then a11$ = $52
If a11$ = "s" Then a11$ = $53
If a11$ = "t" Then a11$ = $54
If a11$ = "u" Then a11$ = $55
If a11$ = "v" Then a11$ = $56
If a11$ = "w" Then a11$ = $57
If a11$ = "x" Then a11$ = $58
If a11$ = "y" Then a11$ = $59
If a11$ = "z" Then a11$ = $5A
EndIf 
If blen$ > 11
If a12$ = "a" Then a12$ = $41
If a12$ = "b" Then a12$ = $42
If a12$ = "c" Then a12$ = $43
If a12$ = "d" Then a12$ = $44
If a12$ = "e" Then a12$ = $45
If a12$ = "f" Then a12$ = $46
If a12$ = "g" Then a12$ = $47
If a12$ = "h" Then a12$ = $48
If a12$ = "i" Then a12$ = $49
If a12$ = "j" Then a12$ = $4A
If a12$ = "k" Then a12$ = $4B
If a12$ = "l" Then a12$ = $4C
If a12$ = "m" Then a12$ = $4D
If a12$ = "n" Then a12$ = $4E
If a12$ = "o" Then a12$ = $4F
If a12$ = "p" Then a12$ = $50
If a12$ = "q" Then a12$ = $51
If a12$ = "r" Then a12$ = $52
If a12$ = "s" Then a12$ = $53
If a12$ = "t" Then a12$ = $54
If a12$ = "u" Then a12$ = $55
If a12$ = "v" Then a12$ = $56
If a12$ = "w" Then a12$ = $57
If a12$ = "x" Then a12$ = $58
If a12$ = "y" Then a12$ = $59
If a12$ = "z" Then a12$ = $5A
EndIf 
If blen$ > 12
If a13$ = "a" Then a13$ = $41
If a13$ = "b" Then a13$ = $42
If a13$ = "c" Then a13$ = $43
If a13$ = "d" Then a13$ = $44
If a13$ = "e" Then a13$ = $45
If a13$ = "f" Then a13$ = $46
If a13$ = "g" Then a13$ = $47
If a13$ = "h" Then a13$ = $48
If a13$ = "i" Then a13$ = $49
If a13$ = "j" Then a13$ = $4A
If a13$ = "k" Then a13$ = $4B
If a13$ = "l" Then a13$ = $4C
If a13$ = "m" Then a13$ = $4D
If a13$ = "n" Then a13$ = $4E
If a13$ = "o" Then a13$ = $4F
If a13$ = "p" Then a13$ = $50
If a13$ = "q" Then a13$ = $51
If a13$ = "r" Then a13$ = $52
If a13$ = "s" Then a13$ = $53
If a13$ = "t" Then a13$ = $54
If a13$ = "u" Then a13$ = $55
If a13$ = "v" Then a13$ = $56
If a13$ = "w" Then a13$ = $57
If a13$ = "x" Then a13$ = $58
If a13$ = "y" Then a13$ = $59
If a13$ = "z" Then a13$ = $5A
EndIf 
If blen$ > 13
If a14$ = "a" Then a14$ = $41
If a14$ = "b" Then a14$ = $42
If a14$ = "c" Then a14$ = $43
If a14$ = "d" Then a14$ = $44
If a14$ = "e" Then a14$ = $45
If a14$ = "f" Then a14$ = $46
If a14$ = "g" Then a14$ = $47
If a14$ = "h" Then a14$ = $48
If a14$ = "i" Then a14$ = $49
If a14$ = "j" Then a14$ = $4A
If a14$ = "k" Then a14$ = $4B
If a14$ = "l" Then a14$ = $4C
If a14$ = "m" Then a14$ = $4D
If a14$ = "n" Then a14$ = $4E
If a14$ = "o" Then a14$ = $4F
If a14$ = "p" Then a14$ = $50
If a14$ = "q" Then a14$ = $51
If a14$ = "r" Then a14$ = $52
If a14$ = "s" Then a14$ = $53
If a14$ = "t" Then a14$ = $54
If a14$ = "u" Then a14$ = $55
If a14$ = "v" Then a14$ = $56
If a14$ = "w" Then a14$ = $57
If a14$ = "x" Then a14$ = $58
If a14$ = "y" Then a14$ = $59
If a14$ = "z" Then a14$ = $5A
EndIf 
If blen$ > 14
If a15$ = "a" Then a15$ = $41
If a15$ = "b" Then a15$ = $42
If a15$ = "c" Then a15$ = $43
If a15$ = "d" Then a15$ = $44
If a15$ = "e" Then a15$ = $45
If a15$ = "f" Then a15$ = $46
If a15$ = "g" Then a15$ = $47
If a15$ = "h" Then a15$ = $48
If a15$ = "i" Then a15$ = $49
If a15$ = "j" Then a15$ = $4A
If a15$ = "k" Then a15$ = $4B
If a15$ = "l" Then a15$ = $4C
If a15$ = "m" Then a15$ = $4D
If a15$ = "n" Then a15$ = $4E
If a15$ = "o" Then a15$ = $4F
If a15$ = "p" Then a15$ = $50
If a15$ = "q" Then a15$ = $51
If a15$ = "r" Then a15$ = $52
If a15$ = "s" Then a15$ = $53
If a15$ = "t" Then a15$ = $54
If a15$ = "u" Then a15$ = $55
If a15$ = "v" Then a15$ = $56
If a15$ = "w" Then a15$ = $57
If a15$ = "x" Then a15$ = $58
If a15$ = "y" Then a15$ = $59
If a15$ = "z" Then a15$ = $5A
EndIf 
If blen$ > 15
If a16$ = "a" Then a16$ = $41
If a16$ = "b" Then a16$ = $42
If a16$ = "c" Then a16$ = $43
If a16$ = "d" Then a16$ = $44
If a16$ = "e" Then a16$ = $45
If a16$ = "f" Then a16$ = $46
If a16$ = "g" Then a16$ = $47
If a16$ = "h" Then a16$ = $48
If a16$ = "i" Then a16$ = $49
If a16$ = "j" Then a16$ = $4A
If a16$ = "k" Then a16$ = $4B
If a16$ = "l" Then a16$ = $4C
If a16$ = "m" Then a16$ = $4D
If a16$ = "n" Then a16$ = $4E
If a16$ = "o" Then a16$ = $4F
If a16$ = "p" Then a16$ = $50
If a16$ = "q" Then a16$ = $51
If a16$ = "r" Then a16$ = $52
If a16$ = "s" Then a16$ = $53
If a16$ = "t" Then a16$ = $54
If a16$ = "u" Then a16$ = $55
If a16$ = "v" Then a16$ = $56
If a16$ = "w" Then a16$ = $57
If a16$ = "x" Then a16$ = $58
If a16$ = "y" Then a16$ = $59
If a16$ = "z" Then a16$ = $5A
EndIf 
If blen$ > 16
If a17$ = "a" Then a17$ = $41
If a17$ = "b" Then a17$ = $42
If a17$ = "c" Then a17$ = $43
If a17$ = "d" Then a17$ = $44
If a17$ = "e" Then a17$ = $45
If a17$ = "f" Then a17$ = $46
If a17$ = "g" Then a17$ = $47
If a17$ = "h" Then a17$ = $48
If a17$ = "i" Then a17$ = $49
If a17$ = "j" Then a17$ = $4A
If a17$ = "k" Then a17$ = $4B
If a17$ = "l" Then a17$ = $4C
If a17$ = "m" Then a17$ = $4D
If a17$ = "n" Then a17$ = $4E
If a17$ = "o" Then a17$ = $4F
If a17$ = "p" Then a17$ = $50
If a17$ = "q" Then a17$ = $51
If a17$ = "r" Then a17$ = $52
If a17$ = "s" Then a17$ = $53
If a17$ = "t" Then a17$ = $54
If a17$ = "u" Then a17$ = $55
If a17$ = "v" Then a17$ = $56
If a17$ = "w" Then a17$ = $57
If a17$ = "x" Then a17$ = $58
If a17$ = "y" Then a17$ = $59
If a17$ = "z" Then a17$ = $5A
EndIf
If blen$ > 17
If a18$ = "a" Then a18$ = $41
If a18$ = "b" Then a18$ = $42
If a18$ = "c" Then a18$ = $43
If a18$ = "d" Then a18$ = $44
If a18$ = "e" Then a18$ = $45
If a18$ = "f" Then a18$ = $46
If a18$ = "g" Then a18$ = $47
If a18$ = "h" Then a18$ = $48
If a18$ = "i" Then a18$ = $49
If a18$ = "j" Then a18$ = $4A
If a18$ = "k" Then a18$ = $4B
If a18$ = "l" Then a18$ = $4C
If a18$ = "m" Then a18$ = $4D
If a18$ = "n" Then a18$ = $4E
If a18$ = "o" Then a18$ = $4F
If a18$ = "p" Then a18$ = $50
If a18$ = "q" Then a18$ = $51
If a18$ = "r" Then a18$ = $52
If a18$ = "s" Then a18$ = $53
If a18$ = "t" Then a18$ = $54
If a18$ = "u" Then a18$ = $55
If a18$ = "v" Then a18$ = $56
If a18$ = "w" Then a18$ = $57
If a18$ = "x" Then a18$ = $58
If a18$ = "y" Then a18$ = $59
If a18$ = "z" Then a18$ = $5A
EndIf 
If blen$ > 18
If a19$ = "a" Then a19$ = $41
If a19$ = "b" Then a19$ = $42
If a19$ = "c" Then a19$ = $43
If a19$ = "d" Then a19$ = $44
If a19$ = "e" Then a19$ = $45
If a19$ = "f" Then a19$ = $46
If a19$ = "g" Then a19$ = $47
If a19$ = "h" Then a19$ = $48
If a19$ = "i" Then a19$ = $49
If a19$ = "j" Then a19$ = $4A
If a19$ = "k" Then a19$ = $4B
If a19$ = "l" Then a19$ = $4C
If a19$ = "m" Then a19$ = $4D
If a19$ = "n" Then a19$ = $4E
If a19$ = "o" Then a19$ = $4F
If a19$ = "p" Then a19$ = $50
If a19$ = "q" Then a19$ = $51
If a19$ = "r" Then a19$ = $52
If a19$ = "s" Then a19$ = $53
If a19$ = "t" Then a19$ = $54
If a19$ = "u" Then a19$ = $55
If a19$ = "v" Then a19$ = $56
If a19$ = "w" Then a19$ = $57
If a19$ = "x" Then a19$ = $58
If a19$ = "y" Then a19$ = $59
If a19$ = "z" Then a19$ = $5A
EndIf 
If blen$ > 19
If a20$ = "a" Then a20$ = $41
If a20$ = "b" Then a20$ = $42
If a20$ = "c" Then a20$ = $43
If a20$ = "d" Then a20$ = $44
If a20$ = "e" Then a20$ = $45
If a20$ = "f" Then a20$ = $46
If a20$ = "g" Then a20$ = $47
If a20$ = "h" Then a20$ = $48
If a20$ = "i" Then a20$ = $49
If a20$ = "j" Then a20$ = $4A
If a20$ = "k" Then a20$ = $4B
If a20$ = "l" Then a20$ = $4C
If a20$ = "m" Then a20$ = $4D
If a20$ = "n" Then a20$ = $4E
If a20$ = "o" Then a20$ = $4F
If a20$ = "p" Then a20$ = $50
If a20$ = "q" Then a20$ = $51
If a20$ = "r" Then a20$ = $52
If a20$ = "s" Then a20$ = $53
If a20$ = "t" Then a20$ = $54
If a20$ = "u" Then a20$ = $55
If a20$ = "v" Then a20$ = $56
If a20$ = "w" Then a20$ = $57
If a20$ = "x" Then a20$ = $58
If a20$ = "y" Then a20$ = $59
If a20$ = "z" Then a20$ = $5A
EndIf 
While Not KeyHit(1)
		api_keybd_event(a1$,0,0,0)
		api_keybd_event(a1$,0,2,0)
		If blen$ > 1
		api_keybd_event(a2$,0,0,0)
		api_keybd_event(a2$,0,2,0)
		EndIf 
		If blen$ > 2
		api_keybd_event(a3$,0,0,0)
		api_keybd_event(a3$,0,2,0)
		EndIf 
		If blen$ > 3
		api_keybd_event(a4$,0,0,0)
		api_keybd_event(a4$,0,2,0)
		EndIf 
		If blen$ > 4
		api_keybd_event(a5$,0,0,0)
		api_keybd_event(a5$,0,2,0)
		EndIf 
		If blen$ > 5
		api_keybd_event(a6$,0,0,0)
		api_keybd_event(a6$,0,2,0)
		EndIf 
		If blen$ > 6
		api_keybd_event(a7$,0,0,0)
		api_keybd_event(a7$,0,2,0)
		EndIf 
		If blen$ > 7
		api_keybd_event(a8$,0,0,0)
		api_keybd_event(a8$,0,2,0)
		EndIf 
		If blen$ > 8
		api_keybd_event(a9$,0,0,0)
		api_keybd_event(a9$,0,2,0)
		EndIf 
		If blen$ > 9
		api_keybd_event(a10$,0,0,0)
		api_keybd_event(a10$,0,2,0)
		EndIf 
		If blen$ > 10
		api_keybd_event(a11$,0,0,0)
		api_keybd_event(a11$,0,2,0)
		EndIf 
		If blen$ > 11
		api_keybd_event(a12$,0,0,0)
		api_keybd_event(a12$,0,2,0)
		EndIf 
		If blen$ > 12
		api_keybd_event(a13$,0,0,0)
		api_keybd_event(a13$,0,2,0)
		EndIf 
		If blen$ > 13
		api_keybd_event(a14$,0,0,0)
		api_keybd_event(a14$,0,2,0)
		EndIf 
		If blen$ > 14
		api_keybd_event(a15$,0,0,0)
		api_keybd_event(a15$,0,2,0)
		EndIf 
		If blen$ > 15
		api_keybd_event(a16$,0,0,0)
		api_keybd_event(a16$,0,2,0)
		EndIf 
		If blen$ > 16
		api_keybd_event(a17$,0,0,0)
		api_keybd_event(a17$,0,2,0)
		EndIf 
		If blen$ > 17
		api_keybd_event(a18$,0,0,0)
		api_keybd_event(a18$,0,2,0)
		EndIf 
		If blen$ > 18
		api_keybd_event(a19$,0,0,0)
		api_keybd_event(a19$,0,2,0)
		EndIf 
		If blen$ > 19
		api_keybd_event(a20$,0,0,0)
		api_keybd_event(a20$,0,2,0)
		EndIf 
		Delay time$
Wend

Last edited 2011

Matty

(Posted 2011) [#5]

Learn to use loops. A simple "for" loop from the start of the input string to the end of the input string would shorten this as a basic starting point.

Charrua

(Posted 2011) [#6]

try something like this:

AppTitle "Auto Typer V.1"
Graphics 400,200,16,2
Print "Welcome to the Auto Typer."
Print ""
Print "What would you like to be autotyped?"
ainput$ = Input("")
blen$ = Len(ainput$)

time$ = Input("Repeat per seconds (ex. 1 sec = 1000): ")
a1$ = Mid$(ainput$,1,1)

For i=1 To blen
	CharToType = Asc(Mid(ainput,i,1))
	Print CharToType + " " + Chr(CharToType)
	api_keybd_event(CharToType,0,0,0)
	api_keybd_event(CharToType,0,2,0)
	Delay time$
Next

End

there have no limit on the Len of the string
the loop (For..Next) get each of the "Mid" characters using the "i" variable as an index in the ainput string
the Asc() function is used to convet the string with one character returned by Mid$ to an Ascii number required by api_keybd_event.
the print sentence is present only to see what is happening, if you exclude this sentence then ONLY 6 instructions are required to do the job

YES LOOPS ARE GOOD!

Juan

Rob the Great

(Posted 2011) [#7]

Kind of a noob question, but what's an auto typer? All that I can find on Google is that it's a program that repeats a message you type in. Is there some sort of advantage or cheat you can get with being able to repeat a string? A lot of the searches tied into RuneScape, but I'm not seeing how an auto typer could give anyone the upper edge in a game.

Kryzon

(Posted 2011) [#8]

It could be used to scare someone. Like they are writing in Word or something and it starts typing an automatic message "Hey [name], you are the chosen one. Welcome to the matrix."

Rob the Great

(Posted 2011) [#9]

Oh, I get it. It's not a text inserter, it's a program that similates typing. Haha, the matrix idea is pretty clever. I might have to try that one of these days.

Kryzon

(Posted 2011) [#10]

I don't know. I had it done to me and it wasn't a pleasurable experience - forgot I left UltraVNC on and my dad and sis thought it'd be funny.

Another funny text to trick the person could be "... hello? is anyone there? I'm trapped in the computer!"