使用EPX Studio 7.0 下载网站验证码

 implementation

 var Document_: DispHTMLDocument; //用于处理网页文档对象
       EPX: IExcelPanelXDisp;

 procedure TForm1.FormShow(Sender: TObject);
 begin
     EPX := ExcelPanelX1.OleObject;        //赋值
     EPX.ActiveDHtml := False;
     EPX.EnableEvent := True;
     EPX.ActiveDHtml := True;
     EPX.Navigate(UserID, True);
     Document_ := EPX.HtmlDocument;
     ViewCode();
 end;

 procedure TForm1.ViewCode(aty :Integer);
 var body,img,range: Variant;
     imgFile: string;
 begin
   img := Document_.getElementById('yzm').nextSibling.nextSibling;
   if aty =  then
   begin
     img.Click();
     this.Sleep();
   end;
   body := Document_.body;
   range := body.createControlRange();
   range.add(img);
   range.execCommand('Copy');
   //获取 Windows 的临时文件夹路径，返回的路径最后不带“\”。
   //获取一个形式如“AA8CBB42-703C-47B9-B959-8E8EBAFA003E” 的 36 位长度的具有“不重复”特征的字符串，一般用于做数据库的 ID 字段内容使用。
   imgFile := this.GetWindowsTempPath + '\' + this.GuidString + '.png';
   this.SaveClipboardToFile(imgFile,);
   if this.FileExists[imgFile] then
   begin
     Image1.Picture.LoadFromFile(imgFile);
     this.DeleteFile(imgFile);
   end;
 end;

 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   EPX.FreeMe;
   if CommandLine._DesignMode = 'False' then
   begin
     this.KillProcess('',,,);
   end;
 end;