Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Mike909

Новый участник


Сообщения: 38
Благодарности: 14

Профиль | Отправить PM | Цитировать


Вот так примерно:

Код: Выделить весь код
#include <IE.au3>

Local $oIE, $oLinks, $tags
Local $link = "http://www.example.com/"
_IEErrorNotify(False)

; Открываем IE
If  IsObj($oIE) Then
   _IEQuit($oIE)
EndIf   
$oIE=_IECreate($link,1,0,1)    

ConsoleWrite ( $link & @LF)
_IENavigate($oIE, $link, 0)       ; тут не ждем пока загрузится
_IELoadWait($oIE, 5000 , 15000)      ;  а тут ждем максимум 15 сек
        
If not @error Then        
                    $tags = $oIE.document.GetElementsByTagName("title")        
                    if  IsObj($tags) Then
                        ConsoleWrite ('tags=' & $tags.Length & @LF)
                        Sleep(200)
                        For $tag in $tags                         
                            $class_value = $tag.className
                            $innerText_value = _IEPropertyGet($tag, 'innertext')
                            ConsoleWrite ('innerText_value=' & $innerText_value &@LF)                       
                        Next
                    Else
                       ConsoleWrite ('tags no obj' & @LF)
                    EndIf
EndIf

If IsObj($oIE) Then
   _IEQuit($oIE)
EndIf
ConsoleWrite ("Exit au3." & @LF)

Последний раз редактировалось Mike909, 04-04-2017 в 15:11.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:12, 04-04-2017 | #2