VB로 다른 애플리케이션 닫기

  
  
  
  

   
   
   
   
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