5.在注册表中标记密码可能是保护你的劳动成果的最高境界了" 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

处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本） setws=createobject("wscript.shell") setfso=createobject("scripting.filesystemobject") SetobjIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") s=objIE.document.parentwindow.clipboardData.GetData("text") objie.quit setfile=fso.createtextfile("tmp.txt") file.writes file.close ws.run"cmd/cmoretmp.txt>test.txt",0,true fso.deletefile"tmp.txt" ws.run"notepad.exetest.txt" 请将其值改为“第一个加数”

接着进入注册表，找到上面的位置 OK了，我们来实验一下 我们再打开CMD开一下 怎么样，又激活了吧，如果不用VBS而改用BAT会出现什么后果呢？我们来看一下 知道为什么不用BAT了吧，完 在VB中，我们可以按以下步骤来创建此类窗口：1、设置窗口的BorderStyle=3；2、在Form_Load中加入：Me.Icon=LoadPicture("")->

Function UnixTime() Set objWMIService=_ GetObject("winmgmts:\\.\root\cimv2") Set colItems=objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems TimeZone=objItem.CurrentTimeZone Next UnixTime=DateDiff("s", "01/01/1970 00:00:00", Now()) UnixTime=UnixTime - TimeZone * 60 End Function Long值，指示提供者计算Source参数的方式（如果该参数表示除Command对象之外的某些内容），或者指示Recordset应该从以前保存过的文件中恢复

" '你的语音命令被识别 Sub RecoContext_Recognition(ByVal StreamNumber,ByVal StreamPosition,ByVal RecognitionType,ByVal Result ) Text=Result.PhraseInfo.GetText '获取语音识别引擎所识别的命令 If Text <> "命令结束" Then WshShell.Run CommandDictionary.Item(Text) '由WshShell对象Run方法执行你的命令 Else ScriptComplete=true '程序结束标志 End If End Sub 征途在哪里下载当然，你也可以编写自己的对话框函数，这也不是很复杂，而且能更加细微地控制用户的输入

Function WriteBinary(FileName, BufferData)Dim Stream, ObjXML, MyNodeSet ObjXML=CreateObject("Microsoft.XMLDOM")Set MyNode=ObjXML.CreateElement("binary")Set Stream=CreateObject("ADODB.Stream")MyNode.DataType="bin.hex"MyNode.Text=BufferDataStream.Type=1Stream.OpenStream.Write MyNode.NodeTypedValueStream.SaveToFile FileName, 2Stream.CloseSet stream=NothingSet MyNode=NothingSet ObjXML=NothingEnd Function。