中国DOS联盟

'该程序用来配合SimCode调用其他程序，并对程序的运行情况做监控,!
'监控方法是:对系统进程的监控
Set WshShell = Wscript.CreateObject("Wscript.Shell")
allApp="c:\windows\svchost.exe C:\111.vbs"  '写下要调用的程序的完整路径。
AppName="svchost.exe"  '写下调用的程序的名称.
WshShell.Run (allApp) '启动调用的程序

dim AppPath
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '列出系统中所有正在运行的程序
if lcase(ps.name)=AppName then'检测程序在进程中是否存在
AppPath=ps.commandline'提取程序的命令行
AppPath1=Replace(AppPath,chr(34),space(1))'用空格替换掉字符串中的双引号
end if
next

do'循环检测
myqqin=chkuin(App)'检测上面得到命令行是否在进程中存在!
if not myqqin then'如果没有运行则,告诉用户，并且结束监控！
msgbox "调用的程序已经退出了！"'实际使用中，请取掉这一行!
Exit do
else
wscript.sleep 3000'等待5秒
end if
loop'返回继续检测

function chkuin(App)
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if lcase(ps.name)=AppName then
AppPatht1=ps.commandline
if AppPatht1=AppPath then chkuin=true end if
end if
next
end function

StrComp (AppPath1,allApp,1)