здраствуйте. взял пример как залогиниться на ЯНЕКСЕ, нашел как логин и пассворд вписывать но вот как и где найти чтобы кнопку нажать и войти, не понимаю
| Код |
|---|
Sub GoToWebSiteAndPlayAround()
Dim appIE As Object
Dim C1 As Object, E1 As Object, n1 As Integer
On Error Resume Next
Set appIE = CreateObject("InternetExplorer.Application")
If Err <> 0 Then Exit Sub
With appIE
.Navigate "https://eu.yl-griffin.com/tesco/"
Do While (.Busy Or .readyState <> 4): DoEvents: Loop
.Visible = True
Set E1 = .document.all("login-parent")
If Not E1 Is Nothing Then
Set E1 = Nothing
' INPUTs <>
Set C1 = .document.getElementsByTagName("INPUT")
C1("txtUserName").Value = "????????"
C1("txtPassword").Value = "???????"
For n1 = 1 To C1.Length
Set E1 = C1(n1 - 1)
If E1.Value = "btnLogin" Or E1.Value = "btnLogin" Then 'problemma tut
E1.Click
Do While (.Busy Or .readyState <> 4): DoEvents: Loop
Exit For
End If
Next n1
Set E1 = Nothing: Set C1 = Nothing
End If
.Quit
End With 'appIE
Set appIE = Nothing
End Sub |
