Delphi中点击网页弹出的Alert对话框的确定按钮
来源:互联网 发布:淘宝美工网上兼职招聘 编辑:程序博客网 时间:2024/05/18 02:22
实现的方法有很多,一般都是使用Windows API函数遍历窗口,查找指定标题的窗口,然后从该窗口查找确定按钮,向该按钮发送鼠标消息进行模拟点击。由于IE8由Alert弹出的网页对话框的标题是“来自网页的消息”,而IE6由Alert弹出的网页对话框的标题是“Microsoft Internet Explorer”,所以本文没有按查找窗口标题方法获取窗口句柄。注意到不管IE哪个版本,IE窗口的类名都是“IEFrame”,而网页对话框的父窗口是IE窗口,所以本文是根据父窗口的类名是不是IEFrame来判断窗口是不是网页对话框,以下代码点击网页弹出的Alert对话框和Confirm对话框的“确定”按钮,并用Label1控件显示网页对话框的消息内容:
procedure TForm1.Button1Click(Sender: TObject);
var
hIE, hDlg, hBtn, hStatic:HWND;
Text: array[0..255] of char;
begin
hDlg := GetWindow(Handle, GW_HWNDFIRST);
While hDlg <> 0 do
begin
hIE := GetParent(hDlg);
if GetClassName(hIE, Text, 255) > 0 then //获取父窗口类名
if Text = 'IEFrame' then //父窗口为IE窗口
begin
hBtn := FindWindowEx(hDlg, 0, nil, '确定'); //查看确定按钮
if hBtn <> 0 then
begin
hStatic := FindWindowEx(hDlg, 0, 'Static', nil);
hStatic := FindWindowEx(hDlg, hStatic, 'Static', nil);
if GetWindowText(hStatic, Text, 255) > 0 then
Label1.Caption := Text;
Sleep(100);
SendMessage(hBtn, $00F5, 0, 0); //第一次点击使确定按钮获取焦点
Sleep(100);
SendMessage(hBtn, $00F5, 0, 0); //第二次点击击中确定按钮
end;
end;
hDlg:=GetWindow(hDlg,GW_HWNDNEXT);
end;
end;
- Delphi中点击网页弹出的Alert对话框的确定按钮
- QT的一个奇怪问题,设置了Qt::Tool后,点击弹出对话框的确定取消按钮,程序直接退出
- iPad点击按钮弹出alert对话框崩溃
- android Dialog的确定按钮点击后不取消对话框
- android Dialog的确定按钮点击后不取消对话框
- Android 点击AlertDialog上的确定和取消按钮,使对话框不消失
- Jquery点击按钮弹出alert
- MFC中点击按钮弹出对话框
- MFC中点击按钮弹出对话框
- 点击按钮弹出对话框
- 点击按钮弹出对话框
- 点击按钮,弹出对话框
- Delphi_Webbrowser中自动点击Alert弹出窗口中的按钮
- C#MessageBox弹出的确认对话框点击确定按钮 ,要执行某个操作
- 点击按钮后弹出新的对话框
- Delphi中WebBrowser拦截网页Alert对话框消息
- 点击按钮弹出网页
- 点击按钮Alert弹出遮罩层效果的提示框代码
- 在csdn写技术博客吧,哈哈哈
- k-d tree算法的研究
- 禁用TwebBrowser右键
- linux安装quickbuild5.1.0和初始化配置
- 自定义Dialog悬浮实现登录框
- Delphi中点击网页弹出的Alert对话框的确定按钮
- 浅谈java内存模型
- javascript--DOM
- JUnit3 与 JUnit4 的区别
- DWZ HTML扩展
- TWebBrowser禁止弹出Alert对话框
- iOS中的下拉刷新SVPullToRefresh
- resin下webapps路径无法删除问题(自动恢复)
- 触发式电子邮件营销 掌握秘诀出奇制胜