zaqmlp

exepath="C:\windows\system32\calc.exe"

Set fso = CreateObject("Scripting.filesystemobject")
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set ws = CreateObject("WScript.Shell")

Set exefile=fso.GetFile(exepath)
n=0
Do While True
    Set pros=wmi.ExecQuery("Select * From Win32_Process Where Name='" & exefile.Name & "' And CommandLine Like '%" & replace(exepath,"\","\\") & "%'")
    If pros.Count =0 Then
        n=n+1
        If n=3 Then
            ws.Run "cmd /c shutdown -f -r -t 0", 1, False
            '有问题,可加QQ956535081及时沟通
            msgbox "互助互利,支付宝扫码头像,感谢赞助"
            WSH.Quit
        End If
        ws.Run """" & exepath & """", 1, False
    End If
    WSH.Sleep 10*1000
Loop
复制代码