Soru Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

[TURKOLOG]

Herkese Merhaba
Aşağıdaki kodla turkiye.gov.tr kullanıcı adı ve şifresi otomotik dolup sayfa açılıyor

Private Sub Net_Click()
On Error Resume Next
    Dim i As Long
    Dim IE As Object
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.Navigate "http://callnet/Themes/Cal12/Pages/giris"
 
    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
    
    IE.Document.getElementById("login-username").Value = "Kullanıcıadı"                   'Worksheets("KONTROL").Range("N1").Value
    IE.Document.getElementById("login-password").Value = "Şifre"                          'Worksheets("KONTROL").Range("N2").Value
    Set Button = IE.Document.getElementsByClassName("submitButton")
    For Each btn In Button
        btn.Click
        Exit For
    Next

    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
End Sub

Ben bu kodları kullanarak istediğim adreste kullanıcı adı ve şifresini girerek giriş yapacak tuşabasarak siteye girmesini istiyorum üstte biraz denedim ama olmadı
Yarımcı olabilecek arkadaş varsa çok sevinirim

 </a>
                </div>
                <div class="form" id="login-form">
                    <div class="form-group">
                        <label for="login_username">Sicil Numarası</label>
                        <input type="number" min="1" max="999999" class="form-control" id="login-username" placeholder="Sicil Numaranızı giriniz..." data-nextcontrol="login-password" title="Bu alana sicil numaranızı giriniz. Sicil numarası rakam olmalıdır..." />
                    </div>
                    <div class="form-group">
                        <label for="login_password">Şifre</label>
                        <input type="password" class="form-control" id="login-password" placeholder="Şifrenizi giriniz..." data-nextcontrol="login-btn" title="Bu alana şifrenizi giriniz..." />
                    </div>
                    <div class="form-group">
                        <button type="button" id="login-btn" class="btn btn-primary btn-block">Giriş &nbsp; <i class="fa fa-play-circle"></i></button>
                    </div>
                </div>

 

[askm]

Tuşa basma kodunu aşağıdaki şekilde değiştirin.Butonun id olduktan sonra döndüye gerek yok.
IE.Document.getElementById("login-btn").Click
(Aşağıdaki kısım olmayacak.
Set Button = IE.Document.getElementsByClassName("submitButton")
For Each btn In Button
btn.Click
Exit For
Next
)

 

[TURKOLOG]

Private Sub Net_Click()
On Error Resume Next
    Dim i As Long
    Dim IE As Object
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.Navigate "http://callnet/Themes/Cal12/Pages/giris"
 
    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
    
    IE.Document.getElementById("login-username").Value = "Kullanıcıadı"                   'Worksheets("KONTROL").Range("N1").Value
    IE.Document.getElementById("login-password").Value = "Şifre"
IE.Document.getElementById("login-btn").Click

Sayın @askm Hocam bu şekilde şifre ve kullanıcı adı alanlari yine dolu gelmiyor. Ilgili kısımlar boş geliyor imleç kullanici adında yanıp sönüyor
Bir de Hocam tarayıcıyı choreme nasıl yapabilirim.

 

[askm]

Private Sub Net_Click()
On Error Resume Next
    Dim i As Long
    Dim IE As Object
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.Navigate "http://www.callnet.com.tr/login"
 
    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
    
    IE.Document.getElementById("email").Value = "Kullanıcıadı"                   'Worksheets("KONTROL").Range("N1").Value
    IE.Document.getElementById("password").Value = "Şifre"                          'Worksheets("KONTROL").Range("N2").Value
    IE.Document.getElementsByClassName("btn btn-primary")(0).Click
'    Set Button = IE.Document.getElementsByClassName("btn btn-primary")
'    For Each btn In Button
'        btn.Click
'        Exit For
'    Next

    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
End Sub

 

[askm]

Chrome için selenium kullanmanız gerekir.

 

[TURKOLOG]

Hocam işyerinde yarın deneyip dönüş yapayım sonuç hakkında.

 

[TURKOLOG]

Private Sub Net_Click()
On Error Resume Next
    Dim i As Long
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    IE.Navigate "http://www.callnet.com.tr/login"

    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
   
    IE.Document.getElementById("email").Value = "Kullanıcıadı"                   'Worksheets("KONTROL").Range("N1").Value
    IE.Document.getElementById("password").Value = "Şifre"                          'Worksheets("KONTROL").Range("N2").Value
    IE.Document.getElementsByClassName("btn btn-primary")(0).Click
'    Set Button = IE.Document.getElementsByClassName("btn btn-primary")
'    For Each btn In Button
'        btn.Click
'        Exit For
'    Next

    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
End Sub

Hocam sadece sayfa açılıyor kullanıcı adı ve şifre girilmiyor

 

[TURKOLOG]

IE.Document.getElementById("email").Value = "Kullanıcıadı"                   'Worksheets("KONTROL").Range("N1").Value
    IE.Document.getElementById("password").Value = "Şifre"                          'Worksheets("KONTROL").Range("N2").Value

Acaba password ve email yazan yerde mi hata var çözemedim olayı hala

 

[TURKOLOG]

Hocam Selenyum kütüphanesini kurdum ama hata veriyor olmadı bir türlü Hata mesajı : ActiveX component can't create object
Seleniyum kütüphanesini ekliyorum eke https://www.dosyaupload.com/c9u5

Private Sub Selenyum_Click()

Dim IE As New Selenium.WebDriver
'Set IE = CreateObject("Chrome.Application")
IE.start "Chrome"
IE.get "http://www.callnet.com.tr/login"

    IE.Visible = True
'   IE.Navigate "http://www.callnet.com.tr/login"
    Do While IE.Busy: DoEvents: Loop
    Do While IE.readyState <> 4: DoEvents: Loop
    Application.Wait Now + TimeValue("00:00:02")
    IE.Document.getElementById("email").Value = "Kullanycyady"                   'Worksheets("KONTROL").Range("N1").Value
    Application.Wait Now + TimeValue("00:00:02")
    IE.Document.getElementById("password").Value = "?ifre"                          'Worksheets("KONTROL").Range("N2").Value
    Application.Wait Now + TimeValue("00:00:02")
    IE.Document.getElementsByClassName("btn btn-primary")(0).Click
End Sub

Seleniyum Kütüphanesi Linki