作者macgyfu (YFU)
看板Visual_Basic
标题Re: [VB6 ] 请教强制取消Shell所执行的程式
时间Thu Jan 18 21:07:59 2007
刚刚在网路上看到另一个作法
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function IsWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Const PROCESS_QUERY_INFORMATION = &H400
Const SYNCHRONIZE = &H100000
Const STILL_ALIVE = &H103
Const INFINITE = &HFFFF
Private ExitCode As Long
Private hProcess As Long
Private isDone As Long
Private Sub CommandButton1_Click()
Dim pid As Long
Dim ExitEvent As Long
pid = Shell("notepad.exe", vbMinimizedFocus)
hProcess = OpenProcess(0, 0, pid)
ExitEvent = WaitForSingleObject(hProcess, 1500)
Call CloseHandle(hProcess)
Open "c:\killcmd.bat" For Output As #1
Print #1, "ntsd -c q -p " & pid
Close #1
Shell "c:\killcmd.bat", vbMinimizedFocus '最小化?行?束?程命令
MsgBox ("Finish")
End Sub
可以把笔记本关掉，但如果执行内容为ping 168.95.1.1 -t也是cmd视窗这招好像就不行了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.217.165.152
1F：推 fumizuki:有想过 EnumWindow 寻找该 pid 拥有的视窗 01/19 07:10
2F：推 fumizuki:SendMessage 要求关闭视窗 01/19 07:11
3F：→ fumizuki:但没试过行不行得通 01/19 07:13