powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Залогинится на сайте на Excel
12 сообщений из 12, страница 1 из 1
Залогинится на сайте на Excel
    #39781639
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте.
Пытаюсь залогинится на сайте, однако не знаю как через код ввести пароль, логин и нажать на кнопку Login
Сайт https://www.hcdistrictclerk.com/eDocs/Secure/Registration.aspx
Открыл его код, а там функции прописаны, короче я с таким не связывался ранее. Теги для полей пароля, логина не могу найти.
Работаю в Excel через vba, естественно

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub rrr()
    Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application")
    Dim doc As HTMLDocument
    objIe.Visible = 1
 
    objIe.Navigate txtAddress
    Do
        DoEvents
    Loop Until objIe.ReadyState = 4
    
    Set doc = objIe.Document
 '   doc.getElementsByName("Name").Item(0).Value = txtLogin
 '  doc.getElementsByName("passwd").Item(0).Value = txtPassword
    doc.querySelector(".serp-header__nav>form").submit
End Sub
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39781902
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сева Новгородцев,

Нужно кролить страницу. HTMLDocument, на сколько я знаю, не дружит с XPath, да и селектор работает на уровне одного нода. По сему нужно парсить вручную. Если будет время, то вечером сделаю набросок.
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39782142
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Буду ждать как манну небесную...
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39782298
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сева Новгородцев,

Кролить там оказалось нечего. Все весьма просто.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub LoginWebpage()

Dim objIe As Object
Dim doc As HTMLDocument

Set objIe = CreateObject("InternetExplorer.Application")
objIe.Visible = 1
objIe.Navigate "https://www.hcdistrictclerk.com/eDocs/Secure/Registration.aspx"

Do
    DoEvents
Loop Until objIe.ReadyState = 4

Set doc = objIe.Document
Set doc = doc.frames("ctl00_ctl00_ctl00_TopLoginIFrame1_iFrameContent2").Document
doc.getElementById("txtUserName").innerText = "Test"
doc.getElementById("txtPassword").innerText = "Test"
doc.getElementById("btnLoginImageButton").Click

End Sub
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39782672
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо огромное!
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39782698
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Последний вопрос: открывать браузер в видимом режиме необходимо? Или можно как-то скрытно сделать?
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39782726
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сева Новгородцев,

По идее должно работать:

Код: vbnet
1.
objIe.Visible = False



Только не забудьте потом закрыть браузер.

Код: vbnet
1.
objIe.Quit
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39782738
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СПАСИБО!!!
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39784070
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте ещё раз.
Прошу опять помощи с этим сайтом.
Теперь, не могу нажать на ссылку "Search Our Records & Documents".
Прочитал в коде элемента:
Код: html
1.
2.
3.
4.
5.
6.
<a id="ctl00_ctl00_ctl00_ContentPlaceHolder1_ucQuickLinks_HyperLink9"
 title="Search Our Records&amp;Documents"
 href="Search.aspx"><img id="ctl00_ctl00_ctl00_ContentPlaceHolder1_ucQuickLinks_image4"
 src="../../Images/Icons/Icon_Search_small.gif"
 alt="Search Our Records&amp;Documents"
 style="border-width:0px;"></a>



Но обратится по этому ID не получается.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
    Dim objIe As Object
    Dim doc As HTMLDocument

    Set objIe = CreateObject("InternetExplorer.Application")
    objIe.Visible = 1
'    objIe.Visible = False
    objIe.Navigate txtPage
    
    Do
        DoEvents
    Loop Until objIe.ReadyState = 4
    
    Set doc = objIe.document
    Set doc = doc.frames("ctl00_ctl00_ctl00_TopLoginIFrame1_iFrameContent2").document
    
    If Not doc Is Nothing Then
        doc.getElementById("txtUserName").innerText = txtLogin
        doc.getElementById("txtPassword").innerText = txtPassword
        doc.getElementById("btnLoginImageButton").Click
    End If
    
    Set doc = objIe.document
    Set doc = doc.getElementById("sidebarContent1")
    
    doc.getElementById("ctl00_ctl00_ctl00_ContentPlaceHolder1_ucQuickLinks_qlSearchOurRecords").Click
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39784120
Сева Новгородцев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попытался по другому обратится:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
    Set doc = objIe.document
    Set doc = doc.getElementById("sidebarContent1")
    
    For Each ele In doc.getElementsByTagName("tr")(3).getElementsByTagName("td")(1)   '.getElementsByTagName("a")
        If ele.href = "Search.aspx" Then
            ele.Click
        End If
    Next


но, безрезультатно.
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39784123
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Залогинится на сайте на Excel
    #39784303
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сева Новгородцев,

А что Вы там такое делаете? Может сразу открывать нужную ссылку, а потом логиниться?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Option Explicit

Sub LoginWebpage()

Dim objIe As Object
Dim doc As HTMLDocument
Dim elem As IHTMLElement

Set objIe = CreateObject("InternetExplorer.Application")
objIe.Visible = True
objIe.Navigate "https://www.hcdistrictclerk.com/eDocs/Secure/Registration.aspx"

Do
    DoEvents
Loop Until objIe.ReadyState = 4

Set doc = objIe.document
Set doc = doc.frames("ctl00_ctl00_ctl00_TopLoginIFrame1_iFrameContent2").document

If Not doc Is Nothing Then
    doc.getElementById("txtUserName").innerText = "test"
    doc.getElementById("txtPassword").innerText = "test"
    doc.getElementById("btnLoginImageButton").Click
End If

Do
    DoEvents
Loop Until objIe.ReadyState = 4

Set doc = objIe.document
doc.getElementById("ctl00_ctl00_ctl00_ContentPlaceHolder1_ucQuickLinks_qlSearchOurRecords").Click

End Sub
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Залогинится на сайте на Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]