Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.* *Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная". |
|
|
|
Всего: Новых за месяц: 0 Новых за неделю: 0 Новых вчера: 0 Новых сегодня: 0
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
|
|
| Просмотров данной публикации: 1515 | | Комментариев к данной публикации: (0) |
Set S = CreateObject("Wscript.Shell") do execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop
если хотите чтобы писк был один раз то надо убрать оператор do,loop Set S = CreateObject("Wscript.Shell")
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
|
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|
|
|