Конфигурация пользователя - Админ шаблоны - Рабочий стол - Рисунок рабочего стола Active desktop
Цитата n978143:
если у кого-то из женщин (да и мужиков) стоят свои обои, которые будут удалены твоим "поздравлением", люди обидятся. »
|
- вот это првильный ход мысли. Задолбетесь потом ихних кошочек и собачек искать. Похерите весь праздник - особо нервным.
Если уж вам не нравится msgbox ом поздравлять - лучше тогда запустить какую то страничку.
А вот как это?
Код:
If Not Left(Date(), 2) = "06" then
WScript.Quit()
End if
Set WshNetwork = CreateObject("WScript.Network")
MsgBox "Дорогая " & WshNetwork.UserName &"!!! " & VbCrLf _
& "Любимая компания поздравляет Вас c 8 Марта!!!" & VbCrLf _
& ""& vbCrLf _
& "----------------------------------8888----------------------------"& vbCrLf _
& "-------------------------------88------88-------------------------"& vbCrLf _
& "------------------------------88--------88------------------------"& vbCrLf _
& "---------------------------------88--88---------------------------"& vbCrLf _
& "-----------------------------------888----------------------------"& vbCrLf _
& "-------------------------------88------88-------------------------"& vbCrLf _
& "-----------------------------88----------88-----------------------"& vbCrLf _
& "-----------------------------88----------88-----------------------"& vbCrLf _
& "-------------------------------88------88-------------------------"& vbCrLf _
& "-----------------------------------888----------------------------"& vbCrLf _
& "-888--------888------8888----8888888---888888888----8888"& vbCrLf _
& "-88-88---88-88----88----88--88-----88-------88--------88-----88"& vbCrLf _
& "-88-88---88-88----8888888--8888888-------88--------88888888"& vbCrLf _
& "-88---888----88---88-----88--88--------------88--------88------88"& vbCrLf _
Посмотрел на тему и сварганил за пол часа - картинку вытянул из нета - гугл рулит.