delphi模拟论坛登录

来源：互联网发布：mac版工程绘图软件编辑：程序博客网时间：2024/04/28 22:54

procedure TForm1.Button1Click(Sender: TObject);
var
HTTP:TIdHTTP;
Cookie:TIdCookieManager;
parmList:TStringList;
resp:TStringStream;
formHash:string;
begin
Button1.Enabled := False;
//登录
HTTP := TIdHTTP.Create(nil);
Cookie := TIdCookieManager.Create(HTTP);

formHash := HTTP.Get('http://bbs.hefei.cc/member.php?mod=logging&action=login&referer=http://bbs.hefei.cc/');
Delete(formHash,1,Pos('name="formhash"', formHash)+22);
Delete(formHash,9,Length(formHash));

parmList := TStringList.Create;
resp := TStringStream.Create('');

parmList.Add('formhash='+ formHash);
parmList.Add('answer=');
parmList.Add('loginfield=email');
parmList.Add('password=账号密码');
parmList.Add('questionid=0');
parmList.Add('referer=http://bbs.hefei.cc/');
parmList.Add('username=账号');

HTTP.Post('http://bbs.hefei.cc/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=LBIOM&inajax=1',parmList,resp);

if Pos('succeedmessage',resp.DataString)<0 then
    begin
      ShowMessage('Login Err');
      Exit;
    end;

end;