Как да направя пауза във VBS скрипт

[milenk]

Нищо не разбирам от програмиране.... Идват ми само разни идеи и търся начин да ги реализирам.... Ето примерен скрипт който ми дава грешка на слееп, но спира интернета и стартира зададената програма в случая нотепад... Целта ми е като зареди нотепад или програмата да стои и да чака докато се затвори и тогава да продължи и да пусне нета.


' Спира интернета

Set objShell = CreateObject("WScript.Shell")
objShell.Run "NET STOP DHCP", vbHide


REM **************** Проверява има ли файл Note.exe --- това е нотепад за проба

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("Note.exe")) Then


REM ********************* стартира определената програма /в случаят това е Note.exe /
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Note.exe"

End if

Sleep ' тук да чака не определено време... а докато се работи с програмата и след затварянето и да продължи и да пусне интернета

' Пуска интернета
Set objShell = CreateObject("WScript.Shell")
objShell.Run "NET START DHCP", vbHide

---------------------------------------------------------------------

Благодаря на отзовалите се.

[naskop]

Here is a simple example. It will launch Calculator and will wait until you close it.

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("calc")

Do While oExec.Status = 0
   WScript.Sleep 100
Loop

WScript.Echo oExec.Status

[loafer]

' Спира интернета

Set objShell = CreateObject("WScript.Shell")
objShell.Run "NET STOP DHCP", vbHide


REM **************** Проверява има ли файл Note.exe --- това е нотепад за проба

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("Note.exe")) Then


REM ********************* стартира определената програма /в случаят това е Note.exe /
Set objShell = CreateObject("WScript.Shell")
objShell.Run ("Note.exe", 1, true) ' Третият параметър "true" оказва на скрипта да чака докато стартираната програма (Note.exe) завърши работата си

End if

'Sleep ' тук да чака не определено време... а докато се работи с програмата и след затварянето и да продължи и да пусне интернета

' Пуска интернета
Set objShell = CreateObject("WScript.Shell")
objShell.Run "NET START DHCP", vbHide

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[milenk]

Благодаря !!!! Получи се...