在VB6中创建子进程，当程序终止时自动终止

Question

我想创建一个将运行两个子进程的程序。现在，我希望当我的应用程序被任务管理器终止或崩溃时，它的两个子进程应该会自动终止。我怎样才能做到这一点？

Answer 1

在Windows你可以使用Job Objects - 在Linux中最接近处理组。只是研究API，它是兼容w/XP（可能是SP3）及以上。

你必须将你的VB6进程分配给一个工作，那么你产生的每一个其他进程都隐含在这个工作中。请参阅Performing equivalent of “Kill Process Tree” in c++ on windows。

Answer 2

让客户检查如果主机是使用FindWindow函数API

例如仍在运行：启动计算器，运行下面的示例项目，并关闭计算器..在关闭计算器这个示例项目会关闭以及

'1 form with: 
' 1 timer: name=Timer1 
Option Explicit 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Sub Form_Load() 
    With Timer1 
    .Interval = 100 
    .Enabled = True 
    End With 'Timer1 
End Sub 

Private Sub Timer1_Timer() 
    Dim hwnd As Long 
    hwnd = FindWindow(vbNullString, "Rekenmachine") 
    If hwnd = 0 Then Unload Me 
End Sub 

（Rekenmachine是Windows计算器的荷兰名字，用自己的程序名称代替）

Answer 3

纠正我，如果我错了：你有启动其他2个处理（一个应用程序，它的你无法访问源代码），并且希望在应用程序结束时终止这两个进程？

这可以在应用程序启动一个额外的过程，监控应用程序的状态，并采取关闭其它的2个进程

的照顾，例如粗糙的监控应用程序可能存在1个模块来完成：

Option Explicit 

Public pstrArg() As String 

Private Sub Main() 
    pstrArg = Split(Command, " ") 
    Load frmMonitor 
End Sub 

该模块加载它叫做frmMonitor与定时器控制形式：

Option Explicit 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Sub Form_Load() 
    With Timer1 
    .Interval = 100 
    .Enabled = True 
    End With 'Timer1 
End Sub 

Private Sub Timer1_Timer() 
    Dim intIndex As Integer 
    If FindWindow(vbNullString, pstrArg(0)) = 0 Then 
    For intIndex = 1 To UBound(pstrArg) 
     TerminateProcess pstrArg(intIndex) 
    Next intIndex 
    End 
    End If 
End Sub 

Private Sub TerminateProcess(strName As String) 
    Dim Process As Object 
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & strName & "'") 
    Process.Terminate 
    Next 
End Sub 

确保启动FUNC您可以使用命令行参数对其进行调用

您可以对此进行如下测试： 将监控应用程序编译到MonitorApp.exe中，并将其与现有的测试项目放在同一文件夹中名为frmTest 1种形式：

'1 form with: 
' 1 timer control: name=Timer1 
' 1 command button : name=Command1 

Option Explicit 

Private Sub Command1_Click() 
    Shell "calc.exe" 
End Sub 

Private Sub Form_Load() 
    Shell App.Path & "\MonitorApp.exe frmTest calc.exe" 
End Sub 

这将您单击命令按钮 当您关闭该窗体每次启动一个计算器，监控应用将关闭所有计算器，然后完成自己