aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

40
Task/Simulate-input-Keyboard/FreeBASIC/simulate-input-keyboard.basic Normal file
View file

@ -0,0 +1,40 @@
#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_))