APLICACAO INFECHAVEL

Citação:

:
o que vc quer não é um serviço ?

Option Explicit
Public Sub KillProcess(ByVal processName As String)
   Dim oWMI As Object
   Dim oServices As Object
   Dim oService As Object
   Dim oWMIServices As Object
   Dim oWMIService As Object

   Dim ret As Long
   Dim sService As String
   Dim servicename As String

  Set oWMI = GetObject([Ô]winmgmts:[Ô])
  Set oServices = oWMI.InstancesOf([Ô]win32_process[Ô])

  For Each oService In oServices
     servicename = LCase(Trim(CStr(oService.Name) & [Ô][Ô]))

     If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
        ret = oService.Terminate
     End If
  Next

 Set oServices = Nothing
 Set oWMI = Nothing
End Sub

 KillProcess [Ô]BKP_SQL.EXE[Ô]

 Set frm_Backup_SQL = Nothing
 KillProcess [Ô]BKP_SQL.EXE[Ô]
 End

Citação:

:
Olá.
Parece piada o título, mas preciso criar uma aplicação infechável em VB6.
Ela ficará rodando o tempo todo, não visível, e só pode ser fechada se uma outra aplicação (esta sim visível) ordenar para que feche (vou usar DDE, agradeço aos amigos do fórum pelas dicas em outro post).
Ela não pode fechar nem que o usuário acesse o Gerenciador de Tarefas e tente fechar.
Isso não deve ser impossível, já que alguns processos no Gerenciador de Tarefa não fecham.
Alguém sabe como fazer isso em VB6?

Obrigado.

Citação:

:
Em um modulo:

Option Explicit
Public Sub KillProcess(ByVal processName As String)
...
End Sub

No form inicial

 KillProcess [Ô]BKP_SQL.EXE[Ô]

No fechamento do form você pode forçar a barra.

 Set frm_Backup_SQL = Nothing
 KillProcess [Ô]BKP_SQL.EXE[Ô]
 End

Citação:

Amigo , boa tarde.

Qual seria a razão/circunstância/motivo para ter tal aplicativo rodando da maneira que mencionou ????

Citação:

:
Amigo , boa tarde.

Qual seria a razão/circunstância/motivo para ter tal aplicativo rodando da maneira que mencionou ????



Pretendo monitorar algumas coisas e o usuário não deve poder fechar essa aplicação.

Citação:

Porque tem tantos usuários aqui querendo fazer spyware?

Citação:

:
rsrsr tá na moda...

Mas a sua solução é utilizar via serviço, assim o usuário não terá permissão para fechar o processo.