Запуск процесса с помощью WScript.Shell

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

здравствуйте если в бат файл записать:

Visual Basic

1	Print #1, ".\smartid_sample.exe " & Chr$(34) & sFP & Chr$(34) & " ..\data-zip\bundle_passport_drvlicrus.zip > output.txt"

и выполнить его то нужное мне действие происходит
если пробую:

Visual Basic

1
2
3

ChDrive "C"
ChDir "C:\SmartIDReader\bin"
CreateObject("WScript.Shell").Run "" & "C:\SmartIDReader\bin\smartid_sample.exe " & Chr$(34) & sFP & Chr$(34) & " ..\data-zip\bundle_passport_drvlicrus.zip > output.txt" & ""

то процесс в консоли запускается, а нужного результата нет, почему? где то ошибся? или неправильный подход? спасибо

@Homarty · 07.05.2017, 20:06

Смотрите документацию к программе, может быть пропущен какой-нибудь разделяющий пробел или символ.

@Ципихович Эндрю · 07.05.2017, 21:48 **[ТС]**

есть мнение, что будет так:

Visual Basic

1
2
3

ChDrive "C"
ChDir "C:\SmartIDReader\bin"
CreateObject("WScript.Shell").Run "" & "CMD /C C:\SmartIDReader\bin\smartid_sample.exe " & Chr$(34) & sFP & Chr$(34) & " ..\data-zip\bundle_passport_drvlicrus.zip > output.txt" & ""

ещё не проверял....

Dragokas · 10.05.2017, 17:02

Потому что знак > может обрабатывать только батник (то есть процесс cmd.exe).
Во втором примере вы скармливаете этот знак программе smartid_sample.exe. Разумеется, она не знает, что с ним делать.

P.S. Вопрос стоило адресовать на форум по Visual Basic 6, а не Batch.

Добавлено через 2 минуты
Интересующий вас код на VB6 я уже выкладывал с использованием пайпов в этой теме: Как организовать обмен данными с Шахматным Движком?

@Ципихович Эндрю · 10.05.2017, 19:04 **[ТС]**

может

Сообщение от Dragokas

знак >

заменить на что-то другое, на что? сложновато по выложенной ссылке на топик

Dragokas · 10.05.2017, 19:44

Если сложно, можете решить задачу в одну строку:

Visual Basic

1	MsgBox CreateObject("WScript.Shell").Exec("cmd.exe /c echo 123").StdOut.ReadAll()

cmd.exe /c echo 123 замените на свою программу

@Ципихович Эндрю · 11.05.2017, 03:51 **[ТС]**

только не понял, зачем здесь нужен

Сообщение от Dragokas

MsgBox

???

Сообщение от Dragokas

cmd.exe /c echo 123 замените на свою программу

то есть будет так?

Visual Basic

1
2

MsgBox CreateObject("WScript.Shell").Exec("" & "CMD /C C:\SmartIDReader\bin\smartid_sample.exe " & Chr$(34) & sFP & Chr$(34) & " ..\data-zip\bundle_passport_drvlicrus.zip > output.txt" & ""
).StdOut.ReadAll()

Dragokas · 11.05.2017, 04:04

Всё не так.
Зачем CMD, зачем знак >

Visual Basic

1	MsgBox CreateObject("WScript.Shell").Exec("C:\SmartIDReader\bin\smartid_sample.exe " & """" & sFP & """" & "" ..\data-zip\bundle_passport_drvlicrus.zip").StdOut.ReadAll()

Добавлено через 41 секунду

Сообщение от Ципихович Эндрю

только не понял, зачем здесь нужен

Затем, чтобы показать что это работает. Мне лень писать код записи в файл. Сами напишете.

@Ципихович Эндрю · 11.05.2017, 04:38 **[ТС]**

Сообщение от Dragokas

MsgBox CreateObject("WScript.Shell").Exec("C:\SmartIDReader\bin\smartid_sample.exe " & """" & sFP & """" & "" ..\data-zip\bundle_passport_drvlicrus.zip").StdOut.ReadAll()

извините, что надо подправить-пишет Синтаксическая ошибка

Dragokas · 11.05.2017, 17:04

Visual Basic

Option Explicit
 
Private Sub Form_Load()
    Dim CMDLine         As String
    Dim Program         As String
    Dim Arg             As String
    Dim ResultFile      As String
    Dim sFP             As String
    Dim sResult         As String
    Dim ff              As Long
    
    sFP = "??????????" '// TODO
    
    ResultFile = "output.txt"
    Program = "C:\SmartIDReader\bin\smartid_sample.exe"
    Arg = """" & sFP & """" & " " & "..\data-zip\bundle_passport_drvlicrus.zip"
    
    CMDLine = Program & " " & Arg
    
    ChDrive "C"
    ChDir "C:\SmartIDReader\bin"
    
    sResult = CreateObject("WScript.Shell").Exec(CMDLine).StdOut.ReadAll()
    
    ff = FreeFile()
    
    Open ResultFile For Output As #ff
        Print #ff, sResult
    Close #ff
    
    CreateObject("Shell.Application").ShellExecute ResultFile, "", "", "", 1
End Sub

@Ципихович Эндрю · 11.05.2017, 18:01 **[ТС]**

Вы не поняли с

Сообщение от Dragokas

Open

и далее запись в батник и запуск этого батника у меня есть вариант и всё гут
просто подумал-зачем велосипед, думал без батников смд, а сразу Run и дело в шляпе

Dragokas · 11.05.2017, 18:14

В коде, приведённом выше, нет никаких батников.
Результат выполнения smartid_sample.exe сохраняется в текстовый файл, и затем этот файл открывается.

@Ципихович Эндрю · 11.05.2017, 18:52 **[ТС]**

добавил, подчеркнул
думал может без батников смд, текстовых файлов, а сразу Run и дело в шляпе.....

Dragokas · 11.05.2017, 19:10

Ну, я не экстрасенс. Техзадания не было. Как понял, так и написал.
Вы в первом посте что просите:

Сообщение от Ципихович Эндрю

и выполнить его то нужное мне действие происходит

Сообщение от Ципихович Эндрю

то процесс в консоли запускается, а нужного результата нет, почему?

там идёт запись в текстовый файл.

Вот я и написал, как вывести в текстовый файл.
Что такое нужное действие и нужный результат - только вы можете знать.

@fever brain · 19.05.2017, 07:08

хи-хи
Дракон, отвечаю, он еще раз выскажеться, посмотрим......

Добавлено через 4 минуты
Я ЗА РЕШКОЙ ......... если что ))

@Ципихович Эндрю 1390 / 531 / 67 Регистрация: 10.04.2009 Сообщений: 8,727
	11.05.2017, 18:52 [ТС]	13
	добавил, подчеркнул думал может без батников смд, текстовых файлов, а сразу Run и дело в шляпе..... 0

@fever brain oh my god 1454 / 793 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	19.05.2017, 07:08	15
	хи-хи Дракон, отвечаю, он еще раз выскажеться, посмотрим...... Добавлено через 4 минуты Я ЗА РЕШКОЙ ......... если что )) 0

@Homarty 141 / 119 / 29 Регистрация: 12.02.2017 Сообщений: 308
	07.05.2017, 20:06	2
	Смотрите документацию к программе, может быть пропущен какой-нибудь разделяющий пробел или символ. 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	10.05.2017, 17:02	4
	Потому что знак > может обрабатывать только батник (то есть процесс cmd.exe). Во втором примере вы скармливаете этот знак программе smartid_sample.exe. Разумеется, она не знает, что с ним делать. P.S. Вопрос стоило адресовать на форум по Visual Basic 6, а не Batch. Добавлено через 2 минуты Интересующий вас код на VB6 я уже выкладывал с использованием пайпов в этой теме: Как организовать обмен данными с Шахматным Движком? 0

@Ципихович Эндрю 1390 / 531 / 67 Регистрация: 10.04.2009 Сообщений: 8,727
	10.05.2017, 19:04 [ТС]	5
	может Сообщение от Dragokas знак > заменить на что-то другое, на что? сложновато по выложенной ссылке на топик 0

@Ципихович Эндрю 1390 / 531 / 67 Регистрация: 10.04.2009 Сообщений: 8,727
	11.05.2017, 04:38 [ТС]	9
	Сообщение от Dragokas MsgBox CreateObject("WScript.Shell").Exec("C:\SmartIDReader\bin\smartid_sample.exe " & """" & sFP & """" & "" ..\data-zip\bundle_passport_drvlicrus.zip").StdOut.ReadAll() извините, что надо подправить-пишет Синтаксическая ошибка 0

@Ципихович Эндрю 1390 / 531 / 67 Регистрация: 10.04.2009 Сообщений: 8,727
	11.05.2017, 18:01 [ТС]	11
	Вы не поняли с Сообщение от Dragokas Open и далее запись в батник и запуск этого батника у меня есть вариант и всё гут просто подумал-зачем велосипед, думал без батников смд, а сразу Run и дело в шляпе 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	11.05.2017, 18:14	12
	В коде, приведённом выше, нет никаких батников. Результат выполнения smartid_sample.exe сохраняется в текстовый файл, и затем этот файл открывается. 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	11.05.2017, 19:10	14
	Ну, я не экстрасенс. Техзадания не было. Как понял, так и написал. Вы в первом посте что просите: Сообщение от Ципихович Эндрю и выполнить его то нужное мне действие происходит Сообщение от Ципихович Эндрю то процесс в консоли запускается, а нужного результата нет, почему? там идёт запись в текстовый файл. Вот я и написал, как вывести в текстовый файл. Что такое нужное действие и нужный результат - только вы можете знать. 0