수다닷컴

Private Declare Function FindWindow Lib user32.dll Alias FindWindowA ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String _) As LongPrivate Declare Function GetWindowThreadProcessId Lib user32.dll ( _ ByVal hWnd As Long, _ ByRef lpdwProcessId As Long _) As LongPrivate Declare Function CreateToolhelp32Snapshot Lib kernel32.dll ( _ ByVal dwFlags As Long, _ ByVal th32ProcessID As Long _) As LongPrivate Declare Function Thread32First Lib kernel32.dll ( _ ByVal hSnapShot As Long, _ ByRef lpte As THREADENTRY32 _) As LongPrivate Declare Function Thread32Next Lib kernel32.dll ( _ ByVal hSnapShot As Long, _ ByRef lpte As THREADENTRY32 _) As LongPrivate Declare Function CloseHandle Lib kernel32.dll (ByVal hObject As Long) As LongPrivate Declare Function OpenThread Lib kernel32.dll ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwThreadId As Long _) As LongPrivate Declare Function SuspendThread Lib kernel32.dll (ByVal hThread As Long) As LongPrivate Declare Function ResumeThread Lib kernel32.dll (ByVal hThread As Long) As LongPrivate Type THREADENTRY32DENTRY32 dwSize As Long cntUsage As Long th32ThreadID As Long th32OwnerProcessID As Long tpBasePri As Long tpDeltaPri As Long dwFlags As LongEnd TypePrivate Const TH32CS_SNAPTHREAD& = 4&Private Const THREAD_ALL_ACCESS& = &H1F03FFPublic Sub SuspendProcess(ByRef WindowTitle As String) Dim lhWnd As Long, dwProcessId As Long lhWnd = FindWindow(vbNullString, WindowTitle) If lhWnd Then GetWindowThreadProcessId lhWnd, dwProcessId If dwProcessId Then SuspendProcessById dwProcessId End If End IfEnd SubPublic Sub ResumeProcess(ByRef WindowTitle As String) Dim lhWnd As Long, dwProcessId As Long lhWnd = FindWindow(vbNullString, WindowTitle) If lhWnd Then GetWindowThreadProcessId lhWnd, dwProcessId If dwProcessId Then ResumeProcessById dwProcessId End If End IfEnd SubPrivate Sub SuspendProcessById(ByVal dwProcessId As Long) Dim hSnapShot As Long, te As THREADENTRY32, lRet As Long, hThread As Long te.dwSize = LenB(te) hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0&) If Not hSnapShot Then&nbsbsp; lRet = Thread32First(hSnapShot, te) Do While lRet If te.th32OwnerProcessID = dwProcessId Then hThread = OpenThread(THREAD_ALL_ACCESS, 0&, te.th32ThreadID) If hThread Then SuspendThread hThread CloseHandle hThread End If End If lRet = Thread32Next(hSnapShot, te) Loop CloseHandle hSnapShot End IfEnd SubPrivate Sub ResumeProcessById(ByVal dwProcessId As Long) Dim hSnapShot As Long, te As THREADENTRY32, lRet As Long, hThread As Long te.dwSize = LenB(te) hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0&) If Not hSnapShot Then lRet = Thread32First(hSnapShot, te) Do While lRet If te.th32OwnerProcessID = dwProcessId Then hThread = OpenThread(THREAD_ALL_ACCESS, 0&, te.th32ThreadID) If hThread Then ResumeThread hThread CloseHandle hThread End If End If lRet = Thread32Next(hSnapShot, te) Loop CloseHandle hSnapShot End IfEnd SubPrivate Sub Command1_Click()SuspendProcess chrome.exeEnd SubPrivate Sub Command2_Click()ResumeProcess chrome.exeEnd Sub
이런 소스를 얻었는데 chrome이멈추진 않구요윈도우 창이름 (캡션)을 넣으니까되더라구요프로세스 이름으로 정지시키는건 없을까요?

신청하기