How do you make Get Box as your image program. It's really cool.
Otto wrote:Hello,
this is what I would need for my application.
Thanks in advance
Otto
Otto wrote:Hello,
this is what I would need for my application.
Thanks in advance
Otto
i have a 310 Miix and it have 64 Bit OSSilvio.Falconi wrote:I have Lenovo MIIX320 and the test sample of Navarro not run here
I cannot see the kyboard of windows
nothing with osk or oskb
Code: Select all | Expand
METHOD DXE_KbWin:SendKey( cKeys, lShift, lCtrl, lAlt, lAltGR )LOCAL i := 0LOCAL nCode := 0 DEFAULT lShift TO .F. DEFAULT lCtrl TO .F. DEFAULT lAlt TO .F. DEFAULT lAltGR TO .F. IF cKeys # NIL ::SetTheFocus() // App <-> OSK IF VALTYPE( cKeys ) == "C" // for each Key in String FOR i := 1 TO LEN( cKeys ) // single key nCode := GetVirtualKeyCode( cKeys[ i ], @lShift, @lCtrl, @lAlt, @lAltGR ) IF lShift keybd_event( VK_SHIFT, 0, 0, 0 ) ENDIF IF lCtrl keybd_event( VK_CONTROL, 0, 0, 0 ) ENDIF IF lAlt keybd_event( VK_MENU, 0, 0, 0 ) ENDIF IF lAltGR keybd_event( VK_RMENU, 0, 0, 0 ) ENDIF // now send "the" key keybd_event( nCode, 0, 0, 0 ) keybd_event( nCode, 0, KEYEVENTF_KEYUP, 0 ) // clean up IF lAltGR keybd_event( VK_RMENU, 0, KEYEVENTF_KEYUP, 0 ) lAltGR := .F. ENDIF IF lAlt keybd_event( VK_MENU, 0, KEYEVENTF_KEYUP, 0 ) lAlt := .F. ENDIF IF lCtrl keybd_event( VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 ) lCtrl := .F. ENDIF IF lShift keybd_event( VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 ) lShift := .F. ENDIF NEXT ELSEIF VALTYPE( cKeys ) == "N" // NumPad ( hide/show ) ...
Code: Select all | Expand
FUNCTION GetVirtualKeyCode( cChar, lShift, lCtrl, lAlt, lAltGR )LOCAL nCodeLOCAL nHiByte nCode := VkKeyScanA( ASC( cChar ) ) nHiByte := HiByte( nCode ) lShift := ( nHiByte = 1 ) lCtrl := ( nHiByte = 2 ) lAlt := ( nHiByte = 4 ) lAltGR := ( nHiByte = 6 )RETURN LoByte( nCode )DLLFUNCTION VkKeyScanA( cChar ) USING STDCALL FROM USER32.DLL