Что нового

[Сеть, интернет] Работа с обектом Shell.Explorer.2

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Всем привет :smile:
У меня есть скрипт:
Код:
Dim $Created[5]
	$Created[0] = ObjCreate("Shell.Explorer.2")
	$Created[1] = GUICreate($Name, 50, 50, -1, -1)
	$Created[2] = GUICtrlCreateObj($Created[0], -50, -50, 40, 40)
	$Created[0].navigate($URL_INI)
              GUISetState(@SW_HIDE)


1. Мне нужно получить список ссылок из загруженного сайта.
2. Нужно чтоб скрипт тормозил призагрузки страници, а уже после продолжал.

Зарание спс
 

Redline

AutoIT Гуру
Сообщения
506
Репутация
369
Ganibal95 [?]
1. Мне нужно получить список ссылок из загруженного сайта.
Код:
#include <GUIConstants.au3>
$URL_INI = 'www.yandex.ru'
Dim $Created[5]
$Created[0] = ObjCreate('Shell.Explorer.2')
$Created[1] = GUICreate('Bulk', 500, 500)
$Created[2] = GUICtrlCreateObj($Created[0], 5, 5, 490, 490)
$Created[0].navigate($URL_INI)
While $Created[0].readyState <> 4
	Sleep(100)
WEnd
$oLinks = $Created[0].document.links
For $oLink In $oLinks
	ConsoleWrite($oLink.href & @CRLF)
	ConsoleWrite($oLink.innerText & @CRLF)
Next
GUISetState()

While 1
	$hMsg = GUIGetMsg()
	Select
		Case $hMsg = $GUI_EVENT_CLOSE
			Exit
	EndSelect
WEnd

Второй пункт распознать не удалось... печатайте внятнее
 
Верх