Operación de teclado y mouse en segundo plano en VB

Un ejemplo consumiría demasiado tiempo: función de declaración privada findwendowex lib "usuario 32" alias "findwendowex a" (byval hwnd 1 as long, byval hwnd2aslong, byval lpsz1asstring, byval lpsz2asstring) aslong.

Función de declaración privada FindWindow Lib "user32 "alias" FindWindowA" (ByVal lpClassName es una cadena, ByVal lpWindowName es una cadena) es larga

Función de declaración privada SendMessage Lib "usuario 32" El alias "SendMessage a" (ByVal hwnd es Long, ByVal wMsg es Long, ByVal wParam es Long, lParam es Any) es Long

Constante privada WM_GETTEXT = amp disco duro (disco duro)

Declaración

Private subform_Load()

Dim Phwnd As Long

Phwnd = FindWindow (vbNullString, " Untitled-Notepad ") 'Obtener el Asa en forma de bloc de notas.

Si Phwnd lt gt entonces 0

A = findwindowex (phwnd, 0, "Edit", vbnullstring)' Obtiene el identificador del cuadro de edición de texto.

Enviar mensaje a&HC2,0,ByVal 'Hola'' Enviar mensaje.

Terminará si...

Conector final

La representación es la siguiente