automatyczne logowanie

0

Witam , robie program do logowania sie na strone , o to moj kod :

procedure TForm1.Button3Click(Sender: TObject);
var data: TIdMultiPartFormDataStream;
begin
strona2.Navigate('https://www.bossa.pl/');
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
 try
    data := TIdMultiPartFormDataStream.Create;
    data.AddFormField('user',user.Text);
    data.AddFormField('pin',pin.Text);
    data.AddFormField('lang','POL');
    data.AddFormField('vasco','');
    data.AddFormField('B3', '      Akceptuj      ');
    strona.OleObject.Document.documentElement.innerHTML:=ht.Post('https://www.bossa.pl/', data);
 finally
    data.Free;
 end;
end;

strona:

<form action="login" method="POST"> Logowanie do systemu:

Proszę podać:
(Identyfikator wpisuj wielkimi literami)

Identyfikator
PIN


Cyfry odczytane z
generatora haseł
<input type="text" name="user" size="20">
<input type="password" name="pin" size="20">


<input type="text" name="vasco" size="20"> <input type="hidden" name="lang" value="POL">
<input type="submit" name="B3" value=" Akceptuj " class="f10"> <input type="reset" name="B4" value=" Wyczy?ć " class="f10">

i wyrzuca mi errora: IOHandler value s not valid

co pownienem zrobic?

czy cso mzoe z tym : <form action="login" method="POST"> ?

0

musisz użyć IOHandlera do obługi SSL.

0

ok polaczylem IDHTTP z IdSSLIOHandlerSocket i pisze teraz :
could not load SSL Library

znalazlem cos takiego:
You need to assign an IOHandler to the HTTP client that uses the SSL
transport.
You also need the OpenSSL .DLLs (or a third-party product implementing the
TIdSSLIOHandlerSocketBase class) installed on your computer to allow SSL to
work at all.
sslIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
IdHttp.IOHandler := sslIOHandler;
theResults := IdHttp.Get('https:\www.somesecuresite.net');

ale np. TIdSSLIOHandlerSocketBase, TIdSSLIOHandlerSocketOpenSSL nie ma u mnie

0

sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;
sleep(500); application.ProcessMessages;sleep(500); application.ProcessMessages;

rany - co to ma być.... zamknij to w pętli :|

0

heheh w nocy pisalem to malo trzeźwy :p

ale co zoribc z tym bledem " could not load SSL Library" ?

na roznych stronach pisze o ssleay32.dll i libeay32.dll , ale nie wiem co z nimi zrobic?

jest jeszcze jakas inna mozliwosc wypelniania formularzy www?

1 użytkowników online, w tym zalogowanych: 0, gości: 1