zoukankan      html  css  js  c++  java
  • 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, 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;
    

    博文链接:https://blog.csdn.net/diligentcat/article/details/17242739

  • 相关阅读:
    数组中只出现一次的数字
    平衡二叉树
    二叉树的深度
    数字在排序数组中出现的次数
    两个链表的第一个公共结点
    数组中的逆序对
    第一个只出现一次的字符
    丑数
    新浪微博授权时出现"关注 *** 的微博"
    Bear 實驗室: 什麼是Git flow ? 如何在SourceTree使用Git flow管理開發!
  • 原文地址:https://www.cnblogs.com/guorongtao/p/11504742.html
Copyright © 2011-2022 走看看