41 lines
861 B
Plaintext
41 lines
861 B
Plaintext
#include once "windows.bi"
|
|
|
|
Dim ki(0 To 7) As INPUT_
|
|
|
|
' A
|
|
ki(0).type = INPUT_KEYBOARD
|
|
ki(0).ki.wVk = Asc("A")
|
|
ki(0).ki.dwFlags = 0
|
|
ki(1).type = INPUT_KEYBOARD
|
|
ki(1).ki.wVk = Asc("A")
|
|
ki(1).ki.dwFlags = KEYEVENTF_KEYUP
|
|
|
|
' B
|
|
ki(2).type = INPUT_KEYBOARD
|
|
ki(2).ki.wVk = Asc("B")
|
|
ki(2).ki.dwFlags = 0
|
|
ki(3).type = INPUT_KEYBOARD
|
|
ki(3).ki.wVk = Asc("B")
|
|
ki(3).ki.dwFlags = KEYEVENTF_KEYUP
|
|
|
|
' C
|
|
ki(4).type = INPUT_KEYBOARD
|
|
ki(4).ki.wVk = Asc("C")
|
|
ki(4).ki.dwFlags = 0
|
|
ki(5).type = INPUT_KEYBOARD
|
|
ki(5).ki.wVk = Asc("C")
|
|
ki(5).ki.dwFlags = KEYEVENTF_KEYUP
|
|
|
|
' ENTER (VK_RETURN = &HD)
|
|
ki(6).type = INPUT_KEYBOARD
|
|
ki(6).ki.wVk = VK_RETURN
|
|
ki(6).ki.dwFlags = 0
|
|
ki(7).type = INPUT_KEYBOARD
|
|
ki(7).ki.wVk = VK_RETURN
|
|
ki(7).ki.dwFlags = KEYEVENTF_KEYUP
|
|
|
|
Print "Make the target window active. Sending keys in 3 seconds..."
|
|
Sleep 3000
|
|
|
|
SendInput(Ubound(ki), @ki(0), Len(INPUT_))
|