vb高手们，帮帮小弟的忙，在下感激不尽！谢谢了!

Question

昨天“blue_surf”网友帮我写的自动检测进程的VB程序。
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Private Const SE_SHUTDOWN_PRIVILEGE& = 19
Private Const Shutdown& = 0
Private Const RESTART& = 1
Private Const POWEROFF& = 2
Sub sd(Index As Integer)
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
Select Case Index
Case 1
NtShutdownSystem POWEROFF
End Select
End Sub

'检查进程的代码:===================================================================
Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

'点击按钮后,如果有进程client.exe,退出程序;如果没有,则关机:===========================
Private Sub Command1_Click()
If CheckApplicationIsRun("client.exe") = True Then
End
Else
Call sd(1)
End If
End Sub

我想使他们运行自动隐藏在内存中，且运行时重复先自动检测程序本身是否在运行，再检测指定进程。都程序都结束了，则自动关机，如果程序还在，则不执行任何操作，前面的都没有修改，就修改了command1的单击事件。添加了timer1和timer2控件，设置其enabled属性均为false
每5秒钟自动检测进程，代码如下
Private Sub Form_Activate()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Form1.Hide
End Sub

Private Sub Timer1_Timer()
If CheckApplicationIsRun("a.exe") = False Then Call sd(1) 'a.exe为程序本身
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
If CheckApplicationIsRun("pubwinclient.exe") = False Then Call sd(1)
End Sub

为什么,我结束pubwinclient.exe进程会自动关机，而结束a.exe进程，则不会什么都不会发生呢？
我想以防止自动程序被恶意结束,导致不会自动检测进程.

Answer 1

这个a.exe进程没有检测自身被强制结束的代码，除非在pubwinclient.exe进程中也加入对a.exe的检测。