1:
2:
3:
4:
5:
6:
7:
8:
9:

        stream := TStringList.Create;
      Stream.Add('login='+Email.Text);
      Stream.Add('pass='+Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('%3E%3E+Login_x=33');
      //Stream.Add('>> Login_x=33');

if (Pos('Logout',s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');					

1:
2:
3:

    IdHttp1.HandleRedirects := true;
      IdHTTP1.AllowCookies:=true;
      IdHTTP1.CookieManager:=IdCookieManager1;					

1:
2:

      if (Pos(Email.Text,s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

 
var sHTMLCode: String;
  iPos1, iPos2: Integer;
  sFormKey, sIV, sCheckCode: String;
  slParams: TStringList;
  ReplyData :TStringStream;
begin
  slParams :=TStringList.Create;
  sHTMLCode :=IdHTTP.Get('http://www.studivz.net/Messages/Inbox/p/1');
  iPos1 :=Pos('readInboxMessage" content="formkey=', sHTMLCode) +35;
  iPos2 :=PosEx('&', sHTMLCode, iPos1);
  sFormKey :=Copy(sHTMLCode, iPos1, iPos2-iPos1);
  iPos1 :=PosEx('iv="', sHTMLCode, iPos2)+3;
  iPos2 :=PosEx('"', sHTMLCode, iPos1);
  sIV :=Copy(sHTMLCode, iPos1, iPos2-iPos1);
  iPos1 :=PosEx('name="checkcode" value="', sHTMLCode, iPos2)+24;
  iPos2 :=PosEx('"', sHTMLCode, iPos1);
  sCheckCode :=Copy(sHTMLCode, iPos1, iPos2-iPos1);

  slParams.Add('formkey='+sFormKey);
  slParams.Add('iv='+sIV);
  slParams.Add('messageID='+'58497883');
 // slParams.Add('checkcode='+sCheckCode);

  ReplyData := TStringStream.Create('');
  idhttp.Post('http://www.studivz.net/Messages/Inbox/p/1', slParams, ReplyData);
  slParams.Free;


  memlog.Lines.Add(idhttp.get('http://www.studivz.net/Messages/Inbox/p/1'));
  memlog.Lines.SaveToFile('c:\memlg.txt');
  memlog.Text:= ReplyData.datastring;
  memlog.Lines.SaveToFile('c:\replay.txt');
  ReplyData.Dispatch();
  ReplyData.Free;
end;