 |  |  |
|
|
|
 
|
|
Can't find what you wanted?
|
|
|
|
|
|
 |
|
 |
|
|
| | |
|
|
|
Note: Most programs will need to be active before they can recieve key presses. You can use AppActivate() for this.
Put these lines at the top of your form's source code in the declarations section:
CODE:
| 1 | | | Const KEYEVENTF_EXTENDEDKEY = &H1 | | 2 | | | Const KEYEVENTF_KEYUP = &H2 | | 3 | | | Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) |
|
Now put this function in below it:
CODE:
| 4 | | | Private Function PressKey(KeyCode As KeyCodeConstants) | | 5 | | | keybd_event KeyCode, 0, 0, 0 ' press the key | | 6 | | | keybd_event KeyCode, 0, KEYEVENTF_KEYUP, 0 ' release the key | | 7 | | | End Function |
|
Now, all you have to do is call the function! Just do it like this:
CODE:
To press the A key.
Heres a bonus function you can add in, after the other function:
CODE:
| 9 | | | Private Function PressString(strString) | | 10 | | | strString = UCase(strString) | | 11 | | | For i = 1 To Len(strString) | | 12 | | | a = Mid(strString, i, 1) | | 13 | | | b = Asc(a) | | 14 | | | PressKey (b) | | 15 | | | Next i | | 16 | | | End Function |
|
This will allow you to send a complete string. For example:
CODE:
| 17 | | | PressString "Hello World" |
|
Note: As you are simulating key strokes, If caps lock is on, all the keys will be capitals. With this code, all the keys will be capitals anyway. Not sure why, but theres a problem with small letters.
|
|
|
|
|
|
|
|
|
