VB编程问题,急,在线等

来源：百度知道 编辑：UC知道 时间：2024/07/06 17:17:45
要求:查找系统进程中是否有123.exe,
If 有 Then
不执行任何操作
Else
重新启动计算机.

急求详细代码!!

注:VB编程
要求1秒种检查一次,重起计算机代码已经写好

我试试

Dim w As Object
Dim p As Object
Dim i As Object
Dim blnExisted as Boolean

blnExisted=false

set w=getobject("winmgmts:")
set p=w.execquery("select * from win32_process")
for each i in p
if lcase(i.name)="123.exe" then
blnExisted=true
exit for
end if
next i

if blnExisted=false then
'这里放重启代码
end if

把以上代码放到 Timer 控件事件中。把 Timer 的 Interval 设为1000就好了