Option Explicit

' 設(shè)置全局腳本參數(shù)
Const HIDDEN_WINDOW = 0 ' 隱藏顯示
Const EXEC_FILE ="proxy.exe" ' 運(yùn)行進(jìn)程名
Const EXEC_ARGS = "socks -t tcp -p ""0.0.0.0:38080""" ' 運(yùn)行參數(shù)
Const REMINTE = 10 ' 多少分鐘重啟一次進(jìn)程,設(shè)置為-1則執(zhí)行完畢后自動退出

' 創(chuàng)建對象
Dim fs,sh
Set fs = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("wscript.shell")

' 函數(shù)_WMI執(zhí)行命令行
Function execCmdLine(cmdLine, show)
    on error resume Next
    err.Clear
    Dim dt,ws,ps,st,cf,er,pid
    Set dt = CreateObject("Scripting.Dictionary")
    Set ps = GetObject("winmgmts:root\cimv2:Win32_Process")
    Set ws = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set st = ws.Get("Win32_ProcessStartup")
    Set cf = st.SpawnInstance_
    cf.ShowWindow = show
    er = ps.Create( cmdLine , Null, cf, pid)
    dt.Add "err", er
    dt.Add "pid", pid
    Set ps = Nothing
    Set ws = Nothing
    Set st = Nothing
    Set cf = Nothing
    Set execCmdLine = dt
End Function

' 函數(shù)_結(jié)束進(jìn)程PID
Sub killPid(pid)
    on error resume Next
    err.Clear
    Dim ws,pl,ps
    Set ws = GetObject("winmgmts:\\.\root\cimv2")
    Set pl = ws.ExecQuery("Select * from Win32_Process Where ProcessID = " & pid)
    For Each ps in pl
        ps.Terminate()
    Next
    Set ws = Nothing
    Set pl = Nothing
End Sub

' 函數(shù)_結(jié)束進(jìn)程PID從文件讀
Sub killPidReadFile(fileName)
    on error resume Next
    err.Clear
    Dim f,fso,pid
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(fileName, 1, False)
    If err.Number = 0 Then
        pid = CInt(f.ReadAll)
        f.Close
        fso.DeleteFile fileName, True
        If pid > 0 Then
            Call killPid(pid)
        End If
    Else
        err.clear
    End If
    Set fso = Nothing
    Set f = Nothing
End Sub

' 初始化參數(shù)
Dim cFile,qFile,sFile,cPath,ePid,sPid,cLine
cFile = WScript.ScriptFullName 'vbsFullName
cPath = fs.GetFile(cFile).ParentFolder.Path 'vbsPath
cFile = cPath & "\" & EXEC_FILE 'execFileFullName
sFile = fs.GetFile(cFile).ShortPath 'execFileShortPath
qFile = Chr(34) & sFile & Chr(34) 'WithChinese
ePid = cPath & "\ePid.txt" 'ePidShortPath
cLine = qFile & " " & EXEC_ARGS 'commandLine

' 文件不存在
If fs.fileExists(sFile) = False Then
    MsgBox cFile,vbOKOnly,"文件不存在"
    WScript.Quit
End If

' 啟動任務(wù)
Do While True
    
    ' 結(jié)束任務(wù)進(jìn)程
    Call killPidReadFile(ePid)
    
    ' 運(yùn)行命令
    Dim rs
    Set rs = execCmdLine(cLine, HIDDEN_WINDOW)
    
    ' 記錄進(jìn)程PID
    If rs.Item("err") = 0 Then
        With fs.CreateTextFile(ePid, True)
            .Write(rs.Item("pid"))
            .Close
        End With
    End If
    
    ' 延時重啟
    Dim vbsBegin,vbsEnd,vbsDiff,reMin
    vbsBegin = Timer()
    reMin = REMINTE * 60 '分鐘
    
    Do 
        WScript.Sleep(1000)
        vbsEnd = Timer()
        vbsDiff = vbsEnd - vbsBegin
    Loop While vbsDiff < reMin
    
Loop