• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Banka Kullanıcı Girişi Listesi Oluşturma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

bydogannn

Yeni Üye
Katılım
9 Tem 2018
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
İzmir
Ad Soyad
Doğan TERZİ
Üstadlarım kolay gelsin,

Yardımınıza İhtiyacım var,

Şirkette birden fazla bankayla çalıştığımızdan her bankanın kullanıcı girişine otomatik olarak excel ile giriş yapmak istiyorum çoğu bankayı yaptım ama akbank ve ingbank'ta takıldım bir türlü olmuyor, kullanıcı koduna veriyi atamıyorum

İlgilenebilirseniz çok sevinirim

banka link ve kodlarıda aşağıdaki gibidir

https://kurumsalinternetsubesi.ingbank. ... lang=tr-TR

<input name="ctl00$mc$txtuserid" type="text" maxlength="8" id="txtuserid" class="medium has-keyboard has-keyboard-numeric f-left" onmouseout="VeriBranch_OnMouseOut('txtuserid');" autocomplete="off" placeholder="" data-allowspace="true" onpaste="if(HasNonnumeric(event)){return false;};" data-discardturkishcharacters="false" onmouseover="VeriBranch_OnMouseOver('txtuserid');" onclick="EnableKeyboard();" onblur="RemoveEscapedCharactersFromTextBox(this,'txtuserid', ['<','>','?'])" data-holder="" onfocus="VeriBranch_TextOnFocus('txtuserid','',this);" onkeyup="OnlyNumericControl(this);" onkeypress="PreventSpecialKeys(this,event);;" aria-labelledby="ctl00_mc_lblUserName" onkeydown="TextBoxFocusOnNavigation(this,event);if(!Only_Numeric(event)){return false;};" data-uppercase="false">
 

Ekli dosyalar

  • BANKA.rar
    24.6 KB · Görüntüleme: 18

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodun üst katmanlarına doğru bakarsanız Iframe kullanıldığını görürsünüz.
PHP:
<iframe id="iframe1" src="https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/Login/FirstLogin.aspx?vbi=gm1lFkoV%2bk6J5khN3Oh7zNL6CU%2f7UN4kk%2bG3WnkRPr0Q2NEeic2arb1bPWuXQnPNWUcjus1DPwDyf8g66Sb4Yg%3d%3d" title="İçerik"></iframe>
Banka gibi özel güvenlik önlemleri alınan bu tarz sitelerde verilen bu Iframe kaynak (src) üzerinden de ilerlenemeyebiliyor. Js kodlarıyla anlık olarak dinamik işlemler yapılıp erişimi olabildiğince engellemeye çalışabiliyorlar.

Bu tarz sitelerde SendKeys'ler ile ilerleyebilirsiniz. O şekilde Tuş veya metin gönderebilirsiniz.
 

bydogannn

Yeni Üye
Katılım
9 Tem 2018
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
İzmir
Ad Soyad
Doğan TERZİ
Bilgi için çok teşekkurler hocam, sizden rica etsem bir örnekle bana yardımcı olabilirmisiniz.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Selâmlar @bydogannn,
Birkaç gündür ne cevap gelecek diye bekledim ama şu an için sanırım bu konuda benden başka bilgi sahibi üyemiz bulunmuyor.

Bu kodlarla ilgili sayfadaki Inputlara ulaşıp bilgileri yazdırabilirsiniz.
PHP:
Sub ExcelTurkey()
    Dim ie As Object, cerceve As Object, doc As Object, adres$
    Set ie = VBA.CreateObject("InternetExplorer.Application")
    With ie
        adres = "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"
        .Visible = True
        .navigate adres
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
        Set cerceve = .document.getElementById("iframe1")
        Set doc = cerceve.contentWindow.document
        doc.getElementById("txtuserid").Value = "kod"
        doc.getElementById("txtPass").Value = "123"
        doc.getElementById("ctl00_mc_btnLogin").Click
    End With
End Sub
Bu da Early Binding metoduyla alternatif..
Referanslardan Microsoft Internet Controls ve Microsoft HTML Object Library referanslarını seçmelisiniz.
PHP:
Sub ExcelTurkey()
    Dim adres, ie As InternetExplorer
    Dim doc As HTMLDocument, cerceve As HTMLIFrame
    Set ie = New InternetExplorer
    With ie
        adres = "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"
        .Visible = True
        .navigate adres
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
        Set cerceve = .document.getElementById("iframe1")
        Set doc = cerceve.contentWindow.document
    End With
    doc.getElementById("txtuserid").Value = "kod"
    doc.getElementById("txtPass").Value = "123"
    doc.getElementById("ctl00_mc_btnLogin").Click
End Sub
 

bydogannn

Yeni Üye
Katılım
9 Tem 2018
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
İzmir
Ad Soyad
Doğan TERZİ
Yardımlarınız için çok tesekkurler hocam
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt