VB2005 处理网页弹出窗口！

VB2005 处理网页弹出窗口！
   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal hWnd1 As String, ByVal hWnd2 As String, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd1 As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

    Private Const WM_LBUTTONDOWN = &H201
    Private Const WM_LBUTTONUP = &H202

--------

        Dim hWnd As Long
        Dim hWnd1 As Long
        hWnd1 = FindWindow("網頁訊息", vbNullString)
        hWnd = FindWindowEx(hWnd1, 0, "Button", "確定")

        SendMessage(hWnd, WM_LBUTTONDOWN, 0, 0)------无法确定送出
        SendMessage(hWnd, WM_LBUTTONUP, 0, 0)--------------无法确定送出
--------------------编程问答--------------------  aa=SendMessage(hWnd, WM_LBUTTONDOWN, 0, 0)


 根据aa的返回值确定是否送出

我看关键是hWnd是否为0，为0的话说明没有得到句柄
--------------------编程问答-------------------- 先不说其它，vb2005中的数据类型与vb6不同，long在vb6中32位，而vb2005中是64位，所以你先将vb2005中的api声明中的long，改为integer.... --------------------编程问答-------------------- 我改为integer 是不会出现错误但是还是不能送出 --------------------编程问答-------------------- 聽說SendMessage在VB2005無效

补充：VB ,  API