Vbscript 重新启动vb脚本

Vbscript 重新启动vb脚本,vbscript,restart,Vbscript,Restart,我正在尝试制作一个重新启动另一个vbs脚本的Vb脚本。问题是我不熟悉这个,我不知道怎么做,有人建议使用WshShell我在一些网站上尝试过如何使用它,但什么都没有。这是我得到的 Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("Test_To_Block.vbs") Do If NOT WshShell.Status = 1 then WScript.E

我正在尝试制作一个重新启动另一个vbs脚本的Vb脚本。问题是我不熟悉这个,我不知道怎么做,有人建议使用
WshShell
我在一些网站上尝试过如何使用它,但什么都没有。这是我得到的

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("Test_To_Block.vbs")
Do
If NOT WshShell.Status = 1 then
    WScript.Exec("Test_To_Block.vbs")
End If
WScript.Sleep(100)
Loop
谢谢

问候,


Viper

是的,您可以使用
Exec
方法运行另一个VB脚本,但您可能会看到控制台窗口闪烁

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Exec("CMD /C Test_To_Block.vbs")

请参阅以了解VB脚本的基础知识。

我尝试过测试它,但即使使用Exec方法,当我结束另一个脚本时,它仍然是=1。出于某种原因,即使我结束“Test_To_Block.vbs”,它也总是将“Test_To_Block.vbs”设置为1。@AViper设置为1是什么意思?
Run
或其他属性或方法?不,Exec方法跟踪它启动的程序,如果程序仍在运行,则它等于1,否则等于0。那么您的意思是,即使您的Test_to_Block.vbs已完成运行,
Exec
returns 1??能否请您将完整的VB脚本上传到云并提供链接?请使用代码更新,而不是创建新的。我尝试过,但它显示anwsered,这意味着没有人会打开它,但anwser不起作用。