• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

T

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
745
Excel Vers. ve Dili
2016 64 TR
Herkese Merhaba
Aşağıdaki kodla turkiye.gov.tr kullanıcı adı ve şifresi otomotik dolup sayfa açılıyor

Kod: 
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

Kod: 
 </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>
 
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
)
 
Kod: 
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.
 
Kod: 
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
 
Chrome için selenium kullanmanız gerekir.
 
Hocam işyerinde yarın deneyip dönüş yapayım sonuç hakkında.
 
askm' Alıntı:
Kod: 
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
Genişletmek için tıkla ...
Hocam sadece sayfa açılıyor kullanıcı adı ve şifre girilmiyor
 
Kod: 
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
 
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
Kod: 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst