Código
Option Explicit Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private P_HANDLE As Long Private P_PID As Long Private Const PROCESS_ALL_ACCESS = &H1F0FFF ' constantes para SendMessage Private Const WM_LBUTTONDBLCLK As Long = &H203 ' izquierdo doble click Private Sub Command1_Click() If FindWindow(vbNullString, "BlueStacks App Player for Windows (beta-1)") Then GetWindowThreadProcessId FindWindow(vbNullString, "BlueStacks App Player for Windows (beta-1)"), P_PID P_HANDLE = OpenProcess(PROCESS_ALL_ACCESS, False, P_PID) End If Timer1.Interval = 500 End Sub Private Sub Form_Unload(Cancel As Integer) CloseHandle P_HANDLE End Sub Private Sub Timer1_Timer() Call SendMessage(P_HANDLE, WM_LBUTTONDBLCLK, 1, ByVal 0&) End Sub
saludos flamer y haber quien me hecha una mano