[решено] помогите со скриптом для открытие-закрытие браузера

[johnson81]

Задача: открыть браузер на определенном сайте, подождать 10 секунд и закрыть браузер
помогите пожалуйста

[Iska]

Речь о каком-то конкретно взятом браузере?

[johnson81]

уже нашёл, может кому пригодиться

Const navOpenInBackgroundTab = &H1000

Set ie = CreateObject("InternetExplorer.Application")

Links = Array("http://ya.ru")

ie.Visible = True '// поставьте false, чтобы не было видно браузера

first = True
For Each link In Links
If first Then
ie.Navigate2 link
first = False
Else
ie.Navigate2 link, navOpenInBackgroundTab
End If
Next

WScript.Sleep(10000) '// Задержка 10 сек.

For Each Window In CreateObject("Shell.Application").Windows
With Window
If .Name = "Internet Explorer" Then
For Each link In Links
If InStr(1, .LocationURL, Title, vbTextCompare) <> 0 Then
.Quit
Exit For
End If
Next
End If
End With
Next

[Iska]

Option Explicit

Const READYSTATE_COMPLETE = 4

With WScript.CreateObject("InternetExplorer.Application")
.Navigate "http://www.ya.ru"

Do
WScript.Sleep 100
Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE

WScript.Sleep 10 * 1000

.Quit
End With

WScript.Quit 0

уже нашёл, может кому пригодиться »
Из пушки по воробьям.

[johnson81]

Ваш код не работает
Из пушки по воробьям. »

[Iska]

Ваш код не работает »
Мой код — работает.

[johnson81]

на моей windows 8.1 вообще 0 реакции на Ваш скрипт, нажимаешь по нему и ничего не происходит
Мой код — работает. »

[yurfed]

на моей windows 8.1 »А с какого перепугу вы решили что все знают что у вас Win8 и должны на ней протестить.
Вы же не сказали ничего!!!
Если нужно, могу экзешник состряпать. Только дайте полный путь до браузера.
Прицепил файлик.
Учитывая что у вас C:\Program Files\Internet Explorer\iexplore.exe

[Iska]

на моей windows 8.1 вообще 0 реакции на Ваш скрипт, нажимаешь по нему и ничего не происходит »
Для наблюдения видимой «реакции» добавьте выделенное:
Option Explicit

Const READYSTATE_COMPLETE = 4

With WScript.CreateObject("InternetExplorer.Application")
.Visible = True

.Navigate "http://www.ya.ru"

Do
WScript.Sleep 100
Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE

WScript.Sleep 10 * 1000

.Quit
End With

WScript.Quit 0
Видимость окна приложения на искомый результат не влияет.

А с какого перепугу вы решили что все знают что у вас Win8 и должны на ней протестить. »
Ну, у меня ни Windows 8.1, ни Windows 8 нет. У меня даже Windows 7 пока нет ;).

[yurfed]

Ну, у меня ни Windows 8.1, ни Windows 8 нет. У меня даже Windows 7 пока нет »Да и вопрос пока ни к тебе :)
Добавлю, у меня протестилось на семёрке. Некоторые, параноидальные антивирусы на этот скрипт могут неадекватно среагировать.
Опс, не прикрепился файлик в моём предыдущем сообщении. Сейчас исправим.
Ходил на кладбище, поправить, покрасить и тд, всё бегом. Даже не посмотрел что отправил. Извиняюсь.

[johnson81]

большое спасибо за скрипт, Ваш лучше, тот который привёл я в итоге почему то висел после обработки в диспетчере, а Ваш закрывается корректно ! СУПЕР
Для наблюдения видимой «реакции» добавьте выделенное: »