Otomatik Şifre Doldurma Tarayıcı Açma

P

payanda

Katılım
29 Mayıs 2018
Mesajlar
1
Excel Vers. ve Dili
2017 Türkçe
Merhabalar,

Kullandığım Excel dosyamda tıkladığım satıra göre otomatik şifre dolduruyor fakat internet explorer artık hata vermeye başladı aşağıdaki formüle chrome yada Edge açtırabilmem için nasıl bir değişiklik yapmam gereklidir.




Kod: 
Private Sub CommandButton1_Click()

On Error Resume Next

Dim objIE As InternetExplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

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

Set objIE = New InternetExplorerMedium
objIE.navigate "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap" 'url

objIE.Visible = 1

Do While objIE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

Set HTMLdoc = objIE.document

HTMLdoc.getElementById("j_username").Value = Sayfa1.Cells(sat, "d") 'tc yazıldı

HTMLdoc.getElementById("isyeri_kod").Value = Sayfa1.Cells(sat, "e") 'işyeri kodu

HTMLdoc.getElementById("j_password").Value = Sayfa1.Cells(sat, "f") 'şifre

HTMLdoc.getElementById("isyeri_sifre").Value = Sayfa1.Cells(sat, "g") 'şifre

    Set htmlColl = HTMLdoc.getElementsByTagName("input")
    Set a = HTMLdoc.getElementsByClassName("submitButton")
   
    For Each htmlInput In a
        If Trim(htmlInput.Type) = "submit" Then
            htmlInput.Click 'giriş butonuna tıklandı
            Exit For
        End If
    Next htmlInput
   
End Sub
 
Son düzenleme:
K

Kumpasta

Altın Üye
Katılım
28 Nisan 2016
Mesajlar
186
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
05-12-2025
Merhaba.
Aşağıdaki kod işinizi görebilir diye düşünüyorum.
C++: 
Private Sub CommandButton1_Click()

On Error Resume Next

Dim objIE As ChromeDriver
Dim sat As Long

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

Set objIE = New ChromeDriver
objIE.Url = "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"

objIE.Manage.Window.Maximize

objIE.FindElementById("j_username").SendKeys Sayfa1.Cells(sat, "d")
objIE.FindElementById("isyeri_kod").SendKeys Sayfa1.Cells(sat, "e")
objIE.FindElementById("j_password").SendKeys Sayfa1.Cells(sat, "f")
objIE.FindElementById("isyeri_sifre").SendKeys Sayfa1.Cells(sat, "g")

objIE.FindElementByClassName("submitButton").Click

End Sub
 
F

fouur

Katılım
5 Ekim 2021
Mesajlar
10
Excel Vers. ve Dili
2019-TR
Kumpasta' Alıntı:
Merhaba.
Aşağıdaki kod işinizi görebilir diye düşünüyorum.
C++: 
Private Sub CommandButton1_Click()

On Error Resume Next

Dim objIE As ChromeDriver
Dim sat As Long

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

Set objIE = New ChromeDriver
objIE.Url = "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"

objIE.Manage.Window.Maximize

objIE.FindElementById("j_username").SendKeys Sayfa1.Cells(sat, "d")
objIE.FindElementById("isyeri_kod").SendKeys Sayfa1.Cells(sat, "e")
objIE.FindElementById("j_password").SendKeys Sayfa1.Cells(sat, "f")
objIE.FindElementById("isyeri_sifre").SendKeys Sayfa1.Cells(sat, "g")

objIE.FindElementByClassName("submitButton").Click

End Sub
Genişletmek için tıkla ...
Merhaba,
Bir çalışmamda tarayıcıyı açıp, gerekli işlemleri yaptırıyorum. Ama tarayıcıyı
Kod: 
tarayici.wait 10000
kodu ile sınırlandırmayı biliyorum. Ancak bu hem bilgisayarı kasıyor hem de tarayıcı üzerindeki işlemlerim bitmeden sayacın süresi bitiyor ve kapanıyor.
İstediğim şu; tarayıcı kapatıldığında makro dursun. Bunun için ilgili kodu bilmiyorum. If senaryosunu nasıl yazacağımı bilmiyorum. Yardımcı olabilir misiniz?
 
K

Kumpasta

Altın Üye
Katılım
28 Nisan 2016
Mesajlar
186
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
05-12-2025
Sanırım bu istediğinizi karşılayacaktır.
Kod: 
Private Sub CommandButton1_Click()

On Error Resume Next

Dim objIE As ChromeDriver
Dim sat As Long

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

Set objIE = New ChromeDriver
objIE.Url = "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap"

objIE.Manage.Window.Maximize

objIE.FindElementById("j_username").SendKeys Sayfa1.Cells(sat, "d")
objIE.FindElementById("isyeri_kod").SendKeys Sayfa1.Cells(sat, "e")
objIE.FindElementById("j_password").SendKeys Sayfa1.Cells(sat, "f")
objIE.FindElementById("isyeri_sifre").SendKeys Sayfa1.Cells(sat, "g")

objIE.FindElementByClassName("submitButton").Click

Do While objIE.IsBusy Or objIE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

objIE.Quit
Set objIE = Nothing

End Sub
 
F

fouur

Katılım
5 Ekim 2021
Mesajlar
10
Excel Vers. ve Dili
2019-TR
Hata aldım.

f3gzwww.png

ff
www.hizliresim.com www.hizliresim.com

Benim kodlarım şu şekilde;
Kod: 
Sub tirGonderimi()
Dim tarayici As New Selenium.WebDriver
tarayici.Start "Chrome"
tarayici.Get "https://..."
tarayici.FindElementByXPath("/html/body/form/div[1]/ul/li[3]/div/div[1]/span[1]/input").SendKeys Range("B1").Value 'düzenleyen ad
tarayici.FindElementByXPath("/html/body/form/div[1]/ul/li[3]/div/div/span[2]/input").SendKeys Range("C1").Value 'düzenleyen soyad
tarayici.FindElementByXPath("/html/body/form/div[1]/ul/li[5]/div/input").SendKeys Range("B2").Value 'araç türü
tarayici.FindElementByXPath("/html/body/form/div[1]/ul/li[6]/div/input").SendKeys Range("B3").Value 'araç plakası
tarayici.FindElementByXPath("/html/body/form/div[1]/ul/li[7]/div/input").SendKeys Range("B4").Value 'şoför adı
tarayici.Wait 10000
End Sub
 
K

Kumpasta

Altın Üye
Katılım
28 Nisan 2016
Mesajlar
186
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
05-12-2025
Http protokolü yazılmadığı için olabilir
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst