ИНТЕРРЕКЛАМА - профессиональная раскрутка
Elefffant->Нападение->Учимся писать на VBS

Здесь я вам раскажу о самых основах VBS.

Чтобы писать на vbs практически ничего не надо. Самое главное это то чтобы на компьютере был установлен Windows9x-XP, и не был удален notepad %WinDir%\notepad.exe или был установлен любой другой редактор текстовых файлов.

Для начала научимся выдавать пользователю сообщение:

Message = MsgBox("В этих кавычках пишется текст сообщения",20,"Название сообщения ")

20-Это дизайн сообщения (наличие кнопок ДА, НЕТ, ОТМЕНА, и т.д.)
Теперь будем учится работать с файлами:

1 Запуск файлов

Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub runfile(F,W)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(F,W)
End Sub
Call runfile("полный_путь_к_файлу",true)

2 Удаление файлов

Set DelFile=CreateObject("Scripting.FileSystemObject")
DelFile.DeleteFile("полный_путь_к_файлу")

Работа с реестром

1 Пишем в реестр.

set regedit=CreateObject("WScript.Shell")
regedit.RegWrite("путь_к_ключю", "значение_ключа")

2 Удаляем из реестра

set regedit=CreateObject("WScript.Shell")
regedit.RegDelete("путь_к_ключю")


HaOs Web-design studio All right reserved © 2002
Rambler's Top100
Сайт управляется системой uCoz