PC Toledo

Código: Selecionar todos

Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, _
   ByVal Wparam As Long, ByVal Lparam As Long) As Long

Public Sub Api_SendKey(hwnd As Long, nKey As Long)

Dim lRetVal As Long
lRetVal = PostMessage(hwnd, WM_KEYDOWN, nKey, 0)
lRetVal = PostMessage(hwnd, WM_KEYUP, nKey, 0)
End Sub

Código: Selecionar todos

#include "hbdyn.ch"

PROCEDURE Main
   LOCAL hWnd, cTexto := "PINDAMONHANGABA", nAscii

   CLS
   hWnd := WindowsApi_FindWindow( "Untitled - Notepad" )
   ? hWnd
   IF hWnd > 0
      FOR nCont = 1 TO Len( cTexto )
         nAscii := Asc( Substr( cTexto, nCont, 1 ) )
         WindowsApi_SendKey( hWnd, nAscii )
      NEXT
   ENDIF
   RETURN NIL

#define WM_KEYDOWN 256
#define WM_KEYUP   257

FUNCTION WindowsApi_SendKey( hWnd, nKey )
   LOCAL nRetVal
   nRetVal := CallWindowsApi( "PostMessageA", "user32.dll", hWnd, WM_KEYDOWN, nKey, 0 )
   nRetVal := CallWindowsApi( "PostMessageA", "user32.dll", hWnd, WM_KEYUP, nKey, 0 )
   RETURN NIL

FUNCTION WindowsApi_FindWindow( cWindowName )
   LOCAL hWnd
   hWnd := CallWindowsApi( "FindWindowA", "user32.dll", NIL, cWindowName )
   IF hWnd == NIL
      hWnd := -1
   ENDIF
   RETURN hWnd

STATIC FUNCTION CallWindowsAPI( cFunctionName, cLib, ... )
   LOCAL hHandleDll, nVar
   hHandleDll := hb_LibLoad( cLib )
   nVar := hb_DynCall( { cFunctionName, hHandleDll, HB_DYN_CALLCONV_STDCALL }, ... )
   hb_LibFree( hHandleDll )
   RETURN nVar