ERRO - MALDITO WINDOWS MANAGEMENT INSTRUMENTATION
Bom dia pessoal,
tenho uma aplicação que fica escrutando uma porta, porem depois de alguns instantes aparece este erro em anexo.
tem como driblar este erro???? fazer nao aparecer ou alguma coisa assim??
tenho uma aplicação que fica escrutando uma porta, porem depois de alguns instantes aparece este erro em anexo.
tem como driblar este erro???? fazer nao aparecer ou alguma coisa assim??
Se nao me engano erre erro é pq o aplicativo q vc esta chamando ja esta em uso e ele nao consegue criar uma nova instancia, o melhor seria rever o caso do timer e desativa-lo quando entrar na rotina de gravaçao.
Dificil saber sem o codigo
Espero ter ajudado
Dificil saber sem o codigo
Espero ter ajudado
entao funciona desta forma...
crei um form adicione uma caixa de texto e um botao de comando. Adicione a referencia WMI (Windows Management Instrumentation)
no botao de comando coloque o seguinte codigo...
strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set objEvents = objWMIService.ExecNotificationQuery _
([Ô]SELECT * FROM MSFT_NetServiceStatusSuccess WHERE Service = [ô]TELNET[ô][Ô])
text1.text = [Ô]Waiting for events ...[Ô]
Do While(True)
Set objReceivedEvent = objEvents.NextEvent
[ô]report an event
text1.text = [Ô]MSFT_NetServiceStatusSuccess event has occurred.[Ô]
Loop
quando voce executar o codigo vai apararecer uma mensagem Waiting for events na caixa de texto.
a partir deste ponto voce esta monitorando o serviço telnet do windows.
vá no executar digite --> services.msc --> para ou inicie o serviço do telnet ira aparecer uma mensagem a caixa de teste e apos ira comecar apresentar o erro do pop-up acima..
crei um form adicione uma caixa de texto e um botao de comando. Adicione a referencia WMI (Windows Management Instrumentation)
no botao de comando coloque o seguinte codigo...
strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set objEvents = objWMIService.ExecNotificationQuery _
([Ô]SELECT * FROM MSFT_NetServiceStatusSuccess WHERE Service = [ô]TELNET[ô][Ô])
text1.text = [Ô]Waiting for events ...[Ô]
Do While(True)
Set objReceivedEvent = objEvents.NextEvent
[ô]report an event
text1.text = [Ô]MSFT_NetServiceStatusSuccess event has occurred.[Ô]
Loop
quando voce executar o codigo vai apararecer uma mensagem Waiting for events na caixa de texto.
a partir deste ponto voce esta monitorando o serviço telnet do windows.
vá no executar digite --> services.msc --> para ou inicie o serviço do telnet ira aparecer uma mensagem a caixa de teste e apos ira comecar apresentar o erro do pop-up acima..
Fiz os testes porem o problema persiste. O codigo original é um VBS, segue abaixo para testar crei o vbs e execute apos para e inicie o serviço do telnet, será apresentadas mensagens na tela informando..
será que existe a possibilidade de adaptar para o VB6??
[ô]vbscript code
strComputer = [Ô]127.0.0.1[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set objEvents = objWMIService.ExecNotificationQuery _
([Ô]SELECT * FROM MSFT_NetServiceStatusSuccess[Ô])
Wscript.Echo [Ô]Waiting for events ...[Ô]
Do While(True)
Set objReceivedEvent = objEvents.NextEvent
[ô]report an event
Wscript.Echo [Ô]MSFT_NetServiceStatusSuccess event has occurred.[Ô]
Loop
Obrigado,,,,
será que existe a possibilidade de adaptar para o VB6??
[ô]vbscript code
strComputer = [Ô]127.0.0.1[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set objEvents = objWMIService.ExecNotificationQuery _
([Ô]SELECT * FROM MSFT_NetServiceStatusSuccess[Ô])
Wscript.Echo [Ô]Waiting for events ...[Ô]
Do While(True)
Set objReceivedEvent = objEvents.NextEvent
[ô]report an event
Wscript.Echo [Ô]MSFT_NetServiceStatusSuccess event has occurred.[Ô]
Loop
Obrigado,,,,
Tópico encerrado , respostas não são mais permitidas