关闭QQ用VB  Dim i As Long    Dim proc As PROCESSENTRY32    Dim snap As Long    Dim exename As String    Dim theloop As Long    Dim hand As Long    snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄    proc.dwSize = Len(proc)    theloop = ProcessFirst(snap, proc) '获取第一个进程，并得到其返回值    While theloop <> 0 '当返回值非零时继续获取下一个进程        exename = proc.szExeFile        If InStr(UCase(exename), "QQ.exe") <> 0 Then            Debug.Print "QQ.EXE"            hand = OpenProcess(PROCESS_TERMINATE, True, proc.th32ProcessID)            TerminateProcess hand, 0        End If        theloop = ProcessNext(snap, proc)    Wend    CloseHandle snap '关闭进程“快照”句柄   Option ExplicitPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As LongPublic Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongPublic Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPublic Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As LongPublic Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As LongPublic Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long'此外还需要定义一个PROCESSENTRY32结构，这个结构中包含有有关系统中进程的某些信息，'同样在VB中的API文本浏览器里也没有录入。Public Const MAX_PATH As Long = 260 'Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long'Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPublic Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Const TH32CS_SNAPPROCESS = &H2Private Const TH32CS_SNAPheaplist = &H1Private Const TH32CS_SNAPthread = &H4Private Const TH32CS_SNAPmodule = &H8Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodulePrivate Const PROCESS_TERMINATE As Long = (&H1)

评论