VBS遇到一些问题窗口不能关闭

这个是打开的vbs这是我第一个Vbs的脚本on error resume nextdim WSHshe11Aset WSHshe11A = wscript.creatobject("wscript.shell")msgbox"自己看着办"dim ado while(a <> "是")set ws = CreateObject("wscript.shell")ws.run "cmd /c start C:尀Users尀User尀Documents尀Game尀new(2).vbs", 0, truea = inputbox ("我是不是最可爱的？？？？")loopmsgbox"哈哈哈哈好乖好听话"这个是new(2).vbs里面也就是第二个的东西dowscript.sleep 1000*1msgbox "快点承认吧"loop我原本的意思是想等第一个vbs弹出问题时，第二个vbs的内容会无限循环关也不能关会一直弹出，现在问题是就算你做出选择后，那些已经被打开的窗口无法关闭，就算是按了x也是一直循环出现，怎么样才能使别人回答问题后，关闭之前打开的第二个vbs还有那些窗口？