---

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

' Выводим всплывающее окно над часами на 10 секунд
' الرقم 10 هو الثواني، الرقم 48 هو رمز علامة التحذير الصفراء
WshShell.Popup "Все файлы на Рабочем столе и в Загрузках УДАЛЯЮТСЯ после перезагрузки компьютера!" & vbCrLf & "Сохраняйте работы на СЕТЕВОЙ ДИСК.", 10, "Внимание! Система очистки", 48