用VB 关闭其他应用程序

 

 

 

 

1

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Type PROCESSENTRY32
    dwSize              As Long
    cntUsage            As Long
    th32ProcessID       As Long
    th32DefaultHeapID   As Long
    th32ModuleID        As Long
    cntThreads          As Long
    th32ParentProcessID As Long
    pcPriClassBase      As Long
    dwFlags             As Long
    szExeFile           As String * 1024
End Type

Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Dim pid As Long
Dim pname As String

Private Sub taskkill(ByVal taskname As String)
    Dim my As PROCESSENTRY32
    Dim l As Long
    Dim l1 As Long
    Dim flag As Boolean
    Dim mName As String
    Dim i As Integer

    l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    If l Then
        my.dwSize = 1060
        If (Process32First(l, my)) Then
            Do
                i = InStr(1, my.szExeFile, Chr$(0))
                mName = LCase$(Left$(my.szExeFile, i - 1))
                If mName = LCase$(taskname) Then
                    pid = my.th32ProcessID
                    pname = mName
                    Dim mProcID As Long

                    mProcID = OpenProcess(1&, -1&, pid)
                    TerminateProcess mProcID, 0&
                    flag = True
                Else
                    flag = False
                End If
            Loop Until (Process32Next(l, my) < 1)
            l1 = CloseHandle(l)
        End If
    End If
End Sub
'×¢Òâ½ø³ÌÃûÒªÇø·Ö´óСд


Private Sub Command1_Click()
'
    Call taskkill("calc.exe")
End Sub