помогите со скриптом для открытие-закрытие браузера
Задача: открыть браузер на определенном сайте, подождать 10 секунд и закрыть браузер
помогите пожалуйста
|
Речь о каком-то конкретно взятом браузере?
|
уже нашёл, может кому пригодиться
Код:
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
|
Код:
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
уже нашёл, может кому пригодиться »
|
Из пушки по воробьям. |
на моей windows 8.1 вообще 0 реакции на Ваш скрипт, нажимаешь по нему и ничего не происходит
|
А с какого перепугу вы решили что все знают что у вас Win8 и должны на ней протестить.
Вы же не сказали ничего!!!
Если нужно, могу экзешник состряпать. Только дайте полный путь до браузера.
Прицепил файлик.
Учитывая что у вас C:\Program Files\Internet Explorer\iexplore.exe |
Цитата:
Цитата johnson81
на моей 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
Видимость окна приложения на искомый результат не влияет.
Цитата:
Цитата yurfed
А с какого перепугу вы решили что все знают что у вас Win8 и должны на ней протестить. »
|
Ну, у меня ни Windows 8.1, ни Windows 8 нет. У меня даже Windows 7 пока нет ;). |
Цитата:
Цитата Iska
Ну, у меня ни Windows 8.1, ни Windows 8 нет. У меня даже Windows 7 пока нет »
|
Да и вопрос пока ни к тебе :)
Добавлю, у меня протестилось на семёрке. Некоторые, параноидальные антивирусы на этот скрипт могут неадекватно среагировать.
Опс, не прикрепился файлик в моём предыдущем сообщении. Сейчас исправим.
Ходил на кладбище, поправить, покрасить и тд, всё бегом. Даже не посмотрел что отправил. Извиняюсь.
|
большое спасибо за скрипт, Ваш лучше, тот который привёл я в итоге почему то висел после обработки в диспетчере, а Ваш закрывается корректно ! СУПЕР
Цитата:
Цитата Iska
Для наблюдения видимой «реакции» добавьте выделенное: »
|
|
Время: 13:24.
© OSzone.net 2001-
