求大神指导，现需要一个进程保护VBS，已有部分代码，求补全

zuijiutingfeng

1. Option Explicit
   
2. 
   
3. Main
   
4. Sub Main()
   
5.     Dim sExeName, sExePath, sSql
   
6.     sExeName = "cmd.exe"    '替换掉需要检测的软件名字
   
7.     sExePath = "C:\windows\system32\cmd.exe"    '进程路径
   
8. 
   
9.     sSql = "Select * From Win32_Process Where Name='{P1}' And CommandLine Like '%{P2}%'"
   
10.     sExePath = Replace(sExePath,"","\")
    
11.     sSql = Replace(sSql,"{P1}",sExeName)
    
12.     sSql = Replace(sSql,"{P2}",sExePath)
    
13. 
    
14.     Dim wim, wso, fso, n
    
15.     Set wim = GetObject("winmgmts:")
    
16.     Set wso = CreateObject("WScript.Shell")
    
17.     Set fso = CreateObject("Scripting.filesystemobject")
    
18. 
    
19.     Do While n < 2
    
20.         If Not fso.FileExists(sExePath) Then Exit Do
    
21.         If wim.ExecQuery(sSql).Count = 0 Then
    
22.             n = n + 1
    
23.             If n = 2 Then
    
24.                 wso.Run sDoCmd, 1, True
    
25.             End If
    
26.             wso.Run """" & sExePath & """", 1, False
    
27.             Else
    
28.             Exit Do
    
29.         End If
    
30.         WScript.Sleep 50 * 1000
    
31.     Loop
    
32. 
    
33. End Sub

复制代码

首先，求解第9行Sql代码中的P1和P2需要替换内容吗？
其次，求解第26行“wso.Run """" & sExePath & """", 1, False”是什么意思？
关于代码的改进需求：
用处：学校机房内，电子教室软件学生端，经常被学生结束进程。
需求：现在需要一个开机自启，自动检测电子教室进程运行状态，如果电子教室进程没有运行，则重启该进程（开机后该进程一直在后台运行），如果该进程第三次被检测到没有运行，则直接重启电脑

Batcher

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn])

object  WshShell 对象。
strCommand  表示要运行的命令行的字符串值。必须包括要传递到可执行文件的所有参数。
intWindowStyle 可选。表示程序窗口外观的整数值。请注意，并非所有程序都使用此信息。
bWaitOnReturn 可选。布尔值，表示在继续执行脚本中的下一条语句之前，脚本是否等待执行完程序。如果设为 true，则在执行完程序后才执行脚本，Run 方法返回由程序返回的任何错误代码。如果设为 false（默认值），则 Run 方法将自动在启动程序后立即返回 0（不是错误代码）。

ivor

http://www.bathome.net/thread-47419-1-1.html

可以用这个守护进程

zaqmlp

1. 
   
2. exepath="C:\windows\system32\calc.exe"
   
3. 
   
4. Set fso = CreateObject("Scripting.filesystemobject")
   
5. Set wmi=GetObject("winmgmts:\\.\root\cimv2")
   
6. Set ws = CreateObject("WScript.Shell")
   
7. 
   
8. Set exefile=fso.GetFile(exepath)
   
9. n=0
   
10. Do While True
    
11.     Set pros=wmi.ExecQuery("Select * From Win32_Process Where Name='" & exefile.Name & "' And CommandLine Like '%" & replace(exepath,"","\") & "%'")
    
12.     If pros.Count =0 Then
    
13.         n=n+1
    
14.         If n=3 Then
    
15.             ws.Run "cmd /c shutdown -f -r -t 0", 1, False
    
16.             '有问题,可加QQ956535081及时沟通
    
17.             msgbox "互助互利,支付宝扫码头像,感谢赞助"
    
18.             WSH.Quit
    
19.         End If
    
20.         ws.Run """" & exepath & """", 1, False
    
21.     End If
    
22.     WSH.Sleep 10*1000
    
23. Loop

复制代码