求助vbs循环执行指定秒数后停止工作的代码没有正常循环是什么原因

hnldwhm52

老师节日好！！
    以下123.VBS 如下，只运行了一次循环体就停止工作，而不是循环执行160秒后停止工作,不知错在何处请指教?
                                                                                      谢谢！！
123.VBS:

1. Dim strPrgpth
   
2. strPrgpth = """e:\工具\武侠.exe"""
   
3. Set wshshell = CreateObject("wscript.shell")
   
4. Set oexec = wshshell.exec(strPrgpth)
   
5. 
   
6. t=timer
   
7. do while timer-t<160
   
8. 
   
9.     wscript.sleep 1000
   
10.     wshshell.Sendkeys "{ENTER}"
    
11.     wscript.sleep 30000
    
12.     wshshell.Sendkeys "{ENTER}"
    
13.     process.Terminate
    
14. loop

复制代码

yu2n

1. Dim strPrgpth
   
2. strPrgpth = """e:\工具\武侠.exe"""
   
3. Set wshshell = CreateObject("wscript.shell")
   
4. Set oexec = wshshell.exec(strPrgpth)
   
5. 
   
6. t=timer
   
7. do while timer-t<160
   
8.     wscript.sleep 1000
   
9.     wshshell.Sendkeys "{ENTER}"
   
10.     wscript.sleep 30000
    
11.     wshshell.Sendkeys "{ENTER}"
    
12. loop
    
13. process.Terminate

复制代码

hnldwhm52

回复 2# yu2n


谢谢yu2n老师解答！！我用了还是不行，还请费心！

yu2n

1. Dim strPrgpth
   
2. strPrgpth = """%WinDir%\NOTEPAD.EXE"""
   
3. Set wshshell = CreateObject("wscript.shell")
   
4. Set oexec = wshshell.exec(strPrgpth)
   
5. 
   
6. t = Timer
   
7. Do While Timer - t < 5
   
8.     wscript.sleep 1000
   
9.     wshshell.Sendkeys "{ENTER}"
   
10.     wscript.sleep 3000
    
11.     wshshell.Sendkeys "{ENTER}"
    
12. loop
    
13. oexec.Terminate

复制代码