EXCEL İLE BANKA KULLANICI GİRİŞİ LİSTESİ OLUŞTURMA

[bydogannn67]

Ü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


Kullandığım kodlar
-----------------------------------------------------------------------------------------------------------
1 -
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub ingbank()
Dim URL As String
Dim ie As Object
URL = "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
.Visible = 1
ShowWindow ie.hwnd, 3
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.All("ctl00$mc$txtuserid").Value = Cells(13, "c").Value
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
'ie.Quit: Set ie = Nothing
End With
End Sub

-------------------------------------------------------------------------------------------
2-
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub ingbank()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.Navigate "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"
Do While Not .ReadyState = 4: DoEvents: Loop
.Document.getElementsByName("ctl00$mc$txtuserid")(0).Value = Cells(13, "c").Value
End With
Set ie = Nothing
End Sub

-------------------------------------------------------------------
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">

 

[netzone]

Merhaba, Konu dikkatimi çekti giriş yapacağınız alanın ismiyle değilde ID sini kullanarak giriş yapmayı denediniz mi?
.Document.getElementsByName .Document.getElementsById olarak değiştirip dener misiniz.
Kullanıcı adı txtuserid - şifre txtPass

 

[bydogannn67]

Bunuda denemiştim malesef oluyor

 

[bydogannn67]

Örnek dosya ekteki gibidir, yardımlarınızı rica ediyorum

 

[halit3]

Niçin yazdırmadığını bende anlamadım kopyala yapıştırda yapmıyor ama bir yolu var
SendKeys yöntemi
Ekli dosyayı irdele B2:B9 kullanıcı adı B11:B16 şifre hücreleri

 

[PLİNT]

Merhaba
Şöyle deneyiniz

ie.document.frames.Item(0).document.getElementByid("txtuserid").Value = "123"

 

[halit3]

Sayın PLİNT yapmış kodun tamamını yazıyorum.

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub ingbank()
Dim URL As String
Dim IE As Object
URL = "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate URL
.Visible = 1
ShowWindow IE.hwnd, 3
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop

IE.document.frames.Item(0).document.getElementByid("txtuserid").Value = "12345678"
IE.document.frames.Item(0).document.getElementByid("txtPass").Value = "123456"
IE.document.frames.Item(0).document.getElementByid("ctl00_mc_btnLogin").Click

Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
'ie.Quit: Set ie = Nothing
End With

End Sub

 

[bydogannn67]

Üstadlarım emeğinize bilginize sağlık