Problemas con el Findwindows() vb.net

Iniciado por papus, 16 Marzo 2014, 16:43 PM

0 Miembros y 1 Visitante están viendo este tema.

papus

Hola muchachos tengo problema con esta simple funcion , pk la verdad no se q pasa, en windoes 8 funciona parfectamente, pero en windows xp, siempre me tira como la ventana encontrada, aún asi este cerrada

Código (vbnet) [Seleccionar]
Public Class Form1

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strCaption As String, lhWnd As Long

        'Exact caption of the window:
        strCaption = "Log In"
        lhWnd = FindWindow(#32770, strCaption)

        'if the result is 0, window was not found:
        If lhWnd = 0 Then
            MsgBox("Could not find  ...")
        Else
            MsgBox("  found: " & lhWnd)
        End If
    End Sub
End Class


EL tipo class de la ventana es la coreccta m tambien eh probado con vbnullstring pero nada

La ventana es una sub ventana de un proceso, es decir
abres el programa, luego le das a un BOTTON llamado  log in, y te activa otra ventana, esa es la que quiero interceptar "llamada Log In"  como dije en win xp no funciona la funcion iF siempre me vota como valor encontrada,