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





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Win32] гы 22.08.02 10:25  Число просмотров: 909
Автор: paganoid Статус: Member
<"чистая" ссылка>
Хыхых %) Интересный, конечно, подход, только вот маленький нюанс - функции execute в VBSCript не имеется ;)
<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-2020 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach