web site otomatik login

Katılım
10 Ocak 2011
Mesajlar
48
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
29/12/2022
arkadaşlar bu kodla ıd password dolduruyor ama login tusuna basmıyor ne yapmam lazım otomatik açması için

Sub giris()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "https://earsivportal.efatura.gov.tr/intragiris.html"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("userid").Value = Cells(1, "a")
IE.Document.all("password").Value = Cells(1, "b")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Aşağıdakinin yerine;

C++:
IE.Document.forms(0).submit

Bunu kullanın;

C++:
IE.Document.all("action").Click

.
 
Katılım
10 Ocak 2011
Mesajlar
48
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
29/12/2022
teşekkür ederim çalıştı
 
Katılım
10 Ocak 2011
Mesajlar
48
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
29/12/2022
peki bunu google chromeda yapabilirmiyim haluk bey
 
Üst