Delphi中点击网页弹出的Alert对话框的确定按钮

? ? ? ?实现的方法有很多，一般都是使用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;