Question

用VBS写一个~检测进程的东西，看清楚要求

用vbs写一个 检测进程的东西~~~
每10秒检测进程一次，发现1.exe进程~~就删除文件C:\A.EXE
检测到1.exe进程结束了就恢复A.EXE到原目录。或者从C:\123\A.EXE复制A.EXE到C:A.EXE
继续检测。
不断重复直到关机~
（（注意））：要求是，触发了删除才可以触发复制
没有发现进程时不可以复制，要发现了进程，再发现进程结束后才可以删除！
就是平常检测时没有发现进程时，继续检测

写出每一句的意思

答得满意的加分~~
我换一下~~
删除C:\A.EXE变成删除C:\A.EXE和C:\b.EXE
复制 变成 运行本目录的1.bAT《隐藏窗口运行

Answer 1

回答过你的问题，那时候不满意你怎么没提出来呀，现在我修改了，不满意告诉我。
主要是修改了：
1、要发现了进程，再发现进程结束后才可以删除
2、触发了删除才可以触发复制
3、试试吧

补充回答：

'====代===码===开===始============
On Error Resume Next
'错误容许，防止文件不存在
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")

'创建可以控制文件的对象
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
do
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name='1.exe'")
'调用win32_process查询1.exe进程的存在性
m=0
For Each wmiObject In wmiObjects
m=1
'如果不存在就设置k为1当做标志
next
if m=0 then
fso.DeleteFile "c:\A.EXE"
fso.DeleteFile "c:\b.EXE"
end if
exit do
'检测到进程结束了就删除
wscript.sleep 1000*10
loop

else
ws.run "cmd /c 1.bat",0
'隐藏运行本目录的1.bat
end if
wscript.sleep 1000*10
'暂停一定时间，减轻电脑负担
'每10秒检测一次，可以修改
wend
'====代===码===结===束=============