实现的方法有很多,一般都是使用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,128)">0, nil,128)">'确定'); //查看确定按钮
if hBtn <> 0 then
begin
hStatic := findwindowex(hDlg,128)">'Static', nil);
hStatic := findwindowex(hDlg, hStatic, nil);
if GetwindowText(hStatic,128)">0 then
Label1.Caption := Text;
Sleep(100);
SendMessage(hBtn,128)">$00F5,128)">0); //第一次点击使确定按钮获取焦点
Sleep(//第二次点击击中确定按钮
end;
end;
hDlg:=Getwindow(hDlg,GW_HWNDNEXT);
end;
end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。