Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
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:
уже нашёл, может кому пригодиться »
Из пушки по воробьям.

Отправлено: 08:32, 18-04-2014 | #4