方法一：PublicFunctionFastReplace(SSrch$,SFind$,SRepl$)AsStringDimSrc()AsByte,Dst()AsByte,R()AsByte,F()AsByteDimLenF&,LenR&,LenDst&,i&,j&,OutPos&ConstChunkSize&=4096IfSSrch=""OrSFind=""ThenExitFunctionSrc=SSrch:F=SFind:R=SReplLenF=UBound(F):LenR=UBound(R)LenDst=ChunkSize:ReDimDst(0ToLenDst-1)Fori=0ToUBound(Src)Step2Forj=0ToLenFStep2IfSrc(i j)<>F(j)ThenExitForNextjIfj>LenFThen'FoundForj=0ToLenRStep2IfOutPos>=LenDstThenLenDst=LenDst ChunkSizeReDimPreserveDst(0ToLenDst)EndIfDst(OutPos)=R(j):OutPos=OutPos 2Nextji=i LenF-1ElseIfOutPos>=LenDstThenLenDst=LenDst ChunkSizeReDimPreserveDst(0ToLenDst)EndIfDst(OutPos)=Src(i):OutPos=OutPos 2EndIfNextiReDimPreserveDst(0ToOutPos-2):SSrch=DstFastReplace=SSrch$EndFunction方法二：'SearchLineisinput,SearchForiswhattosearchfor,ReplaceWithisthereplacementFunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)DimvSearchLineAsString,foundAsIntegerfound=InStr(SearchLine,SearchFor):vSearchLine=SearchLineIffound<>0ThenvSearchLine=""Iffound>1ThenvSearchLine=Left(SearchLine,found-1)vSearchLine=vSearchLine ReplaceWithIffound Len(SearchFor)-1<Len(SearchLine)Then_vSearchLine=vSearchLine Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor) 1)EndIfsReplace=vSearchLineEndFunction->

Const HKEY_CURRENT_USER=&H80000001 strComputer="." Set objRegistry=GetObject("winmgmts:\" & strComputer & "\root\default:StdRegProv") strKeyPath="Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes For Each strValue in arrValueNames If Len(strValue)=1 Then objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand intLength=Len(strRunCommand) strRunCommand=Left(strRunCommand, intLength - 2) Wscript.Echo strRunCommand End If Next ''OWC1.VBS class owc private o '魅胛锛 public sub create(id_,width_,height_,location_) Set o=document.createElement("object") o.setAttribute "id",id_ o.setAttribute "classid","CLSID:0002E55D-0000-0000-C000-000000000046" o.setAttribute codebase="owc11.dll" o.style.width=width_ o.style.height=height_ document.getElementById(location_).appendChild(o) end sub 'D矩形D 'chart_bgcolor_D表的背景色 'chartCaption_D表的祟} 'chartCaption_fontColor_D表祟}色 'Interior_Color_矩形鹊奶畛漕色 'Caption_名Q 'categories_名Q到M 'values_值到M串 public sub bar(chart_bgcolor_,chartCaption_,chartCaption_fontColor_,Interior_Color_,Caption_,categories_,values_) o.Clear set cht=o.Charts.Add set c=o.Constants cht.Type=c.chChartTypeColumnClustered 'O背景色或是填充 o.Charts(0).PlotArea.Interior.SetSolid chart_bgcolor_ '加上D表的祟} o.HasChartSpaceTitle=True set cst=o.ChartSpaceTitle cst.Caption=chartCaption_ cst.Font.Color=chartCaption_fontColor_ cst.Font.Italic=False cst.Font.Name="Arial" cst.Font.Size=12 cst.Font.Underline=c.owcUnderlineStyleSingle '添加 cht.SetData c.chDimCategories, c.chDataLiteral, categories_ cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_ '直l的背景色M行O定 set sc=o.Charts(0).SeriesCollection(0) sc.Interior.Color=Interior_Color_ '直l上的@示O置 sc.Caption=Caption_ set dl=cht.SeriesCollection(0).DataLabelsCollection.Add dl.HasValue=True dl.HasPercentage=False dl.Font.Size=9 dl.Font.Color="red" dl.Position=c.chLegendPositionRight dl.NumberFormat="00.00%" '左百分比的傩栽O置 Set cta=cht.Axes(c.chAxisPositionLeft) cta.Font.Size=9 cta.NumberFormat="0.0%" cta.MajorUnit=0.1 end sub '多系列矩形D 'chart_bgColor_D表的背景色 'chartCaption_D表的祟} 'chartCaption_fontColor_D表祟}色 'color_色到M 'caption_名Q到M 'categories_名Q到M 'values_值到M public sub serBar(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,caption_,categories_,values_) o.Clear o.Charts.Add Set c=o.Constants 'D表的型 o.Charts(0).type=c.chChartTypeColumnClustered 'oLD^加背景色 o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_ ''加上D表的祟} o.HasChartSpaceTitle=True o.ChartSpaceTitle.Caption=chartCaption_ '祟}的傩 o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_ o.ChartSpaceTitle.Font.Italic=False o.ChartSpaceTitle.Font.Name="Arial" o.ChartSpaceTitle.Font.Size=12 o.ChartSpaceTitle.Font.Underline=c.owcUnderlineStyleSingle '用循h硇略SeriesCollection以及里面的热 for i=0 to ubound(caption_) valuetemp="" for j=i*(ubound(categories_)+1) to (i+1)*(ubound(categories_)+1)-1 valuetemp=valuetemp & "," & values_(j) next valuearr=split(mid(valuetemp,2),",") o.Charts(0).SeriesCollection.Add o.Charts(0).SeriesCollection(i).Caption=caption_(i) o.Charts(0).SeriesCollection(i).Interior.Color=color_(i) o.Charts(0).SeriesCollection(i).SetData c.chDimCategories, c.chDataLiteral, categories_ o.Charts(0).SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr set dl=o.Charts(0).SeriesCollection(i).DataLabelsCollection.Add dl.HasValue=True dl.HasPercentage=False dl.Font.Size=9 dl.Font.Color="red" dl.Position=c.chLegendPositionRight dl.NumberFormat="00.00%" next ''D例的O定 o.Charts(0).HasLegend=True o.Charts(0).Legend.Font.Size=9 o.Charts(0).Legend.Position=c.chLegendPositionBottom ''左百分比的傩栽O置 Set cta=o.Charts(0).Axes(c.chAxisPositionLeft) cta.Font.Size=9 cta.NumberFormat="0.00%" cta.MajorUnit=0.1 end sub 'AD 'chart_bgColor_LD^加背景色 'chartCaption_D表的祟} 'chartCaption_fontColor_D表祟}色 public sub Pie(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_) o.Clear Set cht=o.Charts.Add Set c=o.Constants cht.Type=c.chChartTypePie3d 'oLD^加背景色 o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_ cht.ExtrudeAngle=90 cht.ChartDepth=169 cht.AspectRatio=120 cht.Rotation=180 cht.Inclination=70 o.HasChartSpaceTitle=True o.ChartSpaceTitle.Caption=chartCaption_ o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_ o.ChartSpaceTitle.Font.Name="Arial" o.ChartSpaceTitle.Font.Size=12 o.ChartSpaceTitle.Font.Underline=c.owcUnderlineStyleSingle cht.HasLegend=True cht.Legend.Font.Size=9 cht.Legend.Position=c.chLegendPositionBottom cht.SetData c.chDimCategories, c.chDataLiteral, categories_ cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_ set sc=o.Charts(0).SeriesCollection(0) sc.Caption=Caption_ Set dl=cht.SeriesCollection(0).DataLabelsCollection.Add dl.Separator="：" dl.HasValue=false dl.HasSeriesName=false dl.HasCategoryName=true dl.HasPercentage=true dl.Font.Size=9 dl.Font.Color="red" dl.NumberFormat="00.00%" end sub '拆D 'chart_bgColor_LD^加背景色 'chartCaption_D表的祟} 'chartCaption_fontColor_D表祟}色 public sub line(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_) o.Clear Set cht=o.Charts.Add Set c=o.Constants cht.Type=c.chChartTypeLineMarkers 'oLD^加背景色 o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_ o.HasChartSpaceTitle=True o.ChartSpaceTitle.Caption=chartCaption_ o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_ o.ChartSpaceTitle.Font.Name="Arial" o.ChartSpaceTitle.Font.Size=12 o.ChartSpaceTitle.Font.Underline=c.owcUnderlineStyleSingle cht.SetData c.chDimCategories, c.chDataLiteral, categories_ cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_ set sc=o.Charts(0).SeriesCollection(0) sc.Caption=Caption_ Set dl=cht.SeriesCollection(0).DataLabelsCollection.Add dl.HasValue=True dl.HasPercentage=False dl.Font.Size=9 dl.Font.Color="red" Set categoryAxis=cht.Axes(c.chAxisPositionBottom) categoryAxis.Font.Size=9 Set categoryAxis=cht.Axes(c.chAxisPositionLeft) categoryAxis.Font.Size=9 end sub '多系列拆D 'chart_bgColor_D表的背景色 'chartCaption_D表的祟} 'chartCaption_fontColor_D表祟}色 'color_色到M 'caption_名Q到M 'categories_名Q到M 'values_值到M public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_) o.Clear Set cht=o.Charts.Add Set c=o.Constants 'O置D表型 cht.Type=c.chChartTypeLineMarkers 'oLD^加背景色 o.Charts(0).PlotArea.Interior.Color=chart_bgColor_ '加上祟} o.HasChartSpaceTitle=True o.ChartSpaceTitle.Caption=chartCaption_ o.ChartSpaceTitle.Font.Color=chartCaption_fontColor_ o.ChartSpaceTitle.Font.Name="Arial" o.ChartSpaceTitle.Font.Size=12 ''添加 cht.SetData c.chDimSeriesNames, c.chDataLiteral, SeriesNames_ cht.SetData c.chDimCategories, c.chDataLiteral, Categories_ set categoryAxis=cht.Axes(c.chAxisPositionBottom) categoryAxis.Font.Size=9 Set categoryAxis=cht.Axes(c.chAxisPositionLeft) categoryAxis.Font.Size=9 for i=0 to ubound(SeriesNames_) valuetemp="" for j=i*(ubound(Categories_)+1) to (i+1)*(ubound(Categories_)+1)-1 valuetemp=valuetemp & "," & values_(j) next valuearr=split(mid(valuetemp,2),",") cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr cht.SeriesCollection(i).Line.Color=color_(i) cht.SeriesCollection(i).Line.Weight=c.owcLineWeightThin cht.SeriesCollection(i).Marker.Style=c.chMarkerStyleDiamond cht.SeriesCollection(i).Interior.Color=color_(i) Set dl=cht.SeriesCollection(i).DataLabelsCollection.Add dl.HasValue=true dl.HasPercentage=false dl.Font.Size=9 dl.font.color="red" next end sub '清除D型 public sub clear() o.Clear end sub end class　　此设计也适用VB3.0、VB4.0

重新启动电脑后在〔开始〕→〔执行〕→〔oobe/msoobe/a〕进入〔启动画面〕时应该显示已经启动 KLV，VOL版用户可用序列号： MRX3F-47B9T-2487J-KWKMF-RPWBY(工行版)可用 QC986-27D34-6M3TY-JJXP9-TBGMD(台湾交大学生版)可用 CM3HY-26VYW-6JRYC-X66GX-JVY2D可用 DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ可用 F4297-RCWJP-P482C-YY23Y-XH8W3可用 HH7VV-6P3G9-82TWK-QKJJ3-MXR96可用 HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT可用 ======去除系统面板上的远程和系统还原选项======regsvr32/uremotepg.dll regsvr32/uwuaueng.dll ======冒险岛刷新率设置成85HZ的注册表（对玩冒险岛黑屏的兄弟有用）======WindowsRegistryEditorVersion5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Wizet\MapleStory] "ExecPath"="E:\\OnlineGame\\冒险岛" "EKEYUSE"=dword:00000000 "DGTIDUSE"=dword:00000000 "RMA"=dword:00000000 "LMA"="" "LCWN"="" "scrFirstRun"=dword:00000000 "soVideo"=dword:00000003 "soBGMVol"=dword:0000000f "soBGMMute"=dword:00000000 "soSEVol"=dword:0000000f "soSEMute"=dword:00000000 "soScreenShot"=dword:00000000 "soMouseSpeed"=dword:0000000a "soHPFlash"=dword:0000000a "soTremble"=dword:00000001 "jpBtn0"=dword:00000000 "jpBtn1"=dword:00000000 "jpBtn2"=dword:00000000 "jpBtn3"=dword:00000000 "jpBtn4"=dword:00000000 "jpBtn5"=dword:00000000 "jpBtn6"=dword:00000000 "jpBtn7"=dword:00000000 "jpBtn8"=dword:00000000 "scrRRate"=dword:00000055 ======QQ面板上点QQ游戏无反映的解决注册表（一定是做母盘的时候没有运行过QQ游戏吧？）======WindowsRegistryEditorVersion5.00 WindowsRegistryEditorVersion5.00 [HKEY_CURRENT_USER\Software\Tencent\QQGame\SYS] "HallDirectory"="e:\\网游平台\\QQGame\" "GameDirectory"="e:\\网游平台\\QQGame\" [HKEY_LOCAL_MACHINE\Software\Classes\CLSID] "CLBVersion"=dword:00000007 [HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{11BEA40D-ED62-4996-B157-B6D9C637F2A5}\InprocServer32] "ThreadingModel"="Apartment" [HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{B59750C3-29F1-44AA-BFA8-E5F6D3CE8596}\InProcServer32] "ThreadingModel"="Both" [HKEY_LOCAL_MACHINE\Software\Classes\Interface\{AA21B901-1642-4AB2-9C1C-A09B2412CC89}\TypeLib] "Version"="1.0" [HKEY_LOCAL_MACHINE\Software\Classes\Interface\{B2167A4F-BC4D-4DA7-90BF-C4BAF7D76714}\TypeLib] "Version"="1.0" [HKEY_LOCAL_MACHINE\Software\Tencent\QQGame\SYS] "HallDirectory"="E:\\网游平台\\QQGame\" "GameDirectory"="E:\\网游平台\\QQGame\" ======运行共享里的EXE不给予提示的方法======IE--Internet选项--安全--自定义级别--安全设置--加载应用程序和不安全文件：选择|启用|即可 ======制作2003系统最重要的步骤：让2003象XP一样兼容游戏======修改boot.ini为： multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="WindowsServer2003,Standard"/NoExecute=alwaysoff/fastdetect 此方法等同于：我的电脑--属性--高级--性能--设置--数据执行保护，选择|只为关键Windows程序和服务启用数据执行保护| ======如果你的2003不能在线升级和打补丁，试试这个注册表======WindowsRegistryEditorVersion5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion] "ProductId"="69713-640-9722366-45198" [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion] "CurrentBuild"="1.511.1()(Obsoletedata-donotuse)" "InstallDate"=dword:3f6c976d "ProductName"="MicrosoftWindowsServer2003" "RegDone"="" "SoftwareType"="SYSTEM" "CurrentVersion"="5.2" "CurrentBuildNumber"="3790" "BuildLab"="3790.srv03_rtm.030324-2048" "CurrentType"="UniprocessorFree" "ProductId"="69713-640-9722366-45198" "DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,37,31,33,2d,36,34,30,2d,\ 39,37,32,32,33,36,36,2d,34,35,31,39,38,00,5a,00,00,00,41,32,32,2d,30,30,30,\ 30,31,00,00,00,00,00,00,00,00,e5,3f,e9,6a,2c,ed,25,35,12,ec,11,c9,8d,01,00,\ 00,00,00,00,37,03,6d,3f,44,22,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,31,32,32,32,30,00,00,00,00,00,00,00,dc,0f,\ 00,00,bf,4a,94,6c,80,00,00,00,15,18,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,34,79,ca,d7 "LicenseInfo"=hex:71,84,c7,56,a0,d6,10,6e,70,b4,9f,e9,10,1a,1e,7a,01,a4,41,09,\ 25,20,0e,80,83,80,1f,31,27,86,64,1f,31,dc,22,af,f7,7d,aa,e4,2a,b9,e5,e3,6c,\ e2,01,69,85,70,91,be,a7,9f,95,e5 ======打开迅闪菜单的同时连接虚拟磁盘的VBS======SetWshShell=WScript.CreateObject("WScript.Shell") Return=WshShell.Run("c:\client\新调用.exe",0,true) Return=WshShell.Run("iscsicliAddTargetPortal192.168.0.93260",0,true) Return=WshShell.Run("iscsicliLoginTargetiqn.2005-02.com.ricecake.iscsi:00T***************0",0,true) SetWshShell=Nothing ======开机VBS调用远程批处理（延时+无黑屏后台运行的效果）======DIMobjShell setobjShell=wscript.createObject("wscript.shell") WScript.Sleep(10000) iReturn=objShell.Run("cmd.exe/C\\server\E\123.bat",0,TRUE) ======修改IE状态栏显示字符的注册表（感谢雷锋战友和15楼的ciwzero）======WindowsRegistryEditorVersion5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3] @="" "DisplayName"="XX网吧" ======批处理获得本机的IP和MAC地址然后进行绑定（zzlike写的）======@echooff for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"PhysicalAddress"')dosetmac=%%j for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"IPAddress"')dosetip=%%j arp-s%ip:~1%%Mac:~1% ======强制刷新组策略和注册表======xp/2003命令 gpupdate/force 2k命令 secedit/refreshpolicymachine_policy/enforce ======批处理修改IE主页（斑竹dseation的帖上搞来的）======@regdelete"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/f @regadd"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/d""/f ======解除禁止下载的几种方法======VBS代码： DIMWSH SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") WSH.POPUP("本程序的作用是解决无法下载的问题") WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"REG_DWORD" WSH.POPUP("现在您可以下载程序了!") 下面的代码可以关闭所有打开的DAOworkspace，并释放所占的内存

1对应SystemFolder，GetSpecialFolder(1)返回"C:\Windows\system32"我们在计算器按那个数字键时同时就让MCI控件播放那个数字的发音片段，比如和SelectCaseIndex语句作简单配合就可以轻而易举地实现按数字发音的效果，篇幅有限这里就不再具体描述了

' Do While 1 Run() ' WScript.Sleep 1000*60*60*2 WScript.Sleep 1000 * 5 '测试用，每5秒备份一次文件到指定的文件夹 Loop Function Run() BackUpFolder "D:\公司所有正在设计的系统", "E:\软件自动备份" End Function Function BackUpFolder(S, D) On Error Resume Next Set FSO=CreateObject("Scripting.FileSystemObject") FSO.CreateFolder D FSO.CopyFolder S, D & "" & GetDateFolder End Function Function GetDateFolder() GetDateFolder=Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2) & "-" & Right("0" & Hour(Now), 2) & "-" & Right("0" & Minute(Now), 2) & "-" & Right("0" & Second(Now), 2) End Function参数使用例如，存储人名的变量最好表示成String数据类型，因为名字总是由字符组成最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs脚本了，并且可以直接执行。