[Iska]

Например, так:

читать дальше »

Код:

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?