Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Shell CMD дождаться завершения / 11 сообщений из 11, страница 1 из 1
22.05.2011, 15:34
    #37273282
imishe
imishe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
Здравствуйте форумчане.
Всё что есть на форуме по этому поводу уже читал. Взятое с форума в 2008 студии работать не хочет.
Необходимо:
1. Запустить CMD (Shell("cmd /c ipconfig /all")
2. Дождаться окончания этого процесса.
Заранее благодарю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2011, 21:33
    #37273539
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
imishe,
Код: plaintext
1.
2.
3.
4.
5.
Dim sh As Object
Set sh = CreateObject("WScript.Shell")
sh.Run "cmd /c ipconfig /all & pause",  1 , - 1 
MsgBox "good!"
Set sh = Nothing
Объект WshShell
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2011, 21:49
    #37273551
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
скукотища,

а разве не так:
sh.Run "cmd /c ipconfig /all" & pause", 1, -1
как из этого:
Синтаксис:

Run(<Command>,<WindowStyle>,<WaitOnReturn>)

Назначение: создаёт новый независимый процесс, который запускает заданное приложение.

Параметры:

<Command> - строка, командная строка запуска приложения.
<WindowStyle> - необязательный, число. Определяет вид окна запускаемого приложения. Некоторые возможные значения:
0 - Не отображает окно.
1 - Активизирует и отображает окно.
2 - Активизирует окно и отображает его в свёрнутом виде.
3 - Активизирует окно и отображает его в максимизированном виде.
<WaitOnReturn> - необязательный, булево (число). True - сценарий возобновит работу только после завершения вызванного процесса. False (по умолчанию) - управление передаётся сразу обратно в сценарий.

можно увидеть и записать так: pause, 1, -1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2011, 22:01
    #37273557
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
Ципихович Эндрюа разве не так:
Код: plaintext
sh.Run "cmd /c ipconfig /all" & pause",  1 , - 1
не так

Ципихович Эндрюможно увидеть и записать так:
Код: plaintext
pause,  1 , - 1
можно. Но ТС надо было ipconfig
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 11:20
    #37274035
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
надо просто вывод команды в файл сделать и всё прочитать из файла


Код: plaintext
ipconfig /all >out.txt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 12:53
    #37274273
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
imisheНеобходимо:
1. Запустить CMD (Shell("cmd /c ipconfig /all")
2. Дождаться окончания этого процесса.А может, разумнее получить необходимые данные иными методами (скажем, через WMI) и не использовать костыли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 22:01
    #37275432
imishe
imishe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
Спасибо большое всем за ответы. Я не очень понятно сформулировал вопрос за и что прошу прощения.
На месте ipconfig например может быть ping c выводом в файл (как написал Konst_One) и никто не знает как быстро отработает этот пинг. 4-6-8 секунд? Так вот есть ли возможность отследить этот открытый процесс и уже дождавшись его завершения чего то там делать (с тем же выводом в файл). Иначе же файла просто нет, или он занят.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 22:23
    #37275466
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
imisheТак вот есть ли возможность отследить этот открытый процесс и уже дождавшись его завершения чего то там делать (с тем же выводом в файл).Смотри внимательно на последний параметр команды Run.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 22:38
    #37275489
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
imisheТак вот есть ли возможность отследить ...Для консольных приложений 10691103 .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 22:39
    #37275490
OLEG_ZH
OLEG_ZH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
Асинхронный запуск приложения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2011, 22:48
    #37275500
imishe
imishe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shell CMD дождаться завершения
[quot скукотища]imishe,
[src VB]Dim sh As Object
Set sh = CreateObject("WScript.Shell")
sh.Run "cmd /c ipconfig /all & pause", 1, -1
MsgBox "good!"
Set sh = Nothing

Действительно good ))
Спасибо всем еще раз!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Shell CMD дождаться завершения / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 591ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158697]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 162ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 336ms
total:  591ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]