[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 пока нет »

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