Problem with webbrowser cotrol

[ganav]

Hello,
I use a webbrowser control in my program and sometimes I navigate to a site where I get a message box with "ok" and "cencel" buttons.
Is there a way to ignore this message? or maybe somehow send a command to exit that message box.

Thanks!

[HanneSThEGreaT]

Something like :

Option Explicit On
Imports System
Imports System.Text
Imports System.Runtime.InteropServices

Public Class Form1

    Private Delegate Function EnumWindowCallbackDelegate(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

    Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumWindowCallbackDelegate, ByVal lParam As IntPtr) As Boolean

    Private Declare Auto Function GetWindowTextLength Lib "user32" (ByVal hWnd As IntPtr) As Integer
    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer
    Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As IntPtr) As Boolean
    Private Declare Function GetParent Lib "user32" (ByVal hWnd As IntPtr) As IntPtr

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
    Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
    Private Declare Function GetAncestor Lib "user32" (ByVal hwnd As Long, ByVal gaFlags As UInteger) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As IntPtr
    Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String) As IntPtr

    Private Function EnumWindowsCallbackFunction(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

        If IsWindowVisible(hWnd) And GetParent(hWnd) = IntPtr.Zero Then
            Dim buffer As StringBuilder = New StringBuilder(GetWindowTextLength(hWnd) + 1)
            GetWindowText(hWnd, buffer, buffer.Capacity)
            Dim windowText As String = buffer.ToString()
            If windowText.Contains("Windows Internet Explorer") Then
                Dim wnd1 As IntPtr
                Dim wnd2 As IntPtr
                wnd2 = FindWindowEx(hWnd, 0, "Button", "OK")

                Return False
            End If
        End If
        Return True
    End Function

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cb As New EnumWindowCallbackDelegate(AddressOf EnumWindowsCallbackFunction)
        EnumWindows(cb, IntPtr.Zero)
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cb As New EnumWindowCallbackDelegate(AddressOf EnumWindowsCallbackFunction)
        EnumWindows(cb, IntPtr.Zero)
    End Sub
End Class

[ganav]

It will be great if you could just explain what does this code do, and how can I use it.
(I know when this message pops up, after a certain event)

[dglienna]

Open the app, after opening IE. If the OK box is there, it will click it, as soon as the Enum() function fires a callback, which happens when the main window of IE is open, and it finds the OK button.

Put a breakpoint in the code, and then start things. When it clicks the button, it will break