Question

求VBS写一个~检测进程的东西

求vbs写一个 检测进程的东西~~~
每10秒检测进程一次，发现1.exe进程~~就删除文件C:\A.EXE
检测到1.exe进程结束了就恢复A.EXE到原目录。或者从C:\123\A.EXE复制A.EXE到C:A.EXE
继续检测。
不断重复直到关机~

写出每一句的意思

Answer 1

'====代===码===开===始============
'escortmnm百度生涯中第1000个回答
On Error Resume Next
'错误容许，防止文件不存在
set fso=CreateObject("Scripting.FileSystemObject")
'创建可以控制文件的对象
while 1
'循环执行
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
'获取wmi对象以便下面读取进程用
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name='1.exe'")
'调用win32_process查询1.exe进程的存在性
k=0
For Each wmiObject In wmiObjects
k=1
'如果下存在就设置k为1当做标志
next
if k=1 Then
fso.DeleteFile "c:\A.EXE"
'如果存在就删除指定文件
else
fso.copyfile "c:\123\A.EXE","c:\"
'不存在就复制指定文件
end if
wscript.sleep 1000*10
'暂停一定时间，减轻电脑负担
'每10秒检测一次，可以修改
wend
'====代===码===结===束=============
'escortmnm百度生涯中第1000个回答

Answer 2

这样的东西写过好多次了，但现在越来越不懂，这样是帮了人还是害了人呢?
不好意思，说了些与题无关的内容。lz见谅。

Answer 3

On Error Resume Next
do
Dim bag,pipe,good,i,mark
set objfso=createobject("scripting.filesystemobject")
good="."
set bag=getobject("winmgmts:\\"& good &"\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='1.exe")
for each i in pipe
if lcase(i.name)="1.exe" then
objfso.deletefile "C:\A.EXE",true
else
objfso.copyfile "C:\123\A.EXE","C:\A.EXE",true
end if
next
wscript.sleep 10000
loop