Farklı işlemler yapan 5 farklı butonum var ve Hepsinde aynı sitede login olmak gerekiyor ve captcha kontrolü mevcut.
Arkada planda site çalışır durumda oluyor TWebBrowser'de.
Resmi alıp kullanıcıya gösterip Kullanıcı Adı ve şifresini ve resimdeki karakterleri bi texte yazmasını isteyerek
login butonuna tıklattırıyorum ve post işlemlerini ve diğer işlemlerimi yapıyorum.
Her butona tıkladığınca yeniden yüklüyorum sayfanın girişini.
ilk programı açıp butona tıkladığımda işlemler yapılıyor ancak 2.defa webBrowseri yüklediğimde ve kullanıcı girişe bastığında siteden otomatik atıyor.
Mainden butona basınca(Yani karşısına captcha kontrolü, Kullanıcı adı, Şifre , Login butonun geldiği kısımda)
Kod: Tümünü seç
public
wbBack : TWebBrowser;
procedure MainLogin
begin
if wbBack <> nil then
begin
wbBack.Free;
wbBack := nil;
end;
wbBack := TWebBrowser.Create(owner);
TWinControl(wbBack).Name := 'wbBack';
TWinControl(wbBack).Parent := gWbs;
wbBack.OnDocumentComplete := wbBack_DocumentComplete;
wbBack.OnNewWindow2 := wbBack_NewWindow2;
wbBack.ShowHint := False;
wbBack.Silent := True;
wbBack.StatusBar := False;
wbBack.Align := alLeft;
end;