完成后停止Vbscript

当我注意到一个问题时，我正在做一个叫做立方体的游戏。当我注意到大量VBSSCcript正在运行时，我查看了任务管理器中的任何额外程序。我试着四处搜索，但没有脚本对我有效。这是我的代码（它会播放声音）

它仍然不想停止。请帮助。

试试下面的例子

使用CreateObject（“WMPlayer.OCX.7”）的

.URL=“C:\Users\DELL\Desktop\tmp\hit.wav”
.游戏
做
WScript.Sleep 100
循环直到.playState=1或.playState=10
“.游戏状态https://msdn.microsoft.com/en-us/library/windows/desktop/dd564085（v=vs.85）.aspx
““已停止”（已完成）或“准备就绪”（未找到文件）
以

Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "Sounds\Hurt.mp3"
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000
WScript.Quit 1