[Yardım]  Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

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

İleti#1)  Levent145 » 16 Şub 2021 13:19

Merhaba arkadaşlar kullanıcı adı ve şifresinin otomotik doldurulup giriş butonuna tiklamak icin asagidaki kodu nasıl revize edebiliriz .
Aşağıdaki kod çalışmıyor.
Kod: Tümünü seç
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 


Mevcut sitenin giriş kaynak kodları aşağıdadır
Kod: Tümünü seç
  </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> 
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#2)  Levent145 » 19 Şub 2021 16:09

Yardımcı olabilecek var mı acaba
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#3)  feraz » 20 Şub 2021 12:30

Merhaba.

Kodunuzu denedim bendede çalışmıyor sanıyorum Microsoft Edge yüklü olduğu için olabilir.
Kaldırıp denerseniz belki çalışır denemek için.
Kodunuzdaki On Error Resume Next yeri kaldırırsanız hata mesajını veriyor zaten.

Selenium ile alttaki gibi kod yazdım verileri gönderip tıklatıyor.
Sorun ise kod bitince chromede kapanıyor :)

Resim

Kod: Tümünü seç
Sub bekle(zaman)
    Application.Wait Now + TimeValue(zaman)
End Sub

Sub xx()
    Dim baglan As New Selenium.WebDriver
    '        baglan.AddArgument "-headless" 'Chrome yi gizli acar
    baglan.Start "chrome"
    baglan.Get "http://www.callnet.com.tr/login"
    bekle "00:00:02"
    baglan.FindElementByXPath("//*[@id='email']").SendKeys "email@com" 'email yazilacak  email@com yerine
    bekle "00:00:02"
    baglan.FindElementByXPath("//*[@id='password']").SendKeys "aa" ' sifre yazilacak aa yerine
    bekle "00:00:02"
    baglan.FindElementByXPath("/html/body/form/div/div[3]/div[2]/button").Click
'    baglan.Close
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#4)  feraz » 20 Şub 2021 13:05

Biraz araştırınca kad bitince chromenin ekranda kalma olayını buldum.
chrome yerine edge ve firefox gibi explorerlerde oluyor.
Seleniumu araştırabilirsiniz kurulum ve kütüphaneye eklemeyi.
Resimdeki boyadığım gibi en üstte olmalıymış tanımlama.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#5)  Levent145 » 20 Şub 2021 14:33

Hocam dosyayı choremede çalıştırmak için hangi kodları kullanacağımı anlayamadım.
Zafer Hocam choremede Çalışır son kodları yeniden paylaşabilir misiniz.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#6)  Levent145 » 20 Şub 2021 14:41

Hocam bence de sorun ergenin yüklü olması bende de yüklü . Yardımcı olursanız cok sevinirim.
Ama benim kullanıcı adım login-form
Şifre kısmım login-password
Giriş için tiklayacagi giriş butonu login-btn
Choreme için bu şekilde ayaralamamiz gerekiyor
Otomotik butona tıklayıp giriş yapacak .
Ben kapalı devre sistem olduğu için callnet ismini deneme amaçlı yazdım.

Kod: Tümünü seç
  </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>   
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#7)  feraz » 20 Şub 2021 20:07

Merhaba.
Ben fazla anlamıyorum internet olaylarından.
Udym den paket satın almıştım seleniummuş o da :)
Bununla hepsinden çekilip veri yollanıyormuş biliyorum.

Sizin koddaki ise sadece normal explorer için ve edge için heralde.
Yani diğerlerinde çalıştırmıyor bildiğim kadarıyla.
Yani selwnium ilede deneyebilirsiniz bence daha basit bence.
Edge yi bir silip deneyeyim sonra sonuç ne olacak bakayım :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#8)  feraz » 20 Şub 2021 20:39

Edgeyi sildim denedim sanırım çalışacak ayrıca kodunuzda hata var.
Yapabilirsem eklerim kodları.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#9)  feraz » 20 Şub 2021 20:44

Edge yi sildim alttaki gibi kodu değiştirdim ve çalıştı.

Kod: Tümünü seç
Sub xx()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    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 = "Kullanýcýadý"                   '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
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#10)  Levent145 » 20 Şub 2021 22:01

Zafer Hocam elinize emeğinize yüreğinize sağlık
siz edgeyi silebiliyorsunuz
Ama bizim bilgisayarlarda progr silme yetkisi
Birim en üst düzey yetkilisinde
Egeyi silmeyi anlatmak deveye hendek atlatmaktan daha zor
Bu yüzden choreme üzerinden çalıştırmak gerekecek
Choreme üzerinden kodları nasıl çalıştırabiliriz Hocam
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#11)  feraz » 20 Şub 2021 22:19

Rica ederim.
daha öncededediğim gibi benim bildiğim chrome çalıştırmak selenium basic ile oluyor.
Başka bilmiyorum abey.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#12)  feraz » 20 Şub 2021 22:27

Eğer videodaki anlatılanı yaparsanız selenium kurabilirsiniz tam izlemedim ama anlatmış sardıra sardıra izlediğim kadarıyla.
Uygularsanız videodakini daha önceki verdiğim kodu deneyebilirsiniz.
Zaten bildiğim kadarıyla normal explorer kaldıramadığı için selenium yapmışlar.

https://www.youtube.com/watch?v=Qt9hVDsGZcw
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#13)  Levent145 » 20 Şub 2021 22:52

Tamam Hocam ben bir demeyeyim
Teşekkür ederim.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#14)  Levent145 » 21 Şub 2021 12:52

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: Tümünü seç
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
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#15)  bhcn » 21 Şub 2021 16:08

Merhaba,
Kod'un çalışmaması referans eksikliğinden kaynaklı olabilir. Kontrol edersiniz. (References-Microsoft internet controls)

Bu arada sadece kullanıcı girişi için bu işlemi yapıyorsanız, chrome tarayıcı eklentisi var, imacros adında. Kullanıcı girişi, form doldurma tarzı işlemleri kolaylıkla yapabilirsiniz.

Aşağıdaki şekilde kod çalışıyor.
Kod: Tümünü seç
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 Until IE.readyState = READYSTATE_COMPLETE And IE.Busy = False
    DoEvents
Loop

    IE.Document.getElementById("email").Value = "Kullanıcıadı"
    IE.Document.getElementById("password").Value = "Şifre"
    IE.Document.getElementsByClassName("btn btn-primary")(0).Click
   
End Sub
Kullanıcı avatarı
bhcn
Yeni Başlamış
 
Kayıt: 20 Nis 2015 13:28
Meslek: analist
Yaş: 39
İleti: 94
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#16)  Levent145 » 21 Şub 2021 16:48

Hocam çok teşekkür ederim .
Bende edge yüklü olduğu için sorun oluyor References-Microsoft internet controls işaretledim
imacros nedir nasıl yüklenir bilemediğimden onu yapamadım.
Aslında ilk aşamada chrome üzerinde çalıştırmaya çalışıyorum
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sitede Kullanıcı Adı ve Şifresini Otomatik Doldurma

İleti#17)  feraz » 21 Şub 2021 17:21

Rica ederim.Eğer başka yerdeki kullanıcı adınız hayalibey ise mesaj yazmıştım.Ordan bağlanıp ayarlayayım seleniumu.Burda özel mesaj olayı yok.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe