Тема: VBScript: очистка экрана консоли (аналог CLS/Clear Screen)
Процедура «CLS» демонстрирует очистку экрана консоли — по аналогии с командой «CLS» (Clear Screen) в пакетных файлах:
Option Explicit
WScript.Echo "Первая строка"
WScript.Echo "Вторая строка"
WScript.Echo "Третья строка"
WScript.Sleep 3000
CLS
WScript.Echo "Четвёртая строка"
WScript.Echo "Пятая строка"
WScript.Echo "Шестая строка"
WScript.Sleep 3000
WScript.Quit 0
'=============================================================================
'=============================================================================
Sub CLS()
Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2
With WScript.CreateObject("WScript.Shell").Exec("mode.com con: lines=0")
If .Status <> WshFailed Then
If .Status = WshRunning Then
Do Until .Status = WshFinished
.StdOut.ReadAll
.StdErr.ReadAll
WScript.Sleep 100
Loop
End If
End If
End With
End Sub
'=============================================================================
Автор идеи — wisgest. Отдельное спасибо — Rumata.