Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: İş Bankası İnternet Şubesine Giriş (Webbrowser)  (Okunma sayısı 5942 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı symantech

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +1/-0
İş Bankası İnternet Şubesine Giriş (Webbrowser)
« : 18 Temmuz 2009 21:24:30 »
Merhaba arkadaşlar dökümanımda sizlere webrowser ile post methodunu kullanarak

* İş 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:  (Unknown Language)
  1.     EmbeddedWB1.Navigate( 'https://www.isbank.com.tr/Internet/index.aspx?langcode=tr-TR&width=1152&height=834' );
  2.     While EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
  3.     EmbeddedWB1.OleObject.Document.GetElementByID('_ctl0:MusNoText').Value:=edit1.text;
  4.     EmbeddedWB1.OleObject.Document.GetElementByID('ParolaText').Value:=edit2.Text;
  5.     EmbeddedWB1.OleObject.Document.GetElementByID('_ctl0:SubeLogin01_btnGiris').Click;



Burada İşbankasının HTML kodları arasından post edeceğimiz verileri görebiliyoruz.

* _ctl0:MusNoText (Müşteri Numarası)
* ParolaText' (Parola)
* _ctl0:SubeLogin01_btnGiris (Giriş Butonu)

Post ettiğimiz adres = https://www.isbank.com.tr/Internet/inde ... eight=834' (Şubeye giriş sayfası)

Projenin Bitmiş hali Linktedir.

Aynı mantığı kullanarak Gmail e giriş yapalım

Kodumuz :


Kod:  (Unknown Language)
  1.     EmbeddedWB1.Navigate( 'http://mail.google.com/mail/?hl=tr&zx=1idp6hsk9b13b&shva=1#compose' );
  2.     While EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
  3.     EmbeddedWB1.OleObject.Document.GetElementByID('email').Value     :='xxxxx@gmail.com';
  4.     EmbeddedWB1.OleObject.Document.GetElementByID('Passwd').Value        :='123456789';
  5.     EmbeddedWB1.OleObject.Document.GetElementByID('signIn').Click;



Bu kodda post ettiğimiz adresin sonunda ki "#compose" verisinin yerine "#inbox' eklerseniz doğrudan gelen kutunuza gidersiniz.

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ş.


http://ul.to/tggbhb

« Son Düzenleme: 19 Temmuz 2009 10:11:45 by Kocaturk »
Kayıtlı

Çevrimdışı Remark

  • Delphi 1 Level 3
  • ***
  • İleti: 23
  • Rep: +0/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #1 : 07 Eylül 2009 16:08:49 »
Merhabalar.
Öncelike teşekkür ederim verdiğiniz kodlar çok işime yaradı fakat bir sorunum var.

Sayfa login oluyorum SonucSorgu.do;jsessionid=PEHKIOEHFCCM şu şekilde url değiştiriyor.
Benim yapmak istediğim şu önce sayfaya login olsun. Sonra sayfayı kaydeip c:\site.html olarak kaydetmesini istiyorum. Bunu nasıl yapabilirim? yada bu adres satırından gelen jsessionid= nasıl yazdırabilirim.

kodlar şöyle ;

URLDownloadToFile(Nil, PChar('http://www.sitem.com/SonucSorgu.do;jsessionid=NBBLMMEHFCCM'), PChar('C:\ihaleMaden.html'), 0, Nil); bu kod ile sayfayı kaydettirmek istiyorum ama sessionid  değerini yazdıramayınca kaydedemiyorum.
Kayıtlı

Çevrimdışı symantech

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +1/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #2 : 08 Eylül 2009 02:27:02 »
sesionid değişken bir yapıda olduğu için bence önce sayfayı navigate ettirin böylece session bilgisini almış olursunuz.daha sonra sorgulamayı yapıp ister sizin yönteminizle ister idhttp ile memo içine alarak savetofile proceduresi ile dosyaya kaydedebilirsiniz.Urldownloadfile bildiğim kadarıyla urlmon tarafından çağırılıyordu bunu antivirüsler downloader olarak görebilirler bunuda ek olarak belirteyim.İyi çalışmalar.
Kayıtlı

Çevrimdışı Remark

  • Delphi 1 Level 3
  • ***
  • İleti: 23
  • Rep: +0/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #3 : 08 Eylül 2009 08:18:19 »
Çok özür dilerim ama dediklerinizden hiç birşey anlamadım. Delphi de yeni olduğum için biraz daha açabilirmisiniz örnek kod verebilirmisiniz? Mesela URLDownloadToFile yerine ne kullanmalıyım.
Kayıtlı

Çevrimdışı symantech

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +1/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #4 : 08 Eylül 2009 19:32:31 »
   1.    EmbeddedWB1.Navigate( 'https://www.isbank.com.tr/Internet/index.aspx?langcode=tr-TR&width=1152&height=834' ); 
   2.    While EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; 
   3.    EmbeddedWB1.OleObject.Document.GetElementByID('_ctl0:MusNoText').Value:=edit1.text; 
   4.    EmbeddedWB1.OleObject.Document.GetElementByID('ParolaText').Value:=edit2.Text; 
   5.    EmbeddedWB1.OleObject.Document.GetElementByID('_ctl0:SubeLogin01_btnGiris').Click; 


Bu kodda sayfa button ile birlikte navigate ettiriliyor.Siz ise şu kodu

EmbeddedWB1.Navigate( 'https://www.isbank.com.tr/Internet/index.aspx?langcode=tr-TR&width=1152&height=834' ); 


Form create ekleyin böylece program açılır açılmaz sayfa navigate ettirilecek ve session id değeri okunacak.
Diğer sorunuz ise şöyle

var
adr:string;
begin
adr:=idhttp.get('xxx.xxx.com);
memo1.text:=adr;
memo1.lines.savetofile('htmlkodu.txt');

Bu şekilde sayfa kaynağını çekiip kaydedebilir ve parseleyip kullanabilirsiniz.

İyi çalışmalar.
Kayıtlı

Çevrimdışı Remark

  • Delphi 1 Level 3
  • ***
  • İleti: 23
  • Rep: +0/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #5 : 09 Eylül 2009 07:48:52 »
idhttp kullanabilmek için uses kısmına ne eklemeyliyim?
Kayıtlı

Çevrimdışı buslu

  • Delphi 2 Level 1
  • *
  • İleti: 53
  • Rep: +0/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #6 : 10 Eylül 2009 09:34:52 »
birşey eklemen gerekmiyor...

Kayıtlı

Çevrimdışı cheshme

  • Delphi 1 Level 2
  • **
  • İleti: 14
  • Rep: +1/-0
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #7 : 10 Eylül 2009 12:55:21 »
linkte sorun war
Kayıtlı

Çevrimdışı ahmetsngr

  • Delphi 1 Level 5
  • *****
  • İleti: 40
  • Rep: +0/-0
    • Film Arşivim
Ynt: İş Bankası İnternet Şubesine Giriş (Webbrowser)
« Yanıtla #8 : 21 Aralık 2009 15:14:09 »
link kırık galiba
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »