Pasha_ZZZ
Platinum Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Option Explicit
Dim IE, HtmDoc
Sub WaitAndSet(ElName, ElValue)
Dim InpEl
Set InpEl = Nothing
Do
WScript.Sleep 100
Set InpEl = HtmDoc.getElementByID(ElName)
Loop Until Not (InpEl Is Nothing)
WScript.Sleep 500
If ElValue<>"click" Then
InpEl.innerText = ElValue
Else
InpEl.click
End If
End Sub
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://portal52.is-mis.ru/#!/office/!/"
Do While IE.readyState <> 4
WScript.Sleep 100
Loop
Set HtmDoc = IE.document
Do While HtmDoc.readyState <> "complete"
WScript.Sleep 100
Loop
WaitAndSet "authDocumentNumber", "1234567890123456"
WaitAndSet "birthDate", "12"
WaitAndSet "month", "34"
WaitAndSet "year", "5678"
WaitAndSet "doAuth", "click" |
