，如何点击WebBrowser弹出的提示框

求助，怎么点击WebBrowser弹出的提示框?
如题，怎么点击WEBBROWSER弹出的ALERT的提示框？？
或给点儿资料，DELPHI的也中

[解决办法]
VB没办法。因为不支持多线程。
当对话框弹出，程序已经阻塞住了。
需要另外写一个程序。

在那个程序里面：
findwindow()
postmessage(wm_command)

然后主程序来启动它。

[解决办法]
在Timer控件中，查找弹出窗口的标题，然后向其发送WM_CLOSE消息即可关闭。
[解决办法]
下面是delphi源码

Delphi(Pascal) code

  //关闭弹出窗口  hWd := FindWindow(Nil, 'Microsoft Internet Explorer');  If hWd <> 0 Then  begin    SetActiveWindow (hWd);    SendMessage(hWd, WM_CLOSE, 0, 0);    hBd := FindWindowEx (hWd ,0, 'Button', '否(&N)');    SendMessage (hBd, BM_CLICK, 0, 0);    hBd := FindWindowEx (hWd ,0, 'Button', 'No(&N)');    SendMessage (hBd, BM_CLICK, 0, 0);  end;  hWd := FindWindow(Nil, 'Internet Explorer 脚本错误');  If hWd <> 0 Then  begin    SetActiveWindow (hWd);    SendMessage(hWd, WM_CLOSE, 0, 0);  end;