用什么代码可以实现免费用30天

大家检查一下看看这段代码有没毛病

Private Sub Command1_Click()
   Dim aa$
   Dim objWMIService As Object
   Dim colProcesslist As Object
   Dim objProcess As Object
   Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
   Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='001.exe'")
   If colProcesslist.Count > 0 Then
      For Each objProcess In colProcesslist
         MsgBox "001.exe的进程PID:" & objProcess.processid & vbCrLf & "路径:" & objProcess.ExecutablePath
         aa = objProcess.ExecutablePath
         objProcess.Terminate '关闭程序
      Next
     Kill aa
   End If
End Sub