Question

用VB监视某个进程是否在运行，如果正在运行，则结束，并且不让他再运行。

举个例子，就以explorer.exe为例。VB运行后，先查看explorer.exe是否在运行，如果正在运行，结束explorer.exe，并且不让explorer.exe重新运行，如果没有运行，就监视进程，发现explorer.exe运行立刻结束，并且不让explorer.exe重新运行。以前有看到过一段代码的，不记得了。
要帮我写出代码，本人菜鸟，什么函数之类的都不太会

Answer 1

用API函数：findwindow
得到句柄后：postmessage即可

追问

帮我写出代码

追答

hehe!这两个都是API，百度一下，很多了！用法简单

追问

额——这个我看不懂，说了我是菜鸟，自己写经常出错，帮我把代码写出来可以吗

追答

你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculator")
Debug.Print winHwnd
If winHwnd 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "The Calculator is not open."
End If

For this code to work, you must have declared the API functions in a module in your project. You must put the following in the declarations section of the module.

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
Public Const WM_CLOSE = &H10

追问

那么是否我将这段代码中的Calculator换成explorer.exe就能达到效果

追答

en!

追问

他说Dim winHwnd As Long语句未结束

追答

下面的语句放到窗体模块的最上面了

Answer 2

看不懂