VB.Net 杀掉进程

发布时间：2020-12-16 22:28:44 所属栏目：大数据来源：网络整理

导读：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 = Ne

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) 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!