Delphi_Webbrowser中自动点击Alert弹出窗口中的按钮

原创 2013年12月02日 20:00:44
function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;
var
  hChild: hwnd;
begin
  Result := True;
  if GetParent(H) = HMainForm then begin
    hChild := FindWindowEx(H, 0, PChar('Button'), PChar('OK'));
    if hChild > 0 then SendMessage(hChild, BM_Click, 0, 0);
  end;

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  EnumWindows(@CallBackProc, Self.Handle);
end;

相关文章推荐

Delphi_WebBrowser禁止弹出Alert对话框

Webbrowser1的OnDocumentComplete事件响应代码可以拦截网页Alert弹出的对话框,代码: procedure TForm1.WebBrowser1DocumentCompl...
  • wbryfl
  • wbryfl
  • 2013年12月02日 20:07
  • 3318

delphi禁止webbrowser弹出窗口或者脚本错误

delphi禁止webbrowser弹出窗口或者脚本错误 webbrowser1.silent:=true; //屏蔽脚本错误 procedure TForm1.WebBrowser1Ne...

Delphi WebBrowser始终在当前窗口打开新网页

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;   var Cancel: WordBo...
  • wbryfl
  • wbryfl
  • 2013年12月02日 19:36
  • 4407

WebBrowser自动点击弹出提示框alert、弹出对话框confirm、屏蔽弹出框、屏蔽弹出脚本错误的解决办法

WebBrowser自动点击
  • xsm360
  • xsm360
  • 2015年04月23日 14:07
  • 668

C#调用迅雷的时候 自动模拟点击”下载按钮” 关闭弹出窗口

免费标准下载:http://www.biaozhuns.com/ 网上 关于 “不弹出《建立任务》的对话框的方法 在迅雷5.9貌似不适用了” 那么我改了一下网上的“监听方式”来进行模拟点击 ...
  • god9me
  • god9me
  • 2011年09月02日 15:25
  • 1907

WebBrowser弹出窗口之(三) – alert( ) / confirm( )

    alert/confirm等javascript函数产生的对话框是标准的windows对话框,例如 通过HOOK对话框的初始化消息WM_INITDIALOG,检测其标题是否为“来自网页...
  • Nocky
  • Nocky
  • 2011年03月11日 15:19
  • 1707

点击按钮弹出窗口

  • 2017年07月25日 13:32
  • 44KB
  • 下载

关于点击按钮弹出iframe窗口的前端代码

工作中web前端碰到一些弹出窗口问题:利用iframe解决,优化代码的视觉效果
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi_Webbrowser中自动点击Alert弹出窗口中的按钮
举报原因:
原因补充:

(最多只允许输入30个字)