vb怎么关闭一个已打开的可执行程序？

来源：百度知道 编辑：UC知道 时间：2024/05/24 07:47:30
比如说怎样关闭一个正在播放的winamp音乐播放器。

用那个函数？？？
一楼的大哥，总是显示没有打开呀。

二楼的大哥，你那个代码没反应呀。

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

Private Sub Form_Load()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "winamp.exe")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "error!"
End If
Else
MsgBox "没有打开¡"
End If

End Sub

加一这样一条代码：shell "tskill winamp.exe"
不过只支持WinXP和Vista系统。