＋设为首页 ＋添加到收藏夹
请问怎样通过VB关闭Winamp,
望高手提供全部代码!谢谢
hWnd = FindWindow("Winamp v1.x", vbNullString)
你最好用spy++查查winamp的类名。我的winamp的类名为"Winamp v1.x"
你最好用spy++查查winamp的类名。
能具体解释一下吗？谢谢
关闭指定的程序
要做到像 Task Manager 一样，可以关闭指定的程序，方法如下：
在声明区中放入以下声明：(16位 改成 win31 API)
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
以下之范例示范如何关闭一个视窗标题 (Caption) 为 【小算盘】的程序：
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "小算盘")
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 "并未开启小算盘程序."
End If
关键是FindWindow要用对
PS:
请关注http://www.ycjmw.com/window/test.asp
帮我未来的gf投一票吧，14、17号作品，谢谢先。
