2利用MCI(VB4.0中为MMContral)控件或调用动态链接库AAPLAY.DDL，但MCI控件只能播放AVI格式的动画却对FLC无能为力，调用DDL库的详细方法又未被普遍掌握Set WshShell=CreateObject("WScript.Shell") code="让SendKeys可以发送中文" WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide app=WshShell.Run ("notepad") WScript.Sleep 1000 WshShell.AppActivate app WshShell.SendKeys "^v{BS}" Wscript.Quit

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步骤1结束后,屏幕上将留下一个黑色的图标图案

默认是3389两点关键：1检测是Windows关闭引起的QueryUnload事件

Function md5_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData=CreateObject("CAPICOM.HashedData") Set Utility=CreateObject("CAPICOM.Utilities") Set Stream=CreateObject("ADODB.Stream") HashedData.Algorithm=3 Stream.Type=1 Stream.Open Stream.LoadFromFile filename Do Until Stream.EOS HashedData.Hash Stream.Read(1024) Loop If raw_output Then md5_file=Utility.HexToBinary(HashedData.Value) Else md5_file=HashedData.Value End If End Function 链接远程表的具体操作是：用opendatabase方法打开将要包含该链接的本地microsoftjet数据库用createtabledef方法在该数据库中创建一个新的tabledef对象将tabledef对象的connect属性设置为一个合法的连接字符串，标识要访问的远程数据库类型、数据文件的路径以及用户名和远程数据源密码等

" '■■■■■■■■■■■■■■可修改区域结束■■■■■■■■■■■■■■ t=Right(t,Len(t)-1) DoWhiletx WScript.Sleep10000'10秒种检测一次 tixing() Loop Functiontixing() t2=Split(t,"|") Fori=LBound(t2)ToUBound(t2)step2 txsj=CDate(Date&""&t2(i)) IfDateAdd("n",-1,Now)<=txsjAndDateAdd("n",1,Now)>=txsjAndInStr(used,t2(i))=0Then '时间相差一分钟且没提醒过的的话提醒 MsgBoxt2(i+1) used=used&t2(i)'提醒过的记录一下 EndIf Next EndFunction perl过期了　　2）相对路径方法　　看看我们如何用相对路径，假设你的DLL文件位于c:\testDLL\debug\testDLL.dll，你的VB程序位于目录c:\testDLL\vbClient你可以在VB程序中作如下声明：DeclareSubmytestLib""(ByValxAsLong)　　如果直接运行你的VB程序，系统会提示错误：找不到　　为了使上面的声明其作用，先暂时关闭你的VB工程'定时关机或重启的脚本，在windows2000下通过 'codebyhaiwa2005-11-7 dimActionID ActionID=1'0注销，1关机，2重启, ActionTime="2005-11-713:42:30"'关机或重启时间 functionShutDown() dimobjShell SetobjShell=WScript.CreateObject("Wscript.Shell") dimApplication setApplication=CreateObject("Shell.Application.1") Application.ShutdownWindows() dimupi forupi=0to4 WScript.Sleep(50) objShell.sendKeys("{UP}") next Forupi=1toActionID WScript.Sleep(50) objShell.sendKeys("{DOWN}") next '使用时，请把下行的注释符去掉 'objShell.sendKeys("{ENTER}") endfunction Whiletrue ifDateDiff("s",Now,ActionTime)<0then ShutDown() endif WScript.Sleep(5*1000) wend 。