Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Залогинится на сайте на Excel / 12 сообщений из 12, страница 1 из 1
03.03.2019, 21:52
    #39781639
Сева Новгородцев
Сева Новгородцев
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Здравствуйте.
Пытаюсь залогинится на сайте, однако не знаю как через код ввести пароль, логин и нажать на кнопку 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
| Ответить | Цитировать | Написать  
04.03.2019, 13:40
    #39781902
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Сева Новгородцев,

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

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

Код: 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
| Ответить | Цитировать | Написать  
05.03.2019, 18:44
    #39782672
Сева Новгородцев
Сева Новгородцев
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Спасибо огромное!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2019, 19:44
    #39782698
Сева Новгородцев
Сева Новгородцев
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Последний вопрос: открывать браузер в видимом режиме необходимо? Или можно как-то скрытно сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2019, 22:37
    #39782726
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Сева Новгородцев,

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

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



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

Код: vbnet
1.
objIe.Quit
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2019, 23:19
    #39782738
Сева Новгородцев
Сева Новгородцев
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
СПАСИБО!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2019, 15:24
    #39784070
Сева Новгородцев
Сева Новгородцев
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Здравствуйте ещё раз.
Прошу опять помощи с этим сайтом.
Теперь, не могу нажать на ссылку "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
| Ответить | Цитировать | Написать  
09.03.2019, 20:04
    #39784120
Сева Новгородцев
Сева Новгородцев
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Попытался по другому обратится:
Код: 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
| Ответить | Цитировать | Написать  
09.03.2019, 20:08
    #39784123
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
 
не по теме
http://tsya.ru/
http://tsya.ru/mnemonic.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.03.2019, 19:55
    #39784303
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залогинится на сайте на Excel
Сева Новгородцев,

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

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Залогинится на сайте на Excel / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 425ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2154934]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 278ms
total:  425ms
x
x
Закрыть


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