我写的vbs程序缺少标识符怎样弄？

Question

Sub Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("D:\ruijie\ruijie\RuijieSupplicant\RuijieSupplicant.exe")
set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 40000
WshShell.run "cmd.exe /c taskkill /f /im 8021x.exe /t",0
WScript.Sleep 150000

End Sub
顺便循环一下这条语句 谢谢

Answer 1

Set WshShell = CreateObject("WScript.Shell")
for i=1 to 10
    Set oExec = WshShell.Exec("D:\ruijie\ruijie\RuijieSupplicant\RuijieSupplicant.exe")
    WScript.Sleep 40000
    WshShell.run "taskkill /f /im 8021x.exe",hide
    WScript.Sleep 150000
next

追问

非常感谢您的改写，请问一下这个程序循环是无限循环吗，我需要一个无限循环的

追答

Set WshShell = CreateObject("WScript.Shell")
do
Set oExec = WshShell.Exec("D:\ruijie\ruijie\RuijieSupplicant\RuijieSupplicant.exe")
WScript.Sleep 40000
WshShell.run "taskkill /f /im 8021x.exe",hide
WScript.Sleep 150000
loop