Скачать: CL | DM;

Как дождаться завершения выполнения команды?   Найти похожие ветки 

← →
fag2000   (2004-05-07 13:13) [0]

Вот пример кода, извените, что на VB, который вроде нормально дожидается завершения исполняемых файлов. А вот если ему подсунуть например vbs, то он SEI.hProcess возвращает 0 и соответственно ничего не дожидается. Не подскажите как с этим бороться?

Dim lExecResult As Long
Dim SEI As SHELLEXECUTEINFO
   If bSyncr Then
       With SEI
           .cbSize = Len(SEI)
           .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
           .hwnd = 0
           .lpVerb = "open"
           .lpFile = FilePath
           .lpParameters = vbNullChar
           .lpDirectory = vbNullChar
           .nShow = 0
           .hInstApp = 0
           .lpIDList = 0
       End With
       lExecResult = ShellExecuteEX(SEI)
       lExecResult = WaitForSingleObject(SEI.hProcess, INFINITE)
       lExecResult = CloseHandle(SEI.hProcess)


---

← →
Digitman ©   (2004-05-07 13:19) [1]

> подсунуть например vbs


чего-чего "подсунуть" ? кому "подсунуть" ? что есть вообще "подсунуть" ? что есть vbs ?

---

← →
Sergey_Masloff   (2004-05-07 13:43) [2]

Digitman ©   (07.05.04 13:19) [1]
Подсунуть файл со скриптом. Для Windows Script Host например. vbs это видимо имеется в виду файл VisualBasicScript.

fag2000  
Фиг знает. Надо подумать. Но не твоим способом - тут ты ждешь завершения процесса а со скриптом все не так...

---

← →
blackman ©   (2004-05-07 15:53) [3]

Просто не торопись :)

---

← →
fag2000   (2004-05-11 14:48) [4]

??

---

← →
fag2000   (2004-05-11 19:30) [5]

??

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c