Помощь - Поиск - Пользователи - Календарь
Полная версия: Bat без дос-окна
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Другие языки
willhunting
Есть батник, который подключает сетевой диск. Лежит он в автозагрузке. При старте, соответственно, запускается дос-окно. Нужно что бы окно не всплывало.
Lapp
Если оно будет в минимизированном виде - устроит?
volvo
Можно попробовать скрыть полностью, но для этого вызывать этот bat придется из VBscript-а:

Set WshShell = CreateObject("WScript.Shell")  
WshShell.Run "F:\Test\test.bat", 0, false
Set WshShell = Nothing
WScript.Quit
willhunting
Цитата(volvo @ 26.01.2009 10:34) *

Можно попробовать скрыть полностью, но для этого вызывать этот bat придется из VBscript-а:

Set WshShell = CreateObject("WScript.Shell")  
WshShell.Run "F:\Test\test.bat", 0, false
Set WshShell = Nothing
WScript.Quit


тут получается смена "шила на мыло" тогда нужно скрывать скрипт ? ))

Код

Если оно будет в минимизированном виде - устроит?



как реализовать ?

volvo
Цитата
тогда нужно скрывать скрипт ? ))
А ты запускал его, прежде чем спросить? Что, при выполнении VB-скрипта появляется окно? С каких пор?
Lapp
Цитата(willhunting @ 26.01.2009 11:07) *
как реализовать ?
Сделать шорткат на него и всвойствах шортката выбрать
Run: minimized
willhunting
Цитата(volvo @ 26.01.2009 11:26) *

А ты запускал его, прежде чем спросить? Что, при выполнении VB-скрипта появляется окно? С каких пор?

нет, не запускал. Как его хоть запустить ? smile.gif
vb-скрипты не писал. Скрипт вставляется в программу(написанную на VB) ?
Unconnected
Цитата
нет, не запускал. Как его хоть запустить ?


Даблкликом левой кнопки мыши smile.gif Vb-скрипт, насколько помню, файл с расширением .vbs и значком свитка. Только вот у многих антивирусов они подозрение вызывают...
willhunting
СПАСИБО ВСЕМ
действительно скрипт работает
willhunting
А можно ли как-нибудь обойтись одним скриптом без батника ? Т.е. текст bat'a прописать в скрипте. А то неудобно иметь два файла.
volvo
Ты батник-то покажи, мало ли что там у тебя делается...
willhunting
Цитата(volvo @ 3.02.2009 13:48) *

Ты батник-то покажи, мало ли что там у тебя делается...

вот он:
Код

net use o: /d
net use o: \\db-meds\promis
volvo
Попробуй:
Set objShell = CreateObject("WScript.Shell")

objShell.Run "%COMSPEC% /c net use o: /d", 0, false
objShell.Run "%COMSPEC% /c net use o: \\db-meds\promis", 0, false

Set objShell = Nothing
WScript.Quit
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.