On Error Resume Next Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = true 'Если в скрытом режиме - false objIE.Navigate "http://rambler.ru" While objIE.Busy WScript.Sleep 200 Wend WScript.Sleep 60000 'интервал равный 1-ой минуте (пауза) 'objIE.Quit 'Если надо закрыть браузер - сними коментарий в начале строки Set objIE = Nothing Wscript.Quit ' -выход
PHP: PHP: <?php $f = file("sites.txt"); while(1) { foreach($f as $site) { file_get_contents(trim($site)); sleep(1); } sleep(5); } И на html'e можно: PHP: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <title>Refresher</title> <meta http-equiv="Refresh" content="5; URL=" /> <style> iframe{ heigth: 100px; width: 100px; } </style> </head> <body> <center>В работе...</center> <!-- Тут ссылки, смотри примеры--> <iframe src="http://mail.ru"></iframe> <iframe src="http://google.ru"></iframe> </body> </html> ссылки расположишь вида: PHP: <iframe src="http://ссылко"></iframe> Страница будет обновляться каждые 5 секунд