Cómo simular la entrada del teclado con VB

ivate declara que la función FindWindow Lib "usuario 32" alias "FindWindowA" (ByVal lpClassName es una cadena, ByVal lpWindowName es una cadena) es larga

Función de declaración privada FindWindowEx Lib "user32 "alias" FindWindowExA "(ByVal hwnd 1 es Long, ByVal hWnd2 es Long, ByVal lpsz1 es String, ByVal lpsz2 es String) es Long

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

Constante privada WM_SETTEXT = ampHC

Subcomando privado 1_Click()

Oscuro Misma longitud, misma longitud que dark

shell "notepad .exe", 2 'Abra un bloc de notas y minimícelo.

Hwnd = FindWindow("Notepad", "Untitled-Notepad")' Obtiene el identificador del bloc de notas.

Thwnd = findwindowex (hwnd, 0, "edit", vbnullstring) 'Obtiene el identificador del bloc de notas (donde escribimos).

Sendmessage thwnd, WM_settext, 0, byval "Está bien, dame algunas" palabras en el bloc de notas.

Conector final