bankaya giriş hakkında

[mahmyt]

Öncelikle merhabalar;
vba dan kullanıcı kodu ve şifreyle bankacılık sistemine giriş işlemi için makro sadece garantiye girişi gerçekleştirirken işbankası ve yapı kredi için işlem gerçekleşmemektedir.

yapıkredi için verdiği hata;
Cells(sat2, "c") = IE2.document.all("userCode").Value bu satırda hata vermektedir.

işbank için ise
işbank internet bankacılıgı sayfasında ise textboxları dolduruyor ancak 1 saniye sonra doldurmamış gibi işlem yapıyor.
1.kitap



garanti için yazılan kod

Sub baglan()

Dim URL As String
Dim HTML_Body As Object
Dim IE As Object

sat = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat, "e") = "" Then
MsgBox "hatalı satir sectiniz.."
Exit Sub
End If


URL = "https://sube.garantibbva.com.tr/isube/login/login/passwordentrycorporate-tr"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate URL
.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

IE.document.all("musteriNoLabelUstte").Value = Cells(sat, "c")
IE.document.all("parolaLabelUstte").Value = Cells(sat, "d")
IE.document.all("userCustomerNum").Value = Cells(sat, "e")
IE.document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub

İşbank için yazılan kod

Sub baglan_isbank()

Dim URL1 As String
Dim HTML_Body1 As Object
Dim IE1 As Object

sat1 = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat1, "e") = "" Then
MsgBox "hatalı satir sectiniz.."
Exit Sub
End If


URL1 = "https://www.isbank.com.tr/TicariInternet/Transactions/Login/FirstLogin.aspx"
Set IE1 = CreateObject("InternetExplorer.Application")
With IE1
.navigate URL1
.Visible = True
Do While IE1.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

IE1.document.all("CustomerNumberTextBox").Value = Cells(sat1, "c")
IE1.document.all("CorporateCustomerNumberTextbox").Value = Cells(sat1, "d")
IE1.document.all("PinTextBox").Value = Cells(sat1, "e")
IE1.document.forms(0).submit
End With
Set IE1 = Nothing
Set HTML_Body1 = Nothing
MsgBox ("Bitti")
End Sub

yapı kredi için kod






Sub baglan_YKB1()

Dim URL2 As String
Dim HTML_Body2 As Object
Dim IE2 As Object

sat2 = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat2, "e") = "" Then
MsgBox "hatalı satir sectiniz.."
Exit Sub
End If


URL2 = "https://www.isbank.com.tr/TicariInternet/Transactions/Login/FirstLogin.aspx"
Set IE2 = CreateObject("InternetExplorer.Application")
With IE2
.navigate URL2
.Visible = True
Do While IE2.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

Cells(sat2, "c") = IE2.document.all("userCode").Value
Cells(sat2, "d") = IE2.document.all("userId").Value
Cells(sat2, "e") = IE2.document.all("password").Value
IE1.document.forms(0).submit
End With
Set IE1 = Nothing
Set HTML_Body1 = Nothing
MsgBox ("Bitti")
End Sub

 

[mahmyt]

daha kısa olması hasebiyle
yapı kredinin internet şube girişindeki ekrandan gelmesi gereken döngüde aşağıdaki gibi olması gerekmiyor mu yada döngü hatası mı var
2.si banka otomatik girişe (ykbankası) izin vermemekte midir.

kurgunun neresinde hata yapmaktayım yardımcı olabilir misiniz.


Cells(sat2, "c") = IE2.document.all("userCode").Value
Cells(sat2, "d") = IE2.document.all("userId").Value
Cells(sat2, "e") = IE2.document.all("password").Value