急!!!请问如何用vb将与本程序无关的其他程序窗口关掉,谢谢各位了

Question

请问如何实现监督功能 ,就是说每隔一定时间进行一次检查 ,如果有与本程序无关的程序运行便将其窗口强行关闭

Answer 1

你也忒恨了点吧！！！
先用API函数取得，窗体句柄
然后...
自己找一下资料吧

Answer 2

enumwindow,然后postmessage wm_quit

Answer 3

就怕你要关掉的是瑞星等杀毒工具，^_^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 FunctionPublic Sub MyClose()
    EnumWindows AddressOf EnumCallback, 0
End Sub调用MyClose就可以了

Answer 4

比如你现在运行的程序是MyProgram.exe ,那么就将ls1赋值="MyProg"就可以了

Answer 5

上面程序少了一点东西，是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