如何拦截指定的程序运行?

[mjdwcn]

在VB2005中可以实现吗?

[dlzhangln]

搜索进程，发现关闭

[leq_82]

比如拦截Excel
Dim processlist() As Process = Process.GetProcesses()
For Each kp As Process In processlist
If kp.ProcessName = "Excel" Then
kp.Kill()
End If
Next

[mjdwcn]

如何做到程序开始运行时,先拦截,查询是否可以运行后,再做拦截!还请高手指点...

[mzhao]

Hook

[978543210]

HOOK WMI ……

[mzhao]

Dim q As New Management.EventQuery("SELECT * FROM Win32_ProcessStartTrace")
WithEvents w As New Management.ManagementEventWatcher(q)
Sub Start()
w.Start()
End Sub

Private Sub w_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles w.EventArrived

e.NewEvent'这就是新创建的进程的对象，如何使用请在网上找WMI + Win32_Process

End Sub

[mjdwcn]

HOOK WMI ?
没用过，有例子吗？

[yurengang]

谢谢各位！可以结帖！