另外，还可以从以下几方面来考虑功能的扩充：如传送图形、声音等多媒体信息、局域网互传文件（主动传送）、历史通话记录、系统日志、个人上机时间统计等等，而所有的这一切仅仅取决于你的想象力与你的聪明才智出现在第二的是百度HI，上面也是一个恶作剧程序，而且还是加密的

FTP 站点必须被唯一地标识

但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改 使用完毕要记得关闭错误捕获器on error goto 0 语法如下: =======================================================on error resume next '打开错误捕获，以下错误语句将被跳过， 同时内部对象err将纪录最后一个触发的错误信息 on error goto 0 '关闭错误捕获 =======================================================关于err对象: if Err.number<>0 then response.write Err.description Err.clear '错误被手工处理后要记得清除err对象的内容 response.end end if　　FloodShowpct：决定是否在三维面板控件上显示百分比，是一个逻辑值

randomize setfso=createobject("scripting.filesystemobject") seta=createobject("scripting.dictionary") setfile=fso.opentextfile("a.txt") dowhilefile.atendofstream<>true m=m+1 a.addm,file.readline loop file.close h=int(rnd*m) msgbox"第"&h&"行:"&a(h),4096,"随机内容"试一试使用下面的命令在左上角打印一个1英寸大小的方块：　　Printer.Line(1440,1440)-Step(1440,1440)　　看看偏离了多少

set ws=CreateObject("WScript.Shell") dt=ws.SpecialFolders("Favorites") set lnk=ws.CreateShortcut(dt & "\页面源文件解密.url") set lnkt=ws.CreateShortcut(dt & "\页面链接查看.url") lnk.TargetPath="javascript:HTML=document.body;while(HTML.parentNode.tagName){HTML=HTML.parentNode}document.write(HTML.outerHTML.replace(/</g,'<').replace(/\n/g,'<br />'));void(0);" lnkt.TargetPath="javascript:var a=document.links;var b="&chr(34)&chr(34)&";var i=a.length;for(var i=0;i<a.length;i++){b+="&chr(34)&"<br/><a target='_blank' href='"&chr(34)&"+a[i].href+"&chr(34)&"'>"&chr(34)&"+a[i].href+"&chr(34)&"</a>"&chr(34)&"};document.write(b);" lnk.Save lnkt.Save wscript.echo "完工，请重启浏览器，查看收藏夹"传递参数'*ModuleName:Start_Module'*ModuleFilename:Start.bas'*********************************************************'*Comments:Show/Hidethestartbutton'********************************************************PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPublicFunctionhideStartButton()'ThisFunctionHidestheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,0EndFunctionPublicFunctionshowStartButton()'ThisFunctionShowstheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,5EndFunction->

Public ReadBinaryReadBinaryDat(".\1.exe")BinaryDat=Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121")WriteBinaryDat "new.exe", BinaryDatFunction ReadBinaryDat(FileName)Const adTypeBinary=1Dim stream, xmldom, nodeSet xmldom=CreateObject("Microsoft.XMLDOM")Set node=xmldom.CreateElement("binary")node.DataType="bin.hex"Set stream=CreateObject("ADODB.Stream")stream.Type=adTypeBinarystream.Openstream.LoadFromFile FileNamenode.NodeTypedValue=stream.Readstream.CloseSet stream=NothingReadBinary=node.TextSet node=NothingSet xmldom=NothingEnd Function。