Thema: Delphi Login via idhttp

Einzelnen Beitrag anzeigen

Crazymodder

Registriert seit: 28. Dez 2006
69 Beiträge
 
#1

Login via idhttp

  Alt 24. Jan 2009, 11:59
Hallo alle zusammen es gibt ja schon reichlich Threads zum Thema, habe auch schon eine Menge probiert aber irgendwie will der Login via IDHTTP nicht klappen.
Vllt. könnt Ihr mir ja helfen.

Der Quelltext der Seite:
Code:
<form method="POST" action="http://url.com/" name="FL">
<input type="hidden" name="op" value="login">
<input type="hidden" name="redirect" value="">
<table>
<tr>
<td>Einloggen:</td><td><input type="text" name="login" value="" class="myForm"></td>
</tr>
<tr>
<td>Passwort:</td><td><input type="password" name="password" class="myForm"></td>
</tr>
</table>

<input type="image" src="http://url.com/images/login.gif">
</form>
Die Seite auf der der Login angezeigt wird heißt so:
Code:
http://url.com/cgi-bin/index.cgi?op=login
Ich habe mir mal die Postdaten mit Tamper im FF angeschaut das sieht dann so aus:
Code:
http://url.com/cgi-bin/index.cgi?op=login&redirect=&login=DERUSERNAME&password=DASPASSWORT&x=35&y=11
Mein Versuch in Delphi den Login zu automatisieren sieht so aus:
Delphi-Quellcode:
var
          slEintrag : TStringList;
          sURL : string;
          begin
            slEintrag := TStringList.Create;
            sURL:='http://url.com/cgi-bin/index.cgi?op=login';
            with
             slEintrag do
               begin
                 Values['login=DERUSERNAME'];
                 Values['password=DASPASSWORT'];
               end;
                 try
                   idHttp.Post(sURL,slEintrag);
                   textrueck:='eingeloggt';
                 except
                   textrueck:='Senden fehlgeschlagen';
                 end;
            slEintrag.Free;

         end;
  Mit Zitat antworten Zitat