Kod: Tümünü seç
procedure TMyForm.Button1Click(Sender: TObject);
var
nForms: integer;
begin
nForms := NumberOfForms(WebBrowser.Document as IHTMLDocument2);
ShowMessage('Form count: ' + IntToStr(nForms));
end;
Kod: Tümünü seç
procedure TMyForm.Button1Click(Sender: TObject);
var
nForms: integer;
begin
nForms := NumberOfForms(WebBrowser.Document as IHTMLDocument2);
ShowMessage('Form count: ' + IntToStr(nForms));
end;
mrmarman yazdı:Merhaba...
ID'sine ulaşamadıysanız çalışan fonksiyonu siz çalıştırın.
Kod: Tümünü seç
(WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript( 'openLoginPopup()', 'JavaScript' ); // Uses MSHTML eklenecek
Kod: Tümünü seç
webbrowser1.Navigate('https://ebeyanname.gib.gov.tr/giris.html');
While WebBrowser1.ReadyState <> READYSTATE_Complete do
Application.ProcessMessages;
(WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript( 'openLoginPopup()', 'JavaScript' );
Kod: Tümünü seç
<script type="text/javascript" src="js/index.js"></script>
Kod: Tümünü seç
https://ebeyanname.gib.gov.tr/js/index.js
Kod: Tümünü seç
var messages = new Array();
var labels = new Array();
messages['AJAX_SITE_ILE_BAGLANTI_SAGLANAMADI']="Site ile bağlantı sağlanamadı."
messages['AJAX_SITE_GECERSIZ_CEVAP_DONDU']="Site geçersiz bir cevap döndü. Lütfen çağrı merkezine haber veriniz."
messages['AJAX_GUVENLI_CIKIS_YAPILIYOR']="Güvenli çıkış yapılıyor..."
messages['AJAX_EBYNDEN_CIKIS_YAPILIYOR']="E-Beyanname' den çıkışınız yapılıyor. Lütfen kendi güvenliğiniz için GÜVENLİ ÇIKIŞ seçeneğini kullanmaya özen gösteriniz."
messages['AJAX_GIRIS_YAPILIYOR']="Giriş yapılıyor..."
messages['AJAX_EBYNDEN_CIKIS_YAPILDI']="Başarılı bir şekilde E-Beyanname' den çıkış yapıldı."
labels['MENU_BEYANNAMEARA']="Beyanname Ara";
function openLoginPopup() {
window.open("giris.html", "_blank", "top=0,left=0,status=1,history=no,toolbar=0,location=0,directories=0,menubar=0,scrollbars=yes,resizable=yes,width=1029,height=780");
}
function duyurular(adr) {
document.getElementById('duyuruFrm').src = adr + ".html";
}
Kod: Tümünü seç
Webbrowser1.Navigate('about:blank');
While WebBrowser1.ReadyState <> READYSTATE_Complete do
Application.ProcessMessages;
(WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript( 'window.open("https://ebeyanname.gib.gov.tr/giris.html", "_blank", "top=0,left=0,status=1,history=no,toolbar=1,location=1,directories=1,menubar=1,scrollbars=yes,resizable=yes,width=1029,height=780")', 'JavaScript' );
Tüm siteyi inceleyecek vaktim olsaydı konunun ilgili / henüz ilgi sahibi olmayan herkesin anlayabilmesi için paket program yazardım ancak sana vizyon sağlamak için cevap yazdım.@mrmarman yazdı:Dikkatini çekmek istediğim nokta "_blank" olanı. Bunu SELF veya PARENT vererek de alabilirsin ancak yeni açılan pencerenin HTML kodlarını ve JS kodlarını indirip incelemen lazım. Çünkü eğer boş değil de bir referans içeriyorsa giriş ekranına dönülsün gibisinden bir kontrolle karşılaşman oldukça muhtemel.
Kod: Tümünü seç
webbrowser1.Navigate( 'http://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1248279367&rver=5.5.4177.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1055&id=64855&mkt=tr-TR' );
While webbrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
webbrowser1.OleObject.Document.GetElementByID('login').Value:=edit1.Text;
webbrowser1.OleObject.Document.GetElementByID('passwd').Value:=edit2.Text;
webbrowser1.OleObject.Document.GetElementByID('SI').Click;
Kod: Tümünü seç
Form=00 item=01 - Name="keywords"
Form=00 item=02 - Name=""
Form=01 item=01 - Name="username"
Form=01 item=02 - Name="password"
Form=01 item=03 - Name="autologin"
Form=01 item=04 - Name="viewonline"
Form=01 item=05 - Name="redirect"
Form=01 item=06 - Name="sid"
Form=01 item=07 - Name="login"