VBNet - Форум - Выполнение программы в скрытом режима

Вопрос: Выполнение программы в скрытом режима Добавлено: 06.03.08 09:28

Автор вопроса: lexit

Имеется программа, которая запускает приложение в командной строке, допустим rsh дожидается завершения работы и выводит результат... как скрыть окно командной строки в таком случае?
Вот такой фрагмент кода

Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&
Public Sub ExecCmd(cmdline$)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
' Инициализируем структуру STARTUPINFO:
start.cb = Len(start)
' Запускаем приложение:
ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
' Ждем завершения запущенного приложения:
ret& = WaitForSingleObject(proc.hProcess, INFINITE)
ret& = CloseHandle(proc.hProcess)
End Sub

saverun = "cmd.exe /c rsh " + ip + " -l" + " " + User + " " + Text2.Text + " >c:\log\log.txt"

'Shell saverun
ExecCmd (saverun)

Какие параметры нужно поменять???
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #1	Добавлено: 06.03.08 09:47
	Dim start As STARTUPINFO ' Инициализируем структуру STARTUPINFO: start.cb = Len(start) Попробуй посмотреть что за поля в STARTUPINFO Ответить

Номер ответа: 2 Автор ответа: lexit Вопросов: 4 Ответов: 3	Профиль \| \| #2	Добавлено: 06.03.08 10:11
	Хм.... а что там за поля? Ответить

Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #3	Добавлено: 06.03.08 10:58
	hStdInput и hStdOutput Ответить

Номер ответа: 4 Автор ответа: lexit Вопросов: 4 Ответов: 3	Профиль \| \| #4	Добавлено: 06.03.08 11:55
	Дак в этом и вопрос какое значение им дать? Ответить

Номер ответа: 5 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #5	Добавлено: 06.03.08 17:09
	ну почитай что ли. http://msdn2.microsoft.com/en-us/library/ms686331(VS.85).aspx Ответить

Номер ответа: 6 Автор ответа: Harter Вопросов: 32 Ответов: 167	Профиль \| \| #6	Добавлено: 07.03.08 22:38
	VB Script тебе в помошь... Ответить

Номер ответа: 7 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #7	Добавлено: 09.03.08 12:04
	А при чем тут VBScript, если не секрет? Ответить

Номер ответа: 8 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #8	Добавлено: 09.03.08 20:05
	ПОСКАЛЬ вам в помощь)) Ответить

Страница: 1 |