#DEFINE KEYEVENTF_KEYUP 2 #DEFINE VK_SHIFT 0x10 DECLARE INTEGER SetForegroundWindow IN Win32API; INTEGER hWnd DECLARE INTEGER SetActiveWindow IN Win32API; INTEGER hWnd DECLARE keybd_event IN Win32API; INTEGER bVk, INTEGER bScan,; INTEGER dwFlags, INTEGER dwExtraInfo DECLARE INTEGER ShowWindow IN Win32API; INTEGER hWnd, INTEGER uShow DECLARE INTEGER SetFocus IN Win32API AS SetKeybdFocus; INTEGER hWnd lcsentence = "The quick brown fox jumped over the lazy dogs" lnhWnd = Is_Run32("Notepad") IF lnhWnd > 0 = ShowWindow(lnhWnd, 9) = SetActiveWindow(lnhWnd) = SetForegroundWindow(lnhWnd) = SetKeybdFocus(lnhWnd) FOR lni = 1 TO LEN(lcsentence) lcchar = SUBSTR(lcsentence, lni, 1) llshift = ISUPPER(lcchar) lnchar = ASC(UPPER(lcchar)) IF llshift = keybd_event(VK_SHIFT, 0, 0, 0) ENDIF = keybd_event(lnchar, 0, 0, 0) = keybd_event(lnchar, 0, KEYEVENTF_KEYUP, 0) IF llshift = keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0) ENDIF NEXT ENDIF