VBS/WSH/JS

Iska · Отправлено: **20:44, 15-05-2018** | #2

Sisin, а разве может быть в пути ссылки #? Он же якорь обозначает.

Sisin · Отправлено: **10:30, 16-05-2018** | #3

Цитата Iska:

Sisin, а разве может быть в пути ссылки #? Он же якорь обозначает. »

Видимо якорь подняли)))
У Икеи весь каталог с "#". Например:
https://www.ikea.com/ru/ru/catalog/p...95/#/S69281696

Iska · Отправлено: **11:41, 16-05-2018** | #4

Sisin, спасибо за ссылку, получается, что могут.

Хмм… Вот это:

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4


With WScript.CreateObject("InternetExplorer.Application")
	'.Visible = False
	.Visible = True
	.Navigate "https://www.ikea.com/ru/ru/catalog/products/S69251595/#/S69281696"
	
	Do 
		WScript.Sleep 100
	Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
End With

WScript.Quit 0

у меня под IE9 отрабатывает вполне корректно.

Sisin · Отправлено: **12:24, 16-05-2018** | #5

Цитата Iska:

у меня под IE9 отрабатывает вполне корректно. »

У меня тоже, спасибо.

Только добавил, чтобы можно было несколько вкладок открывать:

Код:

Option Explicit

Const navOpenInNewTab         = &H00800
Const navOpenInBackgroundTab  = &H01000
Const navOpenNewForegroundTab = &H10000
Const READYSTATE_COMPLETE = 4

With WScript.CreateObject("InternetExplorer.Application")
 '.Visible = False
 .Visible = True
 .Navigate "https://www.ikea.com/ru/ru/catalog/products/S69251595/#/S69281696"
 .Navigate2 "https://www.ikea.com/ru/ru/catalog/products/S69251595/#/S69281696", navOpenInNewTab	
Do 
 WScript.Sleep 100
 Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
End With

WScript.Quit 0

Iska · Отправлено: **12:28, 16-05-2018** | #6

Sisin, для информации: а до того под каким IE Вы пробовали?

Sisin · Отправлено: **12:49, 16-05-2018** | #7

Цитата Iska:

Sisin, для информации: а до того под каким IE Вы пробовали? »

И тогда и сейчас IE11.

Iska · Отправлено: **12:52, 16-05-2018** | #8

Sisin, а почему ж тогда у Вас с первым кодом не сложилось:

Цитата Sisin:

Из-за того, что в ссылке "#" - ссылка не читается. »

? По факту ведь отличий от второго — нет ничего.

Sisin · Отправлено: **13:01, 16-05-2018** | #9

Цитата Iska:

? По факту ведь отличий от второго — нет ничего. »

Все дело в строчках ~~Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE.~~
Const READYSTATE_COMPLETE = 4
Do
WScript.Sleep 100
Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE

Без них не работает.

Iska · Отправлено: **13:20, 16-05-2018** | #10

Да ладно… У меня и без них работает. Браузер-то никуда не девается, в худшем случае потребуется немного подождать, пока не пройдёт загрузка.

Или это у Вас только начало скрипта, а дальше идёт работа с содержимым загруженной страницы? Тогда — да, иначе никак (ну, или тупо пауза/задержка в надежде, что страница успеет загрузится за указанное в паузе время).

В принципе, указанный подход хорошо работает на достаточно простых страницах. Хуже, когда там AJAX'а напихано по самое «мама не балуй». Тогда, бывает так, что и уже .Busy ложно, и .ReadyState равно READYSTATE_COMPLETE, но затем страница асинхронно продолжает подгружаться новыми запросами, и требуется энное число раз делать такие циклы Do…Loop через промежуточные паузы, дабы дождаться окончательной подгрузки страницы. Проще всего, когда на сайте есть какая-нибудь lite или мобильная версия страницы, на которых AJAX не используется — возни меньше, а результат тот же.