Sending simulated keystrokes to other programs can be very useful. In this context, time is a critical point, and I often made the experience that a Delay() at proper places in the program is crucial -- depending on the situation maybe before sending the keystrokes, or afterwards, or somewhere inbetween. In simple programs, the Delay() can be hard coded into the PB program. However, for more advanced programs this is not satisfying.
denotes the number of milliseconds. Here is the changed procedure:
Code: Select all
ProcedureDLL AW_SendKeys (keys.s)
; Sends simulated keystrokes to the active window
Protected r, s, notakey, alted, vk, ctrled, shifted
Protected vk$, s$
For r = 1 To Len(keys)
vk$ = Mid(keys, r, 1)
If vk$ = "{" ; Special key found.
s = FindString(keys, "}", r + 1) - (r + 1) ; Get length of special key.
s$ = Mid(keys, r + 1, s) ; Get special key name.
notakey = #False
Select s$ ; Get virtual key code of special key.
Case "ALTDOWN" : alted = 1 : keybd_event_(#VK_MENU, 0, 0, 0) ; Hold ALT down.
Case "ALTUP" : alted = 0 : keybd_event_(#VK_MENU, 0, #KEYEVENTF_KEYUP, 0) ; Release ALT.
Case "BACKSPACE" : vk = #VK_BACK
Case "CONTROLDOWN" : ctrled = 1 : keybd_event_(#VK_CONTROL, 0, 0, 0) ; Hold CONTROL down.
Case "CONTROLUP" : ctrled = 0 : keybd_event_(#VK_CONTROL, 0, #KEYEVENTF_KEYUP, 0) ; Release CONTROL.
Case "DELETE" : vk = #VK_DELETE
Case "DOWN" : vk = #VK_DOWN
Case "END" : vk = #VK_END
Case "ENTER" : vk = #VK_RETURN
Case "F1" : vk = #VK_F1
Case "F2" : vk = #VK_F2
Case "F3" : vk = #VK_F3
Case "F4" : vk = #VK_F4
Case "F5" : vk = #VK_F5
Case "F6" : vk = #VK_F6
Case "F7" : vk = #VK_F7
Case "F8" : vk = #VK_F8
Case "F9" : vk = #VK_F9
Case "F10" : vk = #VK_F10
Case "F11" : vk = #VK_F11
Case "F12" : vk = #VK_F12
Case "ESCAPE" : vk = #VK_ESCAPE
Case "HOME" : vk = #VK_HOME
Case "INSERT" : vk = #VK_INSERT
Case "LEFT" : vk = #VK_LEFT
Case "PAGEDOWN" : vk = #VK_NEXT
Case "PAGEUP" : vk = #VK_PRIOR
Case "PRINTSCREEN" : vk = #VK_SNAPSHOT
Case "RETURN" : vk = #VK_RETURN
Case "RIGHT" : vk = #VK_RIGHT
Case "SHIFTDOWN" : shifted = 1 : keybd_event_(#VK_SHIFT, 0, 0, 0) ; Hold SHIFT down.
Case "SHIFTUP" : shifted = 0 : keybd_event_(#VK_SHIFT, 0, #KEYEVENTF_KEYUP, 0) ; Release SHIFT.
Case "TAB" : vk = #VK_TAB
Case "UP" : vk = #VK_UP
Default
If Left(s$, 5) = "DELAY" ; ** neu (JL)
Delay(Val(Mid(s$, 6))) ; Führende Leerzeichen stören Val() nicht.
Else
notakey = #True
EndIf
EndSelect
If notakey = #False
If Left(s$, 3) <> "ALT" And Left(s$, 7) <> "CONTROL" And Left(s$, 5) <> "SHIFT" And Left(s$, 5) <> "DELAY"
keybd_event_(vk, 0, 0, 0) : keybd_event_(vk, 0, #KEYEVENTF_KEYUP, 0) ; Press the special key.
EndIf
r = r + s + 1 ; Continue getting the keystrokes that follow the special key.
Else
vk = VkKeyScanEx_(Asc(vk$), GetKeyboardLayout_(0)) ; Normal key found
keybd_event_(vk, 0, 0, 0) : keybd_event_(vk, 0, #KEYEVENTF_KEYUP, 0) ; Press the normal key.
EndIf
Else
vk = VkKeyScanEx_(Asc(vk$), GetKeyboardLayout_(0)) ; Normal key found
If (vk & $0100) <> 0 And shifted = 0 : keybd_event_(#VK_SHIFT, 0, 0, 0) : EndIf ; Due to shifted character.
If (vk & $0200) <> 0 And ctrled = 0 : keybd_event_(#VK_CONTROL, 0, 0, 0) : EndIf
If (vk & $0400) <> 0 And alted = 0 : keybd_event_(#VK_MENU, 0, 0, 0) : EndIf
keybd_event_(vk, 0, 0, 0) : keybd_event_(vk, 0, #KEYEVENTF_KEYUP, 0) ; Press the normal key.
If (vk & $0100) <> 0 And shifted = 0 : keybd_event_(#VK_SHIFT, 0, #KEYEVENTF_KEYUP, 0) : EndIf ; Due to shifted character.
If (vk & $0200) <> 0 And ctrled = 0 : keybd_event_(#VK_CONTROL, 0, #KEYEVENTF_KEYUP, 0) : EndIf
If (vk & $0400) <> 0 And alted = 0 : keybd_event_(#VK_MENU, 0, #KEYEVENTF_KEYUP, 0) : EndIf
EndIf
Next
keybd_event_(#VK_MENU, 0, #KEYEVENTF_KEYUP, 0) ; Release ALT key if user forgot.
keybd_event_(#VK_CONTROL, 0, #KEYEVENTF_KEYUP, 0) ; Release CONTROL key if user forgot.
keybd_event_(#VK_SHIFT, 0, #KEYEVENTF_KEYUP, 0) ; Release SHIFT key if user forgot.
EndProcedure
