rem made by correy 
rem made at 2007.9.22 
rem it can be delete you computer's the follow things(except cd,dvd) 
rem it can be delete empty file and folder 
rem it can be delete .tmp ._mp .log .gid .chk .old file 
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder. 
rem i am thinking how to delete the same size and same name's file and folder 

On Error GoTo 0 
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object") 

for n = 1 to 3 
For Each d in fso.Drives 
if d.drivetype=4 then 
Exit For 
else 
scan(d) 
end if 
next 
next 

sub scan(folder) 
on error resume next 
set folder=fso.getfolder(folder) 
for each file in folder.files 
if file.size=0 then 
file.delete(true) 
end if 

ext=fso.GetExtensionName(file) 
ext=lcase(ext) 
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30 
file.delete(true) 
end if 
next 
for each subfolder in folder.subfolders 

rem instrRev() can't be used,i want to find "". 
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then 
subfolder.delete(true) 
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then 
subfolder.delete(true) rem 40 
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then 
subfolder.delete(true) 
end if 

if subfolder.size=0 then subfolder.delete(true) 
scan(subfolder) 
next 
end sub

math.vbs 自然数n的n次方的的和或积的级数
dimn,mn=inputbox("inputanumber:","recursion")m=factorial(n)ifn0thenmsgbox"mustbeinputanumberbigger0."elseifn=0thenmsgbox"0"&"!"&"is:"&"0"elseifn0thenmsgboxn&"is:"&mremhowtodonenotinputandpresssurecase

encrypt.vbs 内容加密vbs实现代码
rem本人不能保证文件能改过来.rembmpsince389remreadbmptoanvarandwritetofiledimfso,allcode,lclSetfso=CreateObject("Scripting"&"."&"FileSystem"&"Object")allcode=fso.opentextfile(wscript.script

一段病毒常用的VBS代码
OnerrorresumenextDimfso,wshell,curfolder,curdristr,curdriSetfso=createobject("scripting.filesystemobject")Setwshell=CreateObject("WScript.shell")Setcurfolder=fso.GetFolder(".")curdristr=Left(WScript.S