高分求救！编写了一个关闭进程的程序，遇到网页的时候有时却不灵了，为什么？

Question

好今天了，都上不了csdn，今天好不容易回来才发现有这么多的热心朋友，谢谢大家了，邮件已经发给大家了，请查收。

Answer 1

[email protected]    i will help you!!

Answer 2

关闭部分的代码如下：
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Sub Command2_Click()
On Error GoTo erlevel
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, List1.Text)
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, &H10, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else: MsgBox List1.Text + " 没有打开"
End If
erlevel:
LoadTaskListEnd Sub
别的时候都没有问题，就是想关闭没有响应的Internet Explorer却老是不行（关不掉、win98）。是有什么不同吗？我该怎么改，或者可以用别的函数达到我的目的吗？

Answer 3

那当然了，人家都没有响应了，消息根本就发不到嘛。
你要在得到窗口句柄后调用GetWindowThreadProcessId得到进程id，再调用OpenProcess打开进程（也就是IE的进程），再调用TerminateProcess结束进程。

Answer 4

请问TerminateProcess具体要如何使用？
我很菜的，遇到api的时候一般都是抄（正在努力学习中）
来个高手教教 我好吗？最好有代码示范：）
谢谢

Answer 5

[email protected]
说一句，可以把打开网页的那个IE窗口调到前台来再用这个：
SENKEY {%[F4]}'ALT+F4来关掉它

Answer 6

to wgku()
可以讲讲在代码中如何实现吗？
或发到

Answer 7

GetWindowThreadProcessId(hwnd,pid);
HANDLE hProcess=OpenProcess(pid,...);好像还有几个参数
TerminateProcess(hProcess);

Answer 8

to lgs73327(大眼鱼)
把你的代码发给我
我帮你改改。：）
如果改不来的话我就把我做一部分的发给你看看：）
这是我的软件：）
http://www.csdn.net/cnshare/soft/10/10616.shtm

Answer 9

Private Declare Function SetForegroundWindow Lib "user32" (ByVal Hwnd As Long) As Long
'这个函数可以将句柄为 Hwnd的窗口调到前台来！！
Private Declare Function GetCapture Lib "user32" () As Long
'这个函数可以捕获具有当前输入，MOUSE捕获能力的窗口
'..........
dim Hwnd as long
'..........
SetForegroundWindow Hwnd
SendKeys "%{F4}"