新浪网站验证码获取问题

[amwdgv]

地址 http://nongye.sina.com.cn/z/ncp60/index.shtml

验证码 地址 http://survey.finance.sina.com.cn/auth_number.php?survey=16ada1253242145ad371405a7976

新开一个窗口 得不到验证码空白页

[wintergoes]

http://survey.finance.sina.com.cn/auth_number.php?survey=73c56125324229294371405412a4
用这好像没有问题

[amwdgv]

显示空白，没内容

[wintergoes]

打开后,点看不清图片,换了另一张图片,地址类似
http://survey.finance.sina.com.cn/auth_number.php?survey=73c56125324508594371405412a4&t=1253245150734
然后用下面的代码从缓存主获取图片

uses wininet;

procedure TForm1.FormCreate(Sender: TObject);
var
  localFile: string;
  cacheInfo: PInternetCacheEntryInfoA;
  bufsize: Cardinal;
begin
  bufsize := 65535;
  cacheInfo := nil;
  GetUrlCacheEntryInfo('http://survey.finance.sina.com.cn/auth_number.php?survey=73c56125324495894371405412a4&t=1253245019265', cacheinfo^, bufsize);
  GetMem(cacheInfo, bufsize);
  if (GetUrlCacheEntryInfo(PChar('http://survey.finance.sina.com.cn/auth_number.php?survey=73c56125324495894371405412a4&t=1253245019265'), cacheInfo^, bufsize)) then
      showmessage(cacheinfo^.lpszLocalFileName)
  else
  begin
    ShowMessage('没有缓存.');
  end;
end;

[wintergoes]

buffsize:=65535;
改成
buffsize:=0;就行

[amwdgv]

如何取下一张 get方法取不到数据

[wintergoes]

模拟点那个链接

[amwdgv]

[Quote=引用 6 楼 wintergoes 的回复:]
模拟点那个链接
[/Quote]

模拟 ??

[amwdgv]

[Quote=引用 7 楼 amwdgv 的回复:]
引用 6 楼 wintergoes 的回复:
模拟点那个链接


模拟  ??
[/Quote]

var
doc:IHTMLDocument2;
elem : IHTMLElement;

doc := ihtmldocument2(WebBrowser1.Document);
elem := doc.all.item('标签ID',i);
elem.click

???