Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Пользователь


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

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


Лина17,

К сожалению CMD не позволит сделать подобный листинг, но могу предложить решение под WSH.

listing.vbs
Код: Выделить весь код
Dim InternetExplorer
Dim TimeSlideShow, Delay
TimeSlideShow = 5 'Задержка в листинге (сек.)
Delay = TimeSlideShow&"000"

Set InternetExplorer = New InternetExplorerClass
InternetExplorer.Application.Visible = True

InternetExplorer.Application.Navigate "http://www.yandex.ru" 'Ваша ссылка  
WScript.Sleep Delay
InternetExplorer.Application.Navigate "http://www.rambler.ru"
WScript.Sleep Delay
InternetExplorer.Application.Navigate "http://www.mail.ru"
WScript.Sleep Delay
InternetExplorer.Application.Navigate "http://forum.oszone.net/thread-179749.html"
WScript.Sleep Delay

Class InternetExplorerClass
    Public Application
    Private Sub Class_Initialize
        Set Application = WScript.CreateObject("InternetExplorer.Application", "InternetExplorer_")
    End Sub
End Class

Последний раз редактировалось deepred, 05-07-2010 в 09:12.

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:59, 04-07-2010 | #3