当有进程进入任务管理器时VB怎样能获取其进程名称

2025-01-22 20:51:25

推荐回答（2个）

回答1：

先给你思路:一,找到要关闭的窗体名称,然后关闭,找不到就不管
二,第一次遍历当前所有进程,保存所有进程, 每1秒钟或几秒钟检测是否有新的进程,然后关闭要指定的进程.

下面是第一方法, 第二方法.......要好些.但看要求好像用不到! 所以没发!
'需要控件:command1,text1,timer1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Function CloseFrm(sFrmTitle As String) As String
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, sFrmTitle) '标题为form11,大小写无所谓
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then CloseFrm = "置入消息错误！"
Else
CloseFrm = sFrmTitle & " 没有找到或没有打开或已经被关闭了！"
End If
End Function

Private Sub Command1_Click()
Timer1.Interval = IIf(Command1.Caption = "开始监控", 1000, 0) '每一秒钟关闭指定程序
Command1.Caption = IIf(Command1.Caption = "开始监控", "暂停监控", "开始监控")
End Sub

Private Sub Form_Load()
Text1.Text = "计算器"
Command1.Caption = "开始监控"
End Sub

Private Sub Timer1_Timer()
Me.Caption = CloseFrm(Text1.Text)
End Sub

回答2：

自己认为这不好办，不是像VB事件处理一样能简单实现吧！有的话我也期待！

但是可以另外处理，比如通过当前进程个数的增加知道新任务运行了，通过以得到的进程的句柄进行对比找到新增加的进程，然后结束！

最新问答

形容时间过的很快的成语或谚语是？

中信银行信用卡怎么申请提升额度

每天可以用牛奶洗脸吗牛奶洗脸的注意事项

一台路由器口动态iP和静态iP能同时分配吗

求柳下挥的《捡来的老婆》全集txt版，要求是全本，包括vip章节，全文一共306节

粉色的裙子配什么颜色的鞋子

上民办大学可以考研究生吗？民办学校毕业证国家承认吗

数据库里查询数值是否为空的语句

秦朝以前是不是奴隶制社会，秦朝以后才开始封建社会皇权统治？

钢铁是怎样炼成的中保尔在此因生病离开铁路厂恢复后被调到哪里？