VBS скрипты

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
K
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 04.05.2004 (Вт) 5:34

VBS скрипты

Сообщение K » 04.05.2004 (Вт) 5:39

Извените за может быть столь глупый вопрос но есть ли какой нибуть способ запуска VBS скрипта с параметрами ...
Например: test.vbs парамерт
и этим параметром vbs оперирует по ходу выполнения программы
ну допустим это может быть имя файла который нужно удалить ..
Заранее благодарен за ответы .

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 04.05.2004 (Вт) 20:33

Да, есть.

К примеру wscript myfile.vbs param param1 param2'

А в самом скрипте есть объект (не поню, правда какой, то ли WSHShell то ли как так :)) который позволяет получать доступ к параметрам.

K
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 04.05.2004 (Вт) 5:34

Сообщение K » 05.05.2004 (Ср) 3:07

А примера ни у кого нету, или мож кто поможет, напишет масенький пример .. Об вознаграждении договоримся .

Vi
Постоялец
Постоялец
 
Сообщения: 739
Зарегистрирован: 25.01.2002 (Пт) 11:03
Откуда: Россия, Ижевск

Сообщение Vi » 05.05.2004 (Ср) 8:32

WScript.Arguments этот объект называется.

Код: Выделить всё
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
   WScript.Echo objArgs(I)
Next
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Сообщение Ruslan Demidow » 05.05.2004 (Ср) 10:13

Вот пример одного из моих скриптов (запускает программу, путь к которой указан в параметре "е" с задержкой перед запуском на N секунд, количество которых указано в параметре "d".

Т.е. запускаем C:\MyScript.vbs /e:"C:\Windows\notepad.exe" /d:10

Код: Выделить всё
Delay=Wscript.Arguments.Named.Item("d")
Exec=Wscript.Arguments.Named.Item("e")
Call Proba (exec,delay)

Sub Proba(program,delay)
if isempty(Delay)=true then
        delay=1
end if
if isempty(program)=true then
        exit sub
end if
delay=delay*1000

Wscript.Sleep  delay
   set WSHell=Wscript.CreateObject("WScript.Shell")
   program=""""&program&""""
   wshell.run(program)
End Sub

K
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 04.05.2004 (Вт) 5:34

Сообщение K » 05.05.2004 (Ср) 20:22

Спасибо за отзывы и примеры !!!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList