WebBrowser自动填充打开文件对话框

WebBrowser自动填充文件选择框

最新推荐文章于 2019-04-25 16:35:17 发布

weixin_30408739

最新推荐文章于 2019-04-25 16:35:17 发布

阅读量130

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/honeynm/p/4309716.html

WebBrowser自动填充打开文件对话框

在使用WebBrowser编写自动表单填写软件的时候，不知道大家是否遇到国填写文件选择表单的情况。遇到这种情况的时候，无法直接队Html元素赋值，必须模拟手工选择的办法（是否有其它解决办法，不得而知），下面我们来说一下我的解决办法，如下：

1、先说一下正常表单的填写方式，在Delphi+WebBrowser的环境下，可采用如下代码：

 
     
           WebBrowser
           .
           OleObject
           .
           document
           .
           all
           .
           item(
           'XXX'
           , 
           0
           ).value :=xxx;
          

    

2、针对于文件选择表单，我们可以先模拟一下点击，打开文件选择对话框:

 
     
           WebBrowser
           .
           OleObject
           .
           document
           .
           all
           .
           item(
           'click'
           , 
           0
           ).value;
          

    

3、然后我们采用枚举子窗体的办法，找到文件输入位置，及"确定"按钮，以模拟选择文件：

 
           //...
          
           function 
           EnumProc(Hwnd: THandle; LB: 
           LongInt
           ): 
           Boolean
           ; stdcall;
          
           //...
          
           function 
           EnumProc(Hwnd: THandle; LB: 
           LongInt
           ): 
           Boolean
           ; stdcall;
          
           var 
           CName: 
           array
           [
           0..255
           ] 
           of 
           char
           ;
          
           path: 
           string
           ;
          
           i: 
           integer
           ;
          
           begin
          
           GetClassName(Hwnd, CName, 
           255
           );
          
           if 
           CName = 
           'Edit' 
           then
          
           begin
          
           path := extractfilepath(Application
           .
           ExeName) + 
           '检索\' + nameStr + '
           .bmp';
          
           for 
           i := 
           1 
           to 
           length(path) 
           do
          
           begin
          
           PostMessage(Hwnd, WM_CHAR, WPAram(path[i]), 
           1
           );
          
           end
           ;
          
           //次数模拟选择文件，就是将文件的位置填写到选择框内。
          
           end
           ;
          
           if 
           (TName = 
           '打开(&O)'
           ) 
           or 
           (TName =
           '确定'
           ) 
           then
          
           begin
          
           PostMessage(Hwnd, WM_LBUTTONDOWN, 
           0
           , 
           0
           );
          
           PostMessage(Hwnd, WM_LBUTTONup, 
           0
           , 
           0
           );
          
           //此处模拟点击
          
           end
           ;
          
           Result := 
           True
           ;
          
           end
           ;
          
           //...
          
           Procedure 
           FindWin();
           //调用
          
           var 
           Hwnd:THandle;
          
           begin
          
           hwnd := FindWindow(
           nil
           , Title);
          
           //Title为文件选择窗口标题
          
           if 
           Hwnd <> 
           0 
           then
          
           begin
          
           EnumChildWindows(Hwnd, @EnumProc, lp);
          
           end
           ;
          
           end
           ;