VB.Net 杀掉进程

Imports System.Runtime.InteropServices

Public Class Form1
  Public Const WM_CLOSE = &H10

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim EXCELApp As Excel.Application
   
  EXCELApp = New Excel.Application()
  EXCELApp.Visible = True
  'EXCELApp.Workbooks.Add()
  EXCELApp.Workbooks.Open(System.Environment.CurrentDirectory & "\Book1.xls")


  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Dim hwndPPt As Integer

  hwndPPt = MyApi.FindWindow("XLMAIN", "Microsoft Excel - Book1.xls")

  'MsgBox("hwndEXCEL (" & Hex(hwndPPt) & ") has the Window handle to " & _
  ' "EXCEL's Main Window." & vbCr & " Click OK to close EXCEL.")

  'EXCELApp.Quit()
  MyApi.SendMessageA(hwndPPt, WM_CLOSE, 0, 0)
  End Sub
End Class
Public Class MyApi
  <DllImport("user32.dll")> Public Shared Function _
  FindWindow(ByVal strClassName As String, ByVal strWindowName _
  As String) As Integer
  End Function

  <DllImport("user32.dll")> Public Shared Function _
  SendMessageA(ByVal hWnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  End Function


End Class