(VB)如何遍历指定进程名的窗口是否隐藏?

2025-03-01 15:06:01

推荐回答（5个）

回答1：

根据你的反馈，回复如下：
假如进程名为12345678.exe，则可以分三步解决：
一、定义数组a()，然后枚举所有进程，找出进程名为12345678.exe的进程，并将其ID存入数组a()中
二、枚举所有窗口，取得对应的进程ID，然后与数组a()中的ID进行比较，若处于可见状态且ID相同，则将该数组元素置为空。
三、循环检验数组a(),如ID不为空，则终止此进程。

回答2：

能搞定，但是这点分数说实在话不够贴代码的哦。实在是抱歉了。
我个人推荐你用第一个方法。
第二个也行，但是不确定因素太多了。

找到进程名就已经是抓到小辫子了 hoho

回答3：

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Const WM_CLOSE = &H10
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "abcdefg")
If hwnd = 0 Then
MsgBox "程序未运行"
ElseIf IsWindowVisible(hwnd) = 0 Then SendMessage hwnd, WM_CLOSE, 0, 0
End If
End Sub
你多按几下command

回答4：

呵呵，所有系统服务进程的窗口都隐藏的，你也要结束？

回答5：

LZ 如果找不到满意答案的话建议不要再提高分数啦因为我以前提过100分
竟然回答的人都没有一个 - -
百度这个很不好啊为什么不能没有人回答分数回返呢?

最新问答

psp2000运行gba模拟器死机

“原材料”与“在途物资”的联系与区别

在探究“阻力对物体运动的影响”实验中，如图所示，给水平左面铺上粗糙程度不同的物体．（1）实验中使用

花蝴蝶寓意早上看见了

买个生日蛋糕。自己一个人点蜡烛, 自己一个人唱生日歌, 自己一个人吃完蛋糕, 生日就过了,我又大

什么是工厂四新教育及四新教育的试题？

原来的工资卡丢失了,去补办了一张新卡.卡号一样.这个月发工资会打到这卡上吗?

七秀派的云裳心经是不是都是加血的，到底练云裳好还是冰心好？？

2014年南航车辆工程考研分数什么趋势? 12年是364分,.13年听同学说310分左右被录取了,.,14今年呢?

有一篇以Friendship为题的英语作文