Amostra de waitforexit da rede de vb
Vb waitforexit sample
Renomeie TestService. vb e TestService. exe. config para & lt; YourServiceName & gt;.vb e & lt; YourServiceName & gt;.exe. config (sem espaços no nome, por favor) Faça uma pesquisa / substituição em todas as instâncias da string "TestService" em & lt; YourServiceName & gt;.vb para nomear seu serviço. Use o mesmo & lt; YourServiceName & gt; como na etapa 1 Defina a conta do processo de serviço (Me. ServiceProcessInstaller1.Account) como "ServiceAccountworkService", "ServiceAccount. LocalService", "ServiceAccount. LocalSystem" ou "ServiceAccount. User" de acordo com seu design de segurança. Observe que as contas NetworkService e LocalService podem precisar de permissões explícitas de leitura / execução de NTFS na pasta que contém os arquivos de serviço para que o serviço possa iniciar Set ActionInterval no arquivo. config. Isso determina o intervalo em segundos entre a execução do código de carga útil do serviço Adicione seu código e funções ao & lt; YourServiceName & gt;.vb. A execução da carga útil começa na função RunPayload () Execute o Compile. vbs para criar o & lt; YourServiceName & gt;.exe Execute o ServiceInstall. vbs para instalar o serviço Procure no log de eventos do aplicativo Windows mensagens do serviço TestService. vb.
'1. Renomeie TestService. vb e TestService. exe. config para & lt; YourServiceName & gt;.vb e & lt; YourServiceName & gt;.exe. config (sem espaços no nome, por favor)
2. Faça uma pesquisa / substituição em todas as instâncias da cadeia "TestService" neste arquivo de origem para nomear seu serviço. Use o mesmo & lt; YourServiceName & gt; como no passo 1.
3. Defina a conta do processo de serviço (Me. ServiceProcessInstaller1.Account) como "ServiceAccountworkService", "ServiceAccount. LocalService", "ServiceAccount. LocalSystem" ou "ServiceAccount. User" de acordo com o design de segurança. Observe que as contas NetworkService e LocalService podem precisar de permissões explícitas de leitura / execução de NTFS na pasta que contém os arquivos de serviço para que o serviço possa ser iniciado.
'4. Defina ActionInterval no arquivo. config. Isso determina o intervalo em segundos entre a execução do código da carga útil do serviço.
5. Adicione o seu código e funções ao & lt; YourServiceName & gt;.vb. A execução da carga útil começa na função RunPayload ()
'6. Execute o Compile. vbs para criar o & lt; YourServiceName & gt;.exe.
'7. Execute o ServiceInstall. vbs para instalar o serviço. Há também um ServiceUnInstall. vbs correspondente que pode ser usado para desinstalar o serviço.
'8. Procure no log de eventos do aplicativo do Windows mensagens do serviço.
& lt; Assembly: AssemblyDescription ("Serviço de teste do Windows") & gt;
& lt; Assembly: AssemblyCopyright ("Copyright (C) MyCompanyName") & gt;
Private Shared PollingInterval As Integer = 10000.
Private Shared ActionInterval As Integer = ConfigurationManager. AppSettings ("ActionInterval")
Private Shared KeepRunning Como Boolean = True.
'Coloque seu código de carga útil de serviço e / ou chamadas de função aqui. Por exemplo:
WriteToEventLog ("Execução de carga útil do TestService", 1000)
Captura e como exceção.
WriteToEventLog ("Ocorreu um erro:" & amp; e. Message, 2000, EventLogEntryType. Error)
Dim WorkerThread como Thread = Novo Thread (AddressOf RunPayload)
WorkerThread. Name = "Thread de carga útil do TestService"
Dim LastActionTime como Data = DateAdd (DateInterval. Day, -1, Date. Now)
Do While KeepRunning.
Se DateDiff (DateInterval. Second, LastActionTime, Date. Now) & gt; = ActionInterval Então.
Entrada ByVal como String, _.
Opcional ByVal EventID As Integer = 0, _.
EventType ByVal Opcional Como EventLogEntryType = EventLogEntryType. Information, _.
Opcional ByVal AppName As String = "TestService", _.
Opcional ByVal LogName As String = "Application") Como Boolean.
Dim objEventLog como novo EventLog ()
If Not Diagnostics. EventLog. SourceExists (AppName) Então.
objEventLog. WriteEntry (Entry, EventType, EventID)
Captura Ex como exceção.
WriteToEventLog ("TestService starting", 1000)
ServiceThread = Novo Encadeamento (AddressOf RunScheduler)
ServiceThread. Name = "Encadeamento do agendador TestService"
WriteToEventLog ("TestService parando." & Amp; _.
"Por favor, note: o processo de trabalho irá durar até" & amp; _.
PollingInterval / 1000 & amp; "segundos antes de terminar.", 1000)
Public Class ProjectInstaller.
Me. ServiceProcessInstaller1 = Novo ServiceProcessInstaller.
Me. ServiceInstaller1 = Novo ServiceInstaller.
Amigo WithEvents ServiceProcessInstaller1 As ServiceProcessInstaller.
Friend WithEvents ServiceInstaller1 Como ServiceInstaller.
Classe Parcial TestService.
Substituições protegidas Sub Dispose (ByVal disposing As Boolean)
Se a eliminação de componentes AndAlso ainda não é nada.
Compartilhado Sub Main ()
Dim ServicesToRun () Como System. ServiceProcess. ServiceBase.
ServicesToRun = Novo System. ServiceProcess. ServiceBase ()
Private Sub InitializeComponent ()
components = Novo SystemponentModel. Container ()
& lt;! - ActionInterval é o intervalo em segundos entre a execução da carga útil do serviço. Mínimo é de 10 segundos e por favor use múltiplos de 10 - & gt;
& lt; add key = "ActionInterval" value = "600" / & gt;
Se WScript. Arguments. Length = 0 então.
Definir objShell = CreateObject ("Shell. Application")
objShell. ShellExecute "wscript. exe", Chr (34) & amp; WScript. ScriptFullName & amp; Chr (34) & amp; "" "" & amp; strCurPath & amp; "" "", "", "runas", 1.
strPathToInstallUtil = GetNewestInstalledFrameworkPath () & amp; "\ installutil. exe"
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Definir objFolder = objFs. GetFolder (strCurPath)
For Each objFile em objFolder. Files.
If Right (objFile. Name, 4) = ".exe" Então.
strCommandOutput = "Resumo da instalação do serviço:" & amp; vbcrlf & amp; vbcrlf.
strCommandOutput = strCommandOutput & amp; runCMD (strPathToInstallUtil & amp; "" & amp; strInstallOptions & amp; "" "" & amp; strCurPath & amp; "\" & amp; objFile. Name & amp; "" "")
strCommandOutput = strCommandOutput & amp; runCMD ("NET START" e Substituir (objFile. Name, ".exe", ""))
Se strCommandOutput & lt; & gt; "" Então.
Definir objShell = Wscript. CreateObject ("WScript. Shell")
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Definir objFolder = objFs. GetFolder (strCurPath)
For Each objFile em objFolder. Files.
If Right (objFile. Name, 4) = ".exe" Então.
Se blnExeFound = False Então 'Nenhum arquivo exe encontrado na pasta de serviços. Execute o script de compilação para gerá-lo.
objShell. Run "Compile. vbs", 1, verdadeiro.
Definir objShell = Nothing.
Definir objFs = Nothing.
Definir objFolder = Nothing.
Definir objWsh = CreateObject ("Wscript. Shell")
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Array ("Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v4 \ Full \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v2.0.50727 \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v4 \ Full \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v2.0.50727 \ Install")
Para i = 0 a Ubound (strArrayPaths)
Se objFs. FileExists (strArrayPaths (i) & amp; "\ installutil. exe") Então.
On Error Resume Next.
Se objWsh. RegRead (strArrayRegKeys (i)) = 1 Então.
Se Err. number = 0 Then.
On Error Goto 0.
Definir objFs = Nothing.
Definir objWsh = Nothing.
Definir objWSHShell = WScript. CreateObject ("WScript. Shell")
On Error Resume Next.
GetOsMajorVersion = CInt (Esquerda (objWSHShell. RegRead ("HKLM \ Software \ Microsoft \ Windows NT \ CurrentVersion \ CurrentVersion"), 1))
Se err. number & lt; & gt; 0 então.
On Error Goto 0.
Dim objShell, objExec, strOut.
Definir objShell = WScript. CreateObject ("WScript. Shell")
Defina objExec = objShell. Exec (strRunCmd)
Do While Não objExec. StdOut. AtEndOfStream.
strOut = strOut & amp; objExec. StdOut. ReadLine () & amp; vbcrlf.
Definir objShell = Nothing.
Definir objExec = Nothing.
Se WScript. Arguments. Length = 0 então.
Definir objShell = CreateObject ("Shell. Application")
objShell. ShellExecute "wscript. exe", Chr (34) & amp; WScript. ScriptFullName & amp; Chr (34) & amp; "" "" & amp; strCurPath & amp; "" "", "", "runas", 1.
strPathToInstallUtil = GetNewestInstalledFrameworkPath () & amp; "\ installutil. exe"
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Definir objFolder = objFs. GetFolder (strCurPath)
For Each objFile em objFolder. Files.
If Right (objFile. Name, 4) = ".exe" Então.
strCommandOutput = "Resumo da desinstalação do serviço:" & amp; vbcrlf & amp; vbcrlf.
strCommandOutput = strCommandOutput & amp; runCMD ("NET STOP" e Substituir (objFile. Name, ".exe", ""))
strCommandOutput = strCommandOutput & amp; runCMD (strPathToInstallUtil & amp; "" & amp; strInstallOptions & amp; "" "" & amp; strCurPath & amp; "\" & amp; objFile. Name & amp; "" "")
Se strCommandOutput & lt; & gt; "" Então.
Definir objWsh = CreateObject ("Wscript. Shell")
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Array ("Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v4 \ Full \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v2.0.50727 \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v4 \ Full \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v2.0.50727 \ Install")
Para i = 0 a Ubound (strArrayPaths)
Se objFs. FileExists (strArrayPaths (i) & amp; "\ installutil. exe") Então.
On Error Resume Next.
Se objWsh. RegRead (strArrayRegKeys (i)) = 1 Então.
Se Err. number = 0 Then.
On Error Goto 0.
Definir objFs = Nothing.
Definir objWsh = Nothing.
Definir objWSHShell = WScript. CreateObject ("WScript. Shell")
On Error Resume Next.
GetOsMajorVersion = CInt (Esquerda (objWSHShell. RegRead ("HKLM \ Software \ Microsoft \ Windows NT \ CurrentVersion \ CurrentVersion"), 1))
Se err. number & lt; & gt; 0 então.
On Error Goto 0.
Dim objShell, objExec, strOut.
Definir objShell = WScript. CreateObject ("WScript. Shell")
Defina objExec = objShell. Exec (strRunCmd)
Do While Não objExec. StdOut. AtEndOfStream.
strOut = strOut & amp; objExec. StdOut. ReadLine () & amp; vbcrlf.
Definir objShell = Nothing.
Definir objExec = Nothing.
strPathToCompiler = GetNewestInstalledFrameworkPath () & amp; "\ vbc. exe"
strCompileOptions = "/ target: winexe / nologo"
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Definir objFolder = objFs. GetFolder (strCurPath)
For Each objFile em objFolder. Files.
Se a direita (objFile. Name, 3) = strSourceCodeExt Então.
strCommandOutput = runCMD (strPathToCompiler & amp; "/ out:" "" & amp; strCurPath & amp; "\" & amp; Esquerda (objFile. Name, InStr (objFile. Name, strSourceCodeExt)) & amp; "exe" & quot; strCompileOptions & amp; ; "" "" & amp; objFile. Name & amp; "" "")
Se strCommandOutput & lt; & gt; "" Então.
Definir objWsh = CreateObject ("Wscript. Shell")
Definir objFs = CreateObject ("Scripting. FileSystemObject")
Array ("Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v4 \ Full \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v2.0.50727 \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v4 \ Full \ Install", _.
"Instalação do HKLM \ Software \ Microsoft \ NET Framework \ NDP \ v2.0.50727 \ Install")
Vb waitforexit sample
Eu estou chamando um aplicativo de 3ª parte que 'às vezes' funciona em VB (é um WCF auto-hospedado). Mas, às vezes, o aplicativo de terceiros é interrompido para sempre, então adicionei um temporizador de 90 segundos a ele. O problema é, como eu sei se a coisa expirou?
Código parece com isso:
O que eu gostaria de fazer é algo assim.
Verifique o valor de retorno do método - msdn. microsoft/en-us/library/ty0d8k56.aspx - se a chamada expirou, ele retornará False.
Houve problemas conhecidos no passado em que os aplicativos congelavam ao usar o WaitForExit.
Exemplo de uso.
Eu resolvi assim:
Eu redirecionei tanto a entrada, saída e erro e lidou com a leitura de fluxos de saída e erro. Essa solução funciona para o SDK 7- 8,1, tanto para o Windows 7 quanto para o Windows 8.
Eu tentei fazer uma classe que resolveria seu problema usando leitura de fluxo assíncrona, levando em consideração Mark Byers, Rob, stevejay respostas. Ao fazer isso, percebi que há um erro relacionado à leitura do fluxo de saída do processo assíncrono.
Você não pode fazer isso:
Você receberá System. InvalidOperationException: StandardOut não foi redirecionado ou o processo ainda não foi iniciado.
Então você precisa iniciar a leitura assíncrona após o processo ser iniciado:
Fazendo isso, faça uma condição de corrida porque o fluxo de saída pode receber dados antes de defini-los como assíncronos:
Então, algumas pessoas podem dizer que você só precisa ler o fluxo antes de defini-lo como assíncrono. Mas o mesmo problema ocorre. Haverá uma condição de corrida entre a leitura síncrona e o fluxo em modo assíncrono.
Não há como obter uma leitura assíncrona segura de um fluxo de saída de um processo na maneira real como "Process" e "ProcessStartInfo" foram projetados.
Provavelmente, é melhor usar a leitura assíncrona, como sugerido por outros usuários para o seu caso. Mas você deve estar ciente de que pode perder alguma informação devido à condição de corrida.
Nenhuma das respostas acima está fazendo o trabalho.
A solução Rob trava e a solução 'Mark Byers' obtém a exceção descartada (tentei as "soluções" das outras respostas).
Então decidi sugerir outra solução:
Este código depurado e funciona perfeitamente.
Introdução.
A resposta aceita atualmente não funciona (gera exceção) e há muitas soluções alternativas, mas nenhum código completo. Isto é, obviamente, desperdiçando muito tempo das pessoas, porque esta é uma questão popular.
Combinando a resposta de Mark Byers e a resposta de Karol Tyl, escrevi o código completo com base em como eu quero usar o método Process. Start.
Eu usei-o para criar um diálogo de progresso em torno dos comandos do git. É assim que eu usei:
Em teoria, você também pode combinar stdout e stderr, mas eu não testei isso.
As outras soluções (incluindo EM0s) ainda estão em deadlock para meu aplicativo, devido a tempos limite internos e ao uso de StandardOutput e StandardError pelo aplicativo gerado. Aqui está o que funcionou para mim:
Editar: adicionada inicialização do StartInfo ao exemplo de código.
Este post talvez desatualizado, mas eu descobri a causa principal porque normalmente travar é devido ao estouro de pilha para a saída redirectStandard ou se você tiver redirectStandarderror.
Como os dados de saída ou os dados de erro são grandes, isso causará um tempo de interrupção, pois ainda está sendo processado por duração indefinida.
então, para resolver esse problema:
Eu acho que essa é uma abordagem simples e melhor (não precisamos do AutoResetEvent):
Eu estava tendo o mesmo problema, mas o motivo era diferente. No entanto, isso aconteceria no Windows 8, mas não no Windows 7. A linha a seguir parece ter causado o problema.
A solução foi NÃO desabilitar o UseShellExecute. Eu agora recebi uma janela popup do Shell, que é indesejada, mas muito melhor do que o programa esperando que nada de especial aconteça. Então eu adicionei a seguinte solução para isso:
Agora, a única coisa que me incomoda é por que isso está acontecendo no Windows 8 em primeiro lugar.
Eu sei que esta é a ceia de idade, mas, depois de ler esta página inteira, nenhuma das soluções estava funcionando para mim, embora eu não tenha tentado Muhammad Rehan como o código foi um pouco difícil de seguir, embora eu acho que ele estava no caminho certo . Quando eu digo que não funcionou isso não é inteiramente verdade, às vezes funcionaria bem, eu acho que é algo a ver com o comprimento da saída antes de uma marca EOF.
De qualquer forma, a solução que funcionou para mim foi usar diferentes threads para ler o StandardOutput e StandardError e escrever as mensagens.
Espero que isso ajude alguém, que pensou que isso poderia ser tão difícil!
Depois de ler todos os posts aqui, resolvi a solução consolidada de Marko Avlijaš. No entanto, isso não resolveu todos os meus problemas.
Em nosso ambiente, temos um serviço do Windows que está programado para executar centenas de arquivos. bat. cmd. exe diferentes. etc arquivos que se acumularam ao longo dos anos e foram escritos por muitas pessoas diferentes e em diferentes estilos. Nós não temos controle sobre a escrita dos programas & amp; scripts, somos responsáveis apenas pelo agendamento, execução e geração de relatórios sobre sucesso / falha.
Então eu tentei praticamente todas as sugestões aqui com diferentes níveis de sucesso. A resposta de Marko foi quase perfeita, mas quando executada como um serviço, nem sempre captava stdout. Eu nunca cheguei ao fundo do por que não.
Como usar o Process. Start no Visual Basic.
Quando você precisa iniciar outro aplicativo usando o código VB.
O método Start do objeto Process é, possivelmente, uma das ferramentas mais subestimadas disponíveis para um programador. Como método, Start tem uma série de sobrecargas, que são conjuntos diferentes de parâmetros que determinam exatamente o que o método faz. As sobrecargas permitem que você especifique praticamente qualquer conjunto de parâmetros que você queira passar para outro processo quando for iniciado.
O que você pode fazer com o Process. Start é realmente limitado apenas pelos processos que você pode usar com ele.
Se você deseja exibir o arquivo Leia-me baseado em texto no Bloco de notas, é tão fácil quanto:
Isso pressupõe que o arquivo LeiaMe está na mesma pasta que o programa e que o Bloco de Notas é o aplicativo padrão para os tipos de arquivo. txt e está no caminho do ambiente do sistema.
Process. Start semelhante ao comando shell no VB6.
Para programadores familiarizados com o Visual Basic 6, Process. Start é um pouco como o comando VB 6 Shell. No VB 6, você usaria algo como:
Usando Process. Start.
Você pode usar esse código para iniciar o Bloco de Notas maximizado e criar um objeto ProcessStartInfo que possa ser usado para um controle mais preciso:
Iniciando um processo oculto.
Você pode até iniciar um processo oculto.
Mas tenha cuidado. A menos que você adicione mais código para encerrar o processo, provavelmente será necessário finalizá-lo no Gerenciador de tarefas. Normalmente, os processos ocultos são usados apenas com processos que não possuem nenhum tipo de interface de usuário.
Recuperando o nome de um processo.
Trabalhar com Process. Start como um objeto lhe dá muita capacidade. Por exemplo, você pode recuperar o nome do processo que foi iniciado. Este código irá mostrar o & # 34; bloco de notas & # 34; na janela de saída:
Isso era algo que você não poderia fazer com o comando VB6 Shell porque ele lançava o novo aplicativo de forma assíncrona. Usando WaitForExit pode causar o problema inverso porque você tem que iniciar um processo em um novo segmento se você precisar que ele seja executado de forma assíncrona. Por exemplo, se você precisar que os componentes permaneçam ativos em um formulário em que um processo foi iniciado e WaitForExit foi executado. Normalmente, esses componentes não estarão ativos. Codifique e veja por si mesmo.
Uma maneira de forçar o processo a parar é usar o método Kill.
Esse código aguarda dez segundos e termina o processo.
Descobri que um atraso forçado era necessário para permitir que o processo fosse concluído para evitar um erro.
Na maioria dos casos, provavelmente é uma boa ideia colocar seu processamento em um bloco Using para garantir que os recursos usados pelo processo sejam liberados.
Para tornar tudo isso ainda mais fácil de se trabalhar, há até mesmo um componente Process que você pode adicionar ao seu projeto para que você possa fazer muitas das coisas mostradas acima em tempo de design em vez de tempo de execução.
Uma das coisas que isso facilita muito é codificar eventos gerados pelo processo, como o evento quando o processo foi encerrado. Você também pode adicionar um manipulador usando um código como este:
Mas simplesmente selecionar o evento para o componente é muito mais fácil.
Processo . Método WaitForExit (Int32)
A documentação de referência da API tem uma nova casa. Visite o Navegador da API em docs. microsoft para ver a nova experiência.
Instrui o componente Processo a aguardar o número especificado de milissegundos para o processo associado sair.
Assembly: System (no System. dll)
Parâmetros
O período de tempo, em milissegundos, para aguardar a saída do processo associado. O máximo é o maior valor possível de um inteiro de 32 bits, que representa infinito para o sistema operacional.
Valor de retorno.
true se o processo associado tiver saído; Caso contrário, false.
A configuração de espera não pôde ser acessada.
Nenhuma identificação de processo foi definida e uma Handle da qual a propriedade Id pode ser determinada não existe.
Não há processo associado a este objeto Process.
Você está tentando chamar WaitForExit (Int32) para um processo que está sendo executado em um computador remoto. Este método está disponível apenas para processos em execução no computador local.
WaitForExit (Int32) faz com que o segmento atual espere até que o processo associado termine. Deve ser chamado depois que todos os outros métodos forem chamados no processo. Para evitar o bloqueio do segmento atual, use o evento Exited.
Este método instrui o componente Process a aguardar uma quantidade finita de tempo para o processo sair. Se o processo associado não sair no final do intervalo porque a solicitação para finalizar é negada, false é retornado para o procedimento de chamada. Você pode especificar um número negativo (Infinito) por milissegundos e Processo. WaitForExit (Int32) se comportará da mesma maneira que a sobrecarga WaitForExit (). Se você passar 0 (zero) para o método, ele retornará true somente se o processo já tiver saído; caso contrário, retorna imediatamente false.
No Framework 3.5 e em versões anteriores, se milissegundos fosse -1, a sobrecarga WaitForExit (Int32) aguardava milissegundos MaxValue (aproximadamente 24 dias), não indefinidamente.
Quando a saída padrão foi redirecionada para manipuladores de eventos assíncronos, é possível que o processamento de saída não seja concluído quando esse método retornar. Para garantir que o tratamento assíncrono de eventos tenha sido concluído, chame a sobrecarga WaitForExit () que não recebe nenhum parâmetro após receber um valor verdadeiro dessa sobrecarga. Para ajudar a garantir que o evento Exited seja tratado corretamente nos aplicativos do Windows Forms, defina a propriedade SynchronizingObject.
Quando um processo associado sai (é desligado pelo sistema operacional por meio de uma finalização normal ou anormal), o sistema armazena informações administrativas sobre o processo e retorna ao componente que chamou WaitForExit (Int32). O componente de processo pode acessar as informações, que inclui o ExitTime, usando o identificador para o processo de saída.
Como o processo associado foi encerrado, a propriedade Handle do componente não aponta mais para um recurso de processo existente. Em vez disso, o identificador pode ser usado apenas para acessar as informações do sistema operacional sobre o recurso do processo. O sistema está ciente de identificadores para processos que não foram liberados pelos componentes do processo, portanto, ele mantém as informações de ExitTime e identificador na memória até que o componente de processo especificamente libera os recursos. Por esse motivo, sempre que você chamar a instância Start for Process, chame Close quando o processo associado tiver terminado e você não precisar mais de nenhuma informação administrativa sobre ele. Close libera a memória alocada para o processo finalizado.
Veja o exemplo de código para a propriedade ExitCode.
para confiança total para o chamador imediato. Este membro não pode ser usado por código parcialmente confiável.
Processo . Método WaitForExit.
A documentação de referência da API tem uma nova casa. Visite o Navegador da API em docs. microsoft para ver a nova experiência.
Define o período de tempo para aguardar a saída do processo associado e bloqueia o thread atual de execução até que o tempo tenha transcorrido ou o processo tenha sido encerrado. Para evitar o bloqueio do segmento atual, use o evento Exited.
Para exemplos de código, consulte as páginas de referência de propriedade StandardError e ExitCode.
Assembly: System (no System. dll)
Instrui o componente Process a aguardar indefinidamente que o processo associado seja encerrado.
Instrui o componente Processo a aguardar o número especificado de milissegundos para o processo associado sair.
Eu estou chamando um aplicativo de 3ª parte que 'às vezes' funciona em VB (é um WCF auto-hospedado). Mas, às vezes, o aplicativo de terceiros é interrompido para sempre, então adicionei um temporizador de 90 segundos a ele. O problema é, como eu sei se a coisa expirou?
Código parece com isso:
O que eu gostaria de fazer é algo assim.
Verifique o valor de retorno do método - msdn. microsoft/en-us/library/ty0d8k56.aspx - se a chamada expirou, ele retornará False.
Houve problemas conhecidos no passado em que os aplicativos congelavam ao usar o WaitForExit.
Exemplo de uso.
Eu resolvi assim:
Eu redirecionei tanto a entrada, saída e erro e lidou com a leitura de fluxos de saída e erro. Essa solução funciona para o SDK 7- 8,1, tanto para o Windows 7 quanto para o Windows 8.
Eu tentei fazer uma classe que resolveria seu problema usando leitura de fluxo assíncrona, levando em consideração Mark Byers, Rob, stevejay respostas. Ao fazer isso, percebi que há um erro relacionado à leitura do fluxo de saída do processo assíncrono.
Você não pode fazer isso:
Você receberá System. InvalidOperationException: StandardOut não foi redirecionado ou o processo ainda não foi iniciado.
Então você precisa iniciar a leitura assíncrona após o processo ser iniciado:
Fazendo isso, faça uma condição de corrida porque o fluxo de saída pode receber dados antes de defini-los como assíncronos:
Então, algumas pessoas podem dizer que você só precisa ler o fluxo antes de defini-lo como assíncrono. Mas o mesmo problema ocorre. Haverá uma condição de corrida entre a leitura síncrona e o fluxo em modo assíncrono.
Não há como obter uma leitura assíncrona segura de um fluxo de saída de um processo na maneira real como "Process" e "ProcessStartInfo" foram projetados.
Provavelmente, é melhor usar a leitura assíncrona, como sugerido por outros usuários para o seu caso. Mas você deve estar ciente de que pode perder alguma informação devido à condição de corrida.
Nenhuma das respostas acima está fazendo o trabalho.
A solução Rob trava e a solução 'Mark Byers' obtém a exceção descartada (tentei as "soluções" das outras respostas).
Então decidi sugerir outra solução:
Este código depurado e funciona perfeitamente.
Introdução.
A resposta aceita atualmente não funciona (gera exceção) e há muitas soluções alternativas, mas nenhum código completo. Isto é, obviamente, desperdiçando muito tempo das pessoas, porque esta é uma questão popular.
Combinando a resposta de Mark Byers e a resposta de Karol Tyl, escrevi o código completo com base em como eu quero usar o método Process. Start.
Eu usei-o para criar um diálogo de progresso em torno dos comandos do git. É assim que eu usei:
Em teoria, você também pode combinar stdout e stderr, mas eu não testei isso.
As outras soluções (incluindo EM0s) ainda estão em deadlock para meu aplicativo, devido a tempos limite internos e ao uso de StandardOutput e StandardError pelo aplicativo gerado. Aqui está o que funcionou para mim:
Editar: adicionada inicialização do StartInfo ao exemplo de código.
Este post talvez desatualizado, mas eu descobri a causa principal porque normalmente travar é devido ao estouro de pilha para a saída redirectStandard ou se você tiver redirectStandarderror.
Como os dados de saída ou os dados de erro são grandes, isso causará um tempo de interrupção, pois ainda está sendo processado por duração indefinida.
então, para resolver esse problema:
Eu acho que essa é uma abordagem simples e melhor (não precisamos do AutoResetEvent):
Eu estava tendo o mesmo problema, mas o motivo era diferente. No entanto, isso aconteceria no Windows 8, mas não no Windows 7. A linha a seguir parece ter causado o problema.
A solução foi NÃO desabilitar o UseShellExecute. Eu agora recebi uma janela popup do Shell, que é indesejada, mas muito melhor do que o programa esperando que nada de especial aconteça. Então eu adicionei a seguinte solução para isso:
Agora, a única coisa que me incomoda é por que isso está acontecendo no Windows 8 em primeiro lugar.
Eu sei que esta é a ceia de idade, mas, depois de ler esta página inteira, nenhuma das soluções estava funcionando para mim, embora eu não tenha tentado Muhammad Rehan como o código foi um pouco difícil de seguir, embora eu acho que ele estava no caminho certo . Quando eu digo que não funcionou isso não é inteiramente verdade, às vezes funcionaria bem, eu acho que é algo a ver com o comprimento da saída antes de uma marca EOF.
De qualquer forma, a solução que funcionou para mim foi usar diferentes threads para ler o StandardOutput e StandardError e escrever as mensagens.
Espero que isso ajude alguém, que pensou que isso poderia ser tão difícil!
Depois de ler todos os posts aqui, resolvi a solução consolidada de Marko Avlijaš. No entanto, isso não resolveu todos os meus problemas.
Em nosso ambiente, temos um serviço do Windows que está programado para executar centenas de arquivos. bat. cmd. exe diferentes. etc arquivos que se acumularam ao longo dos anos e foram escritos por muitas pessoas diferentes e em diferentes estilos. Nós não temos controle sobre a escrita dos programas & amp; scripts, somos responsáveis apenas pelo agendamento, execução e geração de relatórios sobre sucesso / falha.
Então eu tentei praticamente todas as sugestões aqui com diferentes níveis de sucesso. A resposta de Marko foi quase perfeita, mas quando executada como um serviço, nem sempre captava stdout. Eu nunca cheguei ao fundo do por que não.
Como usar o Process. Start no Visual Basic.
Quando você precisa iniciar outro aplicativo usando o código VB.
O método Start do objeto Process é, possivelmente, uma das ferramentas mais subestimadas disponíveis para um programador. Como método, Start tem uma série de sobrecargas, que são conjuntos diferentes de parâmetros que determinam exatamente o que o método faz. As sobrecargas permitem que você especifique praticamente qualquer conjunto de parâmetros que você queira passar para outro processo quando for iniciado.
O que você pode fazer com o Process. Start é realmente limitado apenas pelos processos que você pode usar com ele.
Se você deseja exibir o arquivo Leia-me baseado em texto no Bloco de notas, é tão fácil quanto:
Isso pressupõe que o arquivo LeiaMe está na mesma pasta que o programa e que o Bloco de Notas é o aplicativo padrão para os tipos de arquivo. txt e está no caminho do ambiente do sistema.
Process. Start semelhante ao comando shell no VB6.
Para programadores familiarizados com o Visual Basic 6, Process. Start é um pouco como o comando VB 6 Shell. No VB 6, você usaria algo como:
Usando Process. Start.
Você pode usar esse código para iniciar o Bloco de Notas maximizado e criar um objeto ProcessStartInfo que possa ser usado para um controle mais preciso:
Iniciando um processo oculto.
Você pode até iniciar um processo oculto.
Mas tenha cuidado. A menos que você adicione mais código para encerrar o processo, provavelmente será necessário finalizá-lo no Gerenciador de tarefas. Normalmente, os processos ocultos são usados apenas com processos que não possuem nenhum tipo de interface de usuário.
Recuperando o nome de um processo.
Trabalhar com Process. Start como um objeto lhe dá muita capacidade. Por exemplo, você pode recuperar o nome do processo que foi iniciado. Este código irá mostrar o & # 34; bloco de notas & # 34; na janela de saída:
Isso era algo que você não poderia fazer com o comando VB6 Shell porque ele lançava o novo aplicativo de forma assíncrona. Usando WaitForExit pode causar o problema inverso porque você tem que iniciar um processo em um novo segmento se você precisar que ele seja executado de forma assíncrona. Por exemplo, se você precisar que os componentes permaneçam ativos em um formulário em que um processo foi iniciado e WaitForExit foi executado. Normalmente, esses componentes não estarão ativos. Codifique e veja por si mesmo.
Uma maneira de forçar o processo a parar é usar o método Kill.
Esse código aguarda dez segundos e termina o processo.
Descobri que um atraso forçado era necessário para permitir que o processo fosse concluído para evitar um erro.
Na maioria dos casos, provavelmente é uma boa ideia colocar seu processamento em um bloco Using para garantir que os recursos usados pelo processo sejam liberados.
Para tornar tudo isso ainda mais fácil de se trabalhar, há até mesmo um componente Process que você pode adicionar ao seu projeto para que você possa fazer muitas das coisas mostradas acima em tempo de design em vez de tempo de execução.
Uma das coisas que isso facilita muito é codificar eventos gerados pelo processo, como o evento quando o processo foi encerrado. Você também pode adicionar um manipulador usando um código como este:
Mas simplesmente selecionar o evento para o componente é muito mais fácil.
Processo . Método WaitForExit (Int32)
A documentação de referência da API tem uma nova casa. Visite o Navegador da API em docs. microsoft para ver a nova experiência.
Instrui o componente Processo a aguardar o número especificado de milissegundos para o processo associado sair.
Assembly: System (no System. dll)
Parâmetros
O período de tempo, em milissegundos, para aguardar a saída do processo associado. O máximo é o maior valor possível de um inteiro de 32 bits, que representa infinito para o sistema operacional.
Valor de retorno.
true se o processo associado tiver saído; Caso contrário, false.
A configuração de espera não pôde ser acessada.
Nenhuma identificação de processo foi definida e uma Handle da qual a propriedade Id pode ser determinada não existe.
Não há processo associado a este objeto Process.
Você está tentando chamar WaitForExit (Int32) para um processo que está sendo executado em um computador remoto. Este método está disponível apenas para processos em execução no computador local.
WaitForExit (Int32) faz com que o segmento atual espere até que o processo associado termine. Deve ser chamado depois que todos os outros métodos forem chamados no processo. Para evitar o bloqueio do segmento atual, use o evento Exited.
Este método instrui o componente Process a aguardar uma quantidade finita de tempo para o processo sair. Se o processo associado não sair no final do intervalo porque a solicitação para finalizar é negada, false é retornado para o procedimento de chamada. Você pode especificar um número negativo (Infinito) por milissegundos e Processo. WaitForExit (Int32) se comportará da mesma maneira que a sobrecarga WaitForExit (). Se você passar 0 (zero) para o método, ele retornará true somente se o processo já tiver saído; caso contrário, retorna imediatamente false.
No Framework 3.5 e em versões anteriores, se milissegundos fosse -1, a sobrecarga WaitForExit (Int32) aguardava milissegundos MaxValue (aproximadamente 24 dias), não indefinidamente.
Quando a saída padrão foi redirecionada para manipuladores de eventos assíncronos, é possível que o processamento de saída não seja concluído quando esse método retornar. Para garantir que o tratamento assíncrono de eventos tenha sido concluído, chame a sobrecarga WaitForExit () que não recebe nenhum parâmetro após receber um valor verdadeiro dessa sobrecarga. Para ajudar a garantir que o evento Exited seja tratado corretamente nos aplicativos do Windows Forms, defina a propriedade SynchronizingObject.
Quando um processo associado sai (é desligado pelo sistema operacional por meio de uma finalização normal ou anormal), o sistema armazena informações administrativas sobre o processo e retorna ao componente que chamou WaitForExit (Int32). O componente de processo pode acessar as informações, que inclui o ExitTime, usando o identificador para o processo de saída.
Como o processo associado foi encerrado, a propriedade Handle do componente não aponta mais para um recurso de processo existente. Em vez disso, o identificador pode ser usado apenas para acessar as informações do sistema operacional sobre o recurso do processo. O sistema está ciente de identificadores para processos que não foram liberados pelos componentes do processo, portanto, ele mantém as informações de ExitTime e identificador na memória até que o componente de processo especificamente libera os recursos. Por esse motivo, sempre que você chamar a instância Start for Process, chame Close quando o processo associado tiver terminado e você não precisar mais de nenhuma informação administrativa sobre ele. Close libera a memória alocada para o processo finalizado.
Veja o exemplo de código para a propriedade ExitCode.
para confiança total para o chamador imediato. Este membro não pode ser usado por código parcialmente confiável.
Processo . Método WaitForExit.
A documentação de referência da API tem uma nova casa. Visite o Navegador da API em docs. microsoft para ver a nova experiência.
Define o período de tempo para aguardar a saída do processo associado e bloqueia o thread atual de execução até que o tempo tenha transcorrido ou o processo tenha sido encerrado. Para evitar o bloqueio do segmento atual, use o evento Exited.
Para exemplos de código, consulte as páginas de referência de propriedade StandardError e ExitCode.
Assembly: System (no System. dll)
Instrui o componente Process a aguardar indefinidamente que o processo associado seja encerrado.
Instrui o componente Processo a aguardar o número especificado de milissegundos para o processo associado sair.
Comments
Post a Comment