![]() |
KnowBrainer Speech Recognition | ![]() |
Topic Title: Held down keys won't release Topic Summary: Created On: 11/16/2020 07:54 PM Status: Post and Reply |
|
![]() |
![]() |
- TheCyborgManatee | - 11/16/2020 07:54 PM |
![]() |
![]() |
- Edgar | - 11/17/2020 11:17 AM |
![]() |
![]() |
- monkey8 | - 11/21/2020 06:03 AM |
![]() |
![]() |
- monkey8 | - 11/24/2020 02:32 PM |
![]() |
|
when I say "shift click" […] my cursor will be immediately pinned to the upper left When first published, the Hold/Release key/button scripts had a typo error which would have caused your first problem. It sounds like your "Hold" command is working properly; just for completeness it should look something vaguely like this: Sub Main If ListVar1 = "WINDOWS Key" Then keybd_event(VK_LWIN,0,0,0)
End Sub The "Release" command should look something like this: Sub Main If ListVar1 = "WINDOWS Key" Then keybd_event(VK_LWIN,0, 2,0) End Sub Note that at the end of each line there is a series of comma separated numerals; for the "Hold" command they should all be 0s, for the "Release" command the middle should be a 2. Type POINT x As Long End Type Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINT) As Long Sub Main Dim z As POINT GetCursorPos z 'Get cursor's current Coordinates End Sub Note that, for me, the line which starts out with "Declare Function" and ends with "As Long" is all on one line; if it is broken up all but the last line must end with a "_". Also, the word POINT might be different in your version but it doesn't matter as long as it is consistent in all three locations in the code. ------------------------- -Edgar |
|
|
|
FuseTalk Standard Edition v4.0 - © 1999-2021 FuseTalk™ Inc. All rights reserved.