Como enviar pulsacion de una tecla a determinada ventana

[..::Carlos::..]

Hola gente como an estado
haber si me pueden pegar una ayuditana

Necesito enviar una pulsacion de una tecla a una ventana del Internet Explorer por ejemplo:

actualizar una ventana de IE por medio de vb6

Gracias

[seba123neo]

Hola, algo asi

Código: [Seleccionar]

Option Explicit
 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const VK_RETURN = &HD
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_F5 = &H74

Private Sub Command1_Click()
    Call PostMessage(&H30312, WM_KEYDOWN, VK_F5, 0&)
    Call PostMessage(&H30312, WM_KEYUP, VK_F5, 0&)
End Sub
en &H30312, tenes que poner el Handle de la ventana del IE, lo podes obtener con la api FindWindow...

saludos.

[..::Carlos::..]

Gracias bro justo lo que andaba buscando
 

[E N T E R]

Aca un poco modificado el codigo de seba123neo para encontrar el Handle.

Código: [Seleccionar]

Private Const MSIExplorer = "IEFrame"

Private Const VK_RETURN = &HD
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_F5 = &H74

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim xHandle As Long

Private Sub BuscarHandle(ipClase As String)
    xHandle = FindWindow(ipClase, vbNullString)
End Sub

Private Sub Command1_Click()

    BuscarHandle MSIExplorer
       
    Call PostMessage(xHandle, WM_KEYDOWN, VK_F5, 0&)
    'Call PostMessage(xHandle, WM_KEYUP, VK_F5, 0&)
   
End Sub