当进程不存在时关闭机器

来源：百度知道 编辑：UC知道 时间：2024/06/16 23:10:22
有软件或其它方法的麻烦请告诉一下
主要是玩DNF卖东西时 老自动关闭 浪费电 白白挂一夜
本人新手菜鸟
我的步骤是 新建工程标准exe 文件
之后工程菜单添加用户控件 代码复制上去 出现变量未定义 timer1
那地方错了？

在窗体上加入控件timer1，并复制下面代码到代码区，修改进程名称，然后编译成exe运行，就会实现“当进程不存在时关闭机器”的功能。
注：运行exe文件前，先要有该进程，否则会自动关机的。

Option Explicit
Dim s, mFind As Boolean
Dim objWMIService, colProcessList, objProcess

Private Sub Form_Load()
s = "a.exe" '请修改为实际的进程名称
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
mFind = False
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList
mFind = True
Exit For