لاگین کردن به یک سایت و دریافت اطلاعات از آن [بایگانی]

majidbestgame

پنج شنبه 02 شهریور 1391, 12:52 عصر

سلام خدمت تمامی دوستان عزیز
من میخواسم بدونم چطوری میشه با برنامه ای که نوشتیم به یک سایت لاگین کرد و سپس بتونیم اون سایت و سایر صفحاتش مرور کنیم در حالی که نشون بده لاگین شدی
امیدوارم منظورمو رسونده باشم
من خواستم واسه لاگین کردن از طریق idhttp و متد post استفاده کنم که هر کاری میکنم آخر ش نمیشه که نمیشه...
برای تست من روی همین سایت برنامه نوی هم تسک کردم پارامتر ها را هم ارسال کردم ولی باز لاگین نکرد..به این شکل که مقدار بازگشتی از متد پست رو تو یک memo نشون میده

اینم از کدی که من استفاده کردم
----------------------------------------

function Tform1.PostData:string;
var param:TStringList;
valid:boolean;
url,text:string;

begin
http.HandleRedirects := true;
with http.Request do
begin
UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.4 (KHTML, like Gecko) Chrome/22.0.1229.2 Safari/537.4';
Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Host:='barnamenevis.org';
ContentType:='application/x-www-form-urlencoded';
end;

http.AllowCookies:=true;
http.ReadTimeout := 500;
param:=TStringList.create;
param.Clear;
param.Add('vb_login_username=majidbestgame');
param.Add('vb_login_password=pwd');
//param.Add('login=login');

url:='http://barnamenevis.org/login.php?do=login';
valid:=true;

try
text:=http.Post(url,param);
except
on E:Exception do
begin
valid:=false;
postdata:='Error: '+e.Message;
exit;
end;
end;
if valid then
PostData:= text
else
PostData := '';
end;

ممنون میشم کمکم کنید..واسه مثال هم همین سایت برامه نویس خوبه...
نمیدونم تو ارسال پارامتر ها مشگل دارم یا از جایی دیگست