妖哥

1 WebBrowser如何处理弹出信息框

Hwnd := FindWindow(PChar('#32770'), PChar('Microsoft Internet Explorer'));
if Hwnd <> 0 then    SendMessage(Hwnd, WM_CLOSE, 0, 0);

2 WebBrowser如何选中复选框及点击按钮

WebBrowser1.OleObject.Document.all.item('DataList1_ctl10_CheckBox1').checked := true;
WebBrowser1.OleObject.Document.all.item('Button1').click;