admin

[网络类] webbrowser 伪装来路


procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
Url, Ref: string;
IEApp: OLEVariant;
begin
Flags := '1';
TargetFrameName := '';
PostData := '';
Url := 'http://localhost/test/referer.asp'; //我本地的表单网页文件
Ref := 'http://XXX.XXXX.com/cachedir/1052/37/98/3798915_5.htm';//这里设置了 referer
Headers := 'Referer: ' + Ref ;
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);//应该是带有 referer的 载入了本地将要提交的表单网页...
end;


#1楼
发帖时间:2016-11-8   |   查看数:0   |   回复数:0
游客组