vb fondo clic del mouse

¿Privado?Declarar?Función?FindWindowEx?Lib?"user32"?Alias?"FindWindowExA"?(ByVal?hWnd1?As?Long, ?ByVal?hWnd2?As?Long, ?ByVal?lpsz1?As?String, ?ByVal? lpsz2?¿Como?Cadena)?¿Como?Long

¿Privado?¿Declarar?Función?¿Publicar mensaje? "user32"?"PostMessageA"?(ByVal?hwnd?As?Long,?ByVal?wMsg?As?Long,?ByVal?wParam?As?Long,?ByVal?lParam?As?Long)?As?Long

¿Privado?=?&H201?'Botón izquierdo presionado

Privado?Const?WM_LBUTTONUP?=?&H202?'Aparece el botón izquierdo

Privado?Sub?Command1_Click( )

Dim?n?As?Long

n?=?FindWindowEx(0&,?0&,?vbNullString,? "Calculator")

Si ? Entonces

n?=?FindWindowEx(n,?0&,? "Botón",? "5")

Si?n?Entonces

¿Enviar clic? n

Else

MsgBox?"¡Botón 5 no encontrado!"

¿Fin?If

Else

MsgBox?"¡No se encontró la ventana de la calculadora!"

Función?Pública?EnviarClic(hwnd?As?Long)

Publicar Mensaje?hwnd,?WM_LBUTTONDOWN,?0&,?0&

PublicarMensaje?hwnd,?WM_LBUTTONUP, ?0& ,?0&

Fin?Función

Privado?Sub?Form_Load()

Shell?"C:\WINDOWS\ System32\calc.exi System32 \calc .exe",?vbNormalFocus

Fin?Sub

¿Privado?