急!!!请问如何用vb将与本程序无关的其他程序窗口关掉,谢谢各位了
请问如何实现监督功能 ,就是说每隔一定时间进行一次检查 ,如果有与本程序无关的程序运行便将其窗口强行关闭 问题点数：0、回复次数：9Top
1 楼kkmnv（风来了，我走了）回复于 2005-06-02 08:46:00 得分 0
你也忒恨了点吧！！！
先用API函数取得，窗体句柄
然后...
自己找一下资料吧Top
2 楼songyaowu（不以分多而蹭之;不因分少而不答; www.vb99.com）回复于 2005-06-02 08:51:59 得分 0
做什么程序要这么霸道？我会，但我不敢告诉你，怕无意间成为“帮凶”! ^_^Top
3 楼supergreenbean（超级绿豆(MSMVP - VB) - 升级归来~）回复于 2005-06-02 08:53:36 得分 0
enumwindow,然后postmessage wm_quitTop
4 楼seekeegx（seekee）回复于 2005-06-02 09:40:53 得分 0
我是要做一个考试的系统 谢谢各位了 会的就行行好 帮个忙吧Top
5 楼tywong（别人的天长地久）回复于 2005-06-02 11:05:03 得分 0
就怕你要关掉的是瑞星等杀毒工具，^_^
Declare Function EnumWindows Lib "user32" (ByVal wndenmprc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Function EnumCallback(ByVal app_hWnd As Long, ByVal param As Long) As Long
Dim buf As String * 256
Dim title As String, lS1 As String
Dim Length As Long, li As Long
lS1 = 要关掉窗口的标题
Length = GetWindowText(app_hWnd, buf, Len(buf))
title = Left(buf, Length)
If InStr(title, lS1) <> 0 Then
li = SendMessage(app_hWnd, &H10, 0, 0)
End If
' Continue searching.
EnumCallback = 1
End Function
Public Sub MyClose()
EnumWindows AddressOf EnumCallback, 0
End Sub
调用MyClose就可以了Top
6 楼seekeegx（seekee）回复于 2005-06-02 19:39:03 得分 0
先谢谢恶狼传说了 ,不过我用的时候好象不是很好使啊,您能再解释详细点吗 ,麻烦了Top
7 楼tywong（别人的天长地久）回复于 2005-06-10 10:19:54 得分 0
比如你现在运行的程序是MyProgram.exe ,那么就将ls1赋值="MyProg"就可以了Top
8 楼lzanze（小泽）回复于 2005-06-10 10:43:28 得分 0
上面程序少了一点东西，是SendMessage函数的
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Top
9 楼lzanze（小泽）回复于 2005-06-10 10:45:18 得分 0
还有，想请问一下(恶狼传说)
如果是要关闭指定的进程呢？？？不是通过标题来关闭，如何实现？Top
