Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Последовательное открытие веб-станиц (http://forum.oszone.net/showthread.php?t=246983)

mostovaya 15-11-2012 09:36 2025879

Последовательное открытие веб-станиц
 
Помогите, пожалуйста, блондинке :)
Нужно реализовать в ВАТ такую задачу
1. Запуск веб-странички-1 в любом браузере (желательно в IE)
2. Пауза 10 сек.
3. Запуск веб-странички-2 в том же браузере
4. Дождаться полной загрузки (остановки) веб-странички-2 (очень важно так как страничка содержит довольно много больших изображений а скорость интернета не ахти :(
5. Пауза 10 сек.
6. Закрыть браузер
7. Повторить цикл
Заранее благодарю за помощь и предоставленный код для ВАТ :)

RostVY 15-11-2012 12:37 2025987

Код:

start http://google.com
sleep 10
start http://forum.oszone.net
sleep 10
taskkill /F /IM iexplore.exe


mostovaya 15-11-2012 13:41 2026030

спс но мне надо чтобы после
Код:

start http://forum.oszone.net
скрипт ждал пока полностю не загрузиться страница и браузер остановиться - время может быть разное не угадаешь
что посоветуете?

Iska 15-11-2012 13:47 2026034

mostovaya, сделать это извне в рамках заданной категории представляется достаточно проблематичным.

Можно сделать сие в WSH или PoSH. Вас это устроит?

mostovaya 15-11-2012 13:56 2026040

я - блондинка :)

ничего кроме ВАТ походу и не знаю

как с ними работать?

Iska 15-11-2012 15:45 2026127

Например, так:
читать дальше »
Код:

Option Explicit

Const READYSTATE_COMPLETE = 4

Dim strAddress


Do
        With WScript.CreateObject("InternetExplorer.Application")
                .Visible = True
               
                For Each strAddress In Array("http://www.google.com", "http://www.ya.ru")
                        .Navigate strAddress
                       
                        Do
                                WScript.Sleep 100
                        Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
                Next
               
                WScript.Sleep 1000
               
                .Quit
               
        End With
Loop ' Данный цикл никогда не завершится

WScript.Quit 0


Сохранить в файл с расширением «.vbs» и запустить.

Какова глобальная цель оных действий, mostovaya?


Время: 07:14.

Время: 07:14.
© OSzone.net 2001-