* İş bankası İnternet Şubesine Giriş
* Google Mail (Gmail) e giriş yapmayı açıklayacağım.
Kullandığım Bileşenler
* EmbeddedWB (Tercihen TWebbrowser kullanılabilir)
Öncelikle kodumuz
Kod: Tümünü seç
EmbeddedWB1.Navigate( 'https://www.isbank.com.tr/Internet/index.aspx?langcode=tr-TR&width=1152&height=834' );
While EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
EmbeddedWB1.OleObject.Document.GetElementByID('_ctl0:MusNoText').Value:=edit1.text;
EmbeddedWB1.OleObject.Document.GetElementByID('ParolaText').Value:=edit2.Text;
EmbeddedWB1.OleObject.Document.GetElementByID('_ctl0:SubeLogin01_btnGiris').Click;
* _ctl0:MusNoText (Müşteri Numarası)
* ParolaText' (Parola)
* _ctl0:SubeLogin01_btnGiris (Giriş Butonu)
Post ettiğimiz adres = https://www.isbank.com.tr/Internet/inde ... height=834' (Şubeye giriş sayfası)
Projenin Bitmiş hali Lintedir.
Aynı mantığı kullanarak Gmail e giriş yapalım
Kodumuz :
Kod: Tümünü seç
EmbeddedWB1.Navigate( 'http://mail.google.com/mail/?hl=tr&zx=1idp6hsk9b13b&shva=1#compose' );
While EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
EmbeddedWB1.OleObject.Document.GetElementByID('email').Value :='xxxxx@gmail.com';
EmbeddedWB1.OleObject.Document.GetElementByID('Passwd').Value :='123456789';
EmbeddedWB1.OleObject.Document.GetElementByID('signIn').Click;
Mantık aynı bu kodu bir Button1 onclick event e ekleyin.
1 adette webbrowser ekleyin ve kullanmaya başlayın.
Not: İş bankasının müşteri numaraları 9 hanelidir.Eğer sizinki değilse önüne 9 haneye gelecek kadar " 0 " ekleyip kullanabilirsiniz.
Gürkan Arkaş.