可执行程序随某程序加载而加载,随其退出而退出功能的 VBS 代码
2008-11-09 13:26
423 查看
'==========================================================================
' 可执行程序随某程序加载而加载,随其退出而退出功能的 VBS 代码
'
' proname1="Ni.exe" '需要监测的服务进程的名称
' proname2="calc.exe" '附加进程
'
' VBS 检测进程proname1是否存在,如果存在就启动proname2 进程。
' ,如果不存在就终止proname2 进程。
'
'==========================================================================
option Explicit
dim wmi,proc,procs1,procs2,proname1,proname2,proname1_Y,proname2_Y,WshShell
Do
proname1="Ni.exe" '需要监测的服务进程的名称
proname2="calc.exe" '附加进程
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!//./root/cimv2")
set procs1=wmi.execquery("select * from win32_process ")
proname1_Y="false"
for each proc in procs1
if strcomp(proc.name,proname1)=0 then
proname1_Y="true"
exit for
else
proname1_Y="false"
end if
next
proname2_Y="false"
for each proc in procs1
if strcomp(proc.name,proname2)=0 then
proname2_Y="true"
exit for
else
proname2_Y="false"
end if
next
'wscript.echo proname1_Y,proname2_Y
if proname1_Y="true" and proname2_Y="false" then
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("C:/windows/system32/calc.exe")
end if
if proname1_Y="false" and proname2_Y="true" then
set procs2=wmi.execquery("select * from win32_process where name='calc.exe'")
for each proc in procs2
proc.terminate()
next
end if
set wmi=nothing
loop
' 可执行程序随某程序加载而加载,随其退出而退出功能的 VBS 代码
'
' proname1="Ni.exe" '需要监测的服务进程的名称
' proname2="calc.exe" '附加进程
'
' VBS 检测进程proname1是否存在,如果存在就启动proname2 进程。
' ,如果不存在就终止proname2 进程。
'
'==========================================================================
option Explicit
dim wmi,proc,procs1,procs2,proname1,proname2,proname1_Y,proname2_Y,WshShell
Do
proname1="Ni.exe" '需要监测的服务进程的名称
proname2="calc.exe" '附加进程
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!//./root/cimv2")
set procs1=wmi.execquery("select * from win32_process ")
proname1_Y="false"
for each proc in procs1
if strcomp(proc.name,proname1)=0 then
proname1_Y="true"
exit for
else
proname1_Y="false"
end if
next
proname2_Y="false"
for each proc in procs1
if strcomp(proc.name,proname2)=0 then
proname2_Y="true"
exit for
else
proname2_Y="false"
end if
next
'wscript.echo proname1_Y,proname2_Y
if proname1_Y="true" and proname2_Y="false" then
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run ("C:/windows/system32/calc.exe")
end if
if proname1_Y="false" and proname2_Y="true" then
set procs2=wmi.execquery("select * from win32_process where name='calc.exe'")
for each proc in procs2
proc.terminate()
next
end if
set wmi=nothing
loop
相关文章推荐
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码
- 在AE二次开发中出“正试图在 OS 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。”异常解决方案
- 弹错:正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码
- 正试图在os加载程序锁内执行托管代码。不要尝试在DllMain或映像初始化函数内运行托管代码 问题解决方法
- 正试图在 OS 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起
- 正试图在 os 加载程序锁内执行托管代码
- 正尝试在 OS 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。
- 正尝试在 OS 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码
- 检测到 LoaderLock Message: 正试图在 OS 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。
- VS2010 : 正尝试在 OS 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。问题的解决方法!
- VS2010调试“正试图在 OS 加载程序锁内执行托管代码”和运行出现R6034问题解决
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起
- 正试图在 os 加载程序锁内执行托管代码。不要尝试在 DllMain 或映像初始化函数内运行托管代码,这样做会导致应用程序挂起。
- C#报错“OS加载程序锁内执行托管代码,不要尝试在DllMain或映像初始化函数内运行托管代码”的解决方法。
- 检测到 LoaderLock Message Microsoft.DirectX.dll”正试图在 OS 加载程序锁内执行托管代码。