高分求一个功能简单的能编译的VB源代码

来源：百度知道 编辑：UC知道 时间：2024/06/07 18:30:57
每15秒检测一次是否存在a.exe进程

如果不存在就弹窗提示 不存在

就那么简单

要求代码完整 能通过编译

我是编程新手
请注意 是完全的新手 VB知识几乎为0 不要给多余的干扰信息 或者无法编译的代码

另外问一下 什么书适合完全的VB新手学习

'在窗体上加入控件timer1,然后在代码输入区复制下面代码，并把a.exe改成实际的进程名。运行即可看到效果！！！

Option Explicit
Dim s, cs, Find As Boolean
Dim objWMIService, colProcessList, objProcess

Private Sub Form_Load()
s = "a.exe" '请修改为实际进程名
cs = Timer
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Timer1.Interval = 1000
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Timer - cs >= 15 * 60 Then '15分钟一次
Find = False
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList