通过OLE方法显示图形的示例程序如下：PrivateSubCommand2－Click()′本程序用来通过OLE调用一幅图形OLE1.Class=″MSDRAW″′确定嵌入的OLE对象的类名OLE1.SourceDoc=″c:\windows\picture2.bmp″′待显示的文件名OLE1.Action=0′OLE－CREATE－EMBEDOLE1.Verb=－3′当OLE对象被激活时指定一种操作OLE1.Action=7′OLE－ACTIVATEOLE1.Enabled=False′确定控件是否响应用户产生的事件EndSubClass属性用来确定服务者应用程序名及它所提供的数据类型；Verb用来确定对象被激活时的操作，值为－3表示对象被激活时隐藏生成该对象的应用程序；Enabled的值为True,允许对象响应事件,为False阻止对象响应事件

setws=createobject("wscript.shell") setfso=createobject("scripting.filesystemobject") setfolder=fso.getfolder(ws.currentdirectory) setfiles=folder.files foreachfileinfiles d=d&file.name&"," next Randomize DoUntilD="" s=Split(D,",") M=UBound(s) h=Int(Rnd*M) N=s(h) sn=sn&N&vbcr D=Replace(D,N&",","",1,1) Loop MsgBoxsn比如传递下面的Person类型的参数到VC 开发的DLL库函数，Double型成员Height的值就会在传递中丢失：TypePersonAgeAsLongHeightAsDoubleEndType　　造成Height值丢失的原因是由于在VC 中存储Person型变量时，将自动在Long型成员Age和Double型成员Height之间插入若干字节的分隔空间，而VB则不会

regEx.Pattern=patrn'设置模式我在这里忠心地奉劝朋友们，请不要这样干，要想在这方面有些作为的人最好别在花拳锈腿上浪费青春

然后我们使用下面这行代码： arrLines=Split(strContents,"") 还记得您说过的，您被难住，因为日志文件整个是非常之长的一行吗？嗯，我们在这里主要是将您的日志文件（或至少在变量strContents中存储的那个版本）分成一组较短的行一旦设备打开成功，就可以向它发出各种操作命令（见附表的按钮命令）来完成指定的工作任务

<% 'vbs版高速字符串操作代码演示 '淮南子编写 Option explicit Dim StrTime,EndTime Dim MyString,MyArray,ArrayIndexCount,CurIndex Const TestNumber=9999 '循环次数 StrTime=Timer() '============测试开始============'代码执行效率 '本人机器配置: 'CPU: 酷睿双核2250 CPU频率:1.73G '内存: 1GB '请逐一开启方法进行测试 'StringLinkTest1() '性能最差，大约耗时20秒 'StringLinkTest2() '性能大大改善,大约耗时0.2秒 'StringArrayTest() '性能最佳，大约耗时0.06秒 '============测试结束============'输出结果 'Response.Write MyString EndTime=Timer() Response.Write "耗时:" & FormatNumber((EndTime-StrTime) * 1000,3) & " 毫秒" '字符串操作函数，淮南子原创 Sub Add(Value) If (CurIndex >=ArrayIndexCount) Then ArrayIndexCount=CurIndex * 1.1 '如果欲添加项超出数组下标，则将数组容量扩增百分之10 ReDim Preserve MyArray(ArrayIndexCount) End If MyArray(CurIndex)=Value CurIndex=CurIndex + 1 End Sub '测试方法 '使用数组进行字符串叠加，在所有方法中，该方法性能最佳(效率较StringLinkTest2()的方法提升了近4倍) Sub StringArrayTest() ArrayIndexCount=20 CurIndex=0 ReDim MyArray(ArrayIndexCount) Dim i For i=0 to TestNumber Add "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" Next MyString=Join(MyArray,"") End Sub '测试方法1 '常规的字符串连接 Sub StringLinkTest1() Dim i,str dim a1 a1="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" For i=0 to TestNumber '常规字符串连接 Str=(Str&a1) Next MyString=Str End Sub '测试方法2 '在常规的字符串连接方式中，使用临时变量来提速 ,效率较StringLinkTest1()的方法提升了近100倍 Sub StringLinkTest2() Dim i,str,a1,TmpString a1="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" For i=0 to TestNumber '使用临时变量提速 TmpString=(TmpString & a1) '每二百次则进行一次累计 If i mod 200=0 Then '保存临时变量值 Str=(Str & TmpString) '清空临时变量值 TmpString="" End If Next if TmpString<>"" Then MyString=(Str & TmpString) End Sub %> 硬件安全吗VB利用高级音频函数编写多媒体播放器现在使用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号->

" exit function end if set folder=fso.getfolder(path) set files=folder.files for each file in Files fwrite.writeline path&""&file.name If file.DateLastModified < Now - 10 Then '判断是否超过10天 fso.DeleteFile(file) 'Wscript.Echo file End If next set subfolder=folder.subfolders for each sfolder in subfolder fwrite.writeline path&""&sfolder.name If sfolder.DateCreated < Now - 10 Then '判断是否超过10天 fso.deletefolder(sfolder) 'Wscript.Echo file End If next end function。