информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Атака на InternetСетевые кракеры и правда о деле ЛевинаПортрет посетителя
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Вызов др файла VBS 21.08.02 23:02  Число просмотров: 1442
Автор: + <Mikhail> Статус: Elderman
<"чистая" ссылка>
Ideia takaia:
file1:
test.vbs
dim f, sz 

Set f = CreateObject("Scripting.FileSystemObject")

set sz = f.OpenTextFile("foo.vbs")

execute sz.ReadAll()


---
file2:
foo.vbs
msgbox "from foo.vbs"

---

Nu a vse ostalnoe tvoe delo kak zamutit1 vyzov funkcii i t.d. , t.k ty imeesh code tam mozhesh iskat1 po imeni ili schitaesh linii v file i estestvenno znaesh gde kakai funkcia na kakoi linii nahoditsia, voobchem dal`she delo tehniki.
<programming>
Вызов др файла VBS 21.08.02 14:34  
Автор: ASJinx Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Можноли на vbs вызвать процедуру из другого файла vbs или исполнение другого файла vbs.
Например
123.vbs
----
какой то код
вызов 567.vbs
какой то код
---

567.vbs
-----
какой то код
----
Как сделать этот вызов и вообще это возможно?
Вызов др файла VBS 02.09.02 22:44  
Автор: :-) <:-)> Статус: Elderman
<"чистая" ссылка>
Я так понимаю что с простым вызовом любого исполняемого/зарегистрированного в shell типа файла, в том числе и .vbs проблем возникнуть не должно :)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run("script2.vbs")

---

А чтобы вызывать отдельные ф-ии из других .vbs/.js, можно сделать основной скрипт в формате .wsf:
-----main.wsf-----
<package>
    <job id="Main">
        <script language="VBScript" src ="subs.vbs">
           WScript.Echo "Calling subs from subs.vbs"
           Sub1
           Sub2
        </script>
    </job>
</package>

---
-----subs.vbs-----
SUB Sub1
  MsgBox "Hello from Sub 1"
END SUB

SUB Sub2
  MsgBox "Hello from Sub 2"
END SUB

---
Вызов др файла VBS 21.08.02 23:02  
Автор: + <Mikhail> Статус: Elderman
<"чистая" ссылка>
Ideia takaia:
file1:
test.vbs
dim f, sz 

Set f = CreateObject("Scripting.FileSystemObject")

set sz = f.OpenTextFile("foo.vbs")

execute sz.ReadAll()


---
file2:
foo.vbs
msgbox "from foo.vbs"

---

Nu a vse ostalnoe tvoe delo kak zamutit1 vyzov funkcii i t.d. , t.k ty imeesh code tam mozhesh iskat1 po imeni ili schitaesh linii v file i estestvenno znaesh gde kakai funkcia na kakoi linii nahoditsia, voobchem dal`she delo tehniki.
[Win32] гы 22.08.02 10:25  
Автор: paganoid Статус: Member
<"чистая" ссылка>
Хыхых %) Интересный, конечно, подход, только вот маленький нюанс - функции execute в VBSCript не имеется ;)
[Win32] гы 22.08.02 21:56  
Автор: + <Mikhail> Статус: Elderman
Отредактировано 22.08.02 22:10  Количество правок: 3
<"чистая" ссылка>
> Хыхых %) Интересный, конечно, подход, только вот маленький
> нюанс - функции execute в VBSCript не
> имеется ;)
1. execute eto ne function eto statement
see link.
2. Ty by hot` poproboval snachalo, a potom vozmuchalsia.

P.S. kstati execute suchestvuet v VBScriptnachinaia s Version 1.

Execute Statement
полностью признаю свою ошибку 23.08.02 10:22  
Автор: paganoid Статус: Member
<"чистая" ссылка>
> > Хыхых %) Интересный, конечно, подход, только вот
> маленький
> > нюанс - функции execute в VBSCript
> не
> > имеется ;)
> 1. execute eto ne function eto statement
> see link.
> 2. Ty by hot` poproboval snachalo, a potom vozmuchalsia.
>
> P.S. kstati execute suchestvuet v
> VBScriptnachinaia s Version 1.

Слушай, действительно,я был не прав. А execute я в MSDN искал, не нашел :( (т.ч. я все же попытался проверить)

Спасибо огромное.
Проверим 23.08.02 15:06  
Автор: ASJinx Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Шас проверю. Если пашет то столько проблем решится. Сянкс.
Вызов др файла VBS 21.08.02 14:50  
Автор: paganoid Статус: Member
<"чистая" ссылка>

> Как сделать этот вызов и вообще это возможно?

По ходу, нельзя (сам бьюсь над этой проблемой). Есть обходной способ - написать на VBScript COM компоненту 567.wsc и вызывать ее через CreateObject.
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach