Главная страница
Главная страница
Поиск по сайту
Каталог файлов
Гостевая книга
Новости сайта
Лента новостей
Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.*
*Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная".
Поиск по сайту  RSS канал 
Меню
Мини чат
Реклама


VIP Партнеры


Кланы и Команды



Статистика

Статистика пользователей

   Всего:
   Новых за месяц: 0
   Новых за неделю: 0
   Новых вчера: 0
   Новых сегодня: 0


Счетчик стран

Страны

Счетчики

  
  

Посетители

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Просмотров: 622 Просмотров данной публикации: 622 Комментарии: 0 Комментариев к данной публикации: (0)

Создаём файл
On Error Resume Next
set fso = CreateObject("Scripting.FileSystemObject")
set ts = fso.OpenTextFile("C:\Файл.vbs", 8, true, -2)
ts.WriteLine "Инфа"
ts.CLOSE
Скрываем файл
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Файл.vbs")
file.Attributes = 2

Добавил: RealHackerПубликацию добавил: RealHacker Дата: 29.11.2011Дата добавления публикации: 29.11.2011


Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Профиль


Top 5
    TOP Пользователей
    vasiliy_petrov245
    Сообщений: 433
    Комментариев: 0
    stepakov
    Сообщений: 428
    Комментариев: 0
    HACKERus
    Сообщений: 95
    Комментариев: 0
    vaskas122
    Сообщений: 79
    Комментариев: 0
    www1
    Сообщений: 63
    Комментариев: 0