使用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(1);
end;

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