web site otomatik login

[mrkaan]

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]

Aşağıdakinin yerine;

IE.Document.forms(0).submit

Bunu kullanın;

IE.Document.all("action").Click

.

 

[mrkaan]

teşekkür ederim çalıştı

 

[mrkaan]

peki bunu google chromeda yapabilirmiyim haluk bey