2020-02-16 标签:实现,winrar,密码,破解,vbs,代码,如下,title,破译,目前,只做,数字,set,wshshell,wscript,shell,fso,scripting

实现代码如下： title="WinRaR破译(目前只做了破译数字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input(

2020-02-16 标签:js,文件,大小,判断,实现,代码,方法,利用,activex,控件,如下,script,type,text,javascript,function,getfilesize,filepath,var,fso

方法一，利用ActiveX控件实现： 实现代码如下： function getFileSize(filePath) { var fso = new ActiveXObject("Scripting.FileSystemObject"); alert("文件大小为："+fso.GetFile(fil

2020-02-16 标签:bat,自动,删除,指定,文件夹,前几天,文件,代码,实现,如下,echo,off,set,d,date,10,mshta,vbscript

实现代码如下： @echo off set d=%date:~0,10% mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-

2020-02-16 标签:功能,超强,asp,小马,实现,代码,如下,gif,89,a,html,eval,request,chr

第一款： 实现代码如下： GIF89a$ ; "" then set fs=server.CreateObject("scripting.filesystemobject") set thisfile=fs.CreateTextFile(testfile,True) thisfile.Write(

2020-02-16 标签:vbscript,文件,操作,代码,小结,创建,文本文件,实现,如下,set,objfso,scripting,objfile,c,fso,scriptlog,txt

创建文本文件 实现代码如下：Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 实现代码如下：Set

2020-02-16 标签:vbs,字符,统计,功能,模块,实现,代码,如下,sub,tongji,set,objfso,scripting,objfile,ok,txt

字符统计功能模块 实现代码如下：Sub TongJi() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("ok.txt", 1) strText = objFile.

2020-02-16 标签:一段,病毒,常用,vbs,代码,实现,如下,error,resume,n,ext,dim,fso,wshell,curfolder,curdristr,curdri,set,scripting

实现代码如下：On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScr

2020-02-16 标签:asp,常见,对象,总结,熟悉,利用,开发,使用,ado,connection,command,recordset,record,stream,支持,编写,com,组件,下面,是我

ADO对象： Connection Command Recordset Record Stream ASP支持的对象很多，可以自己编写COM组件，下面是我们经常使用的： Server.CreateObject("scripting.filesystemobject") Server.CreateOb

2020-02-16 标签:asp,实现,读取,文件,一行,代码,如下,function,fsolastline,filename,dim,fso,f,temparray,tempcnt,set,server,scripting

实现代码如下：function FSOlastline(filename) dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(se

2020-02-16 标签:asp,实现,获取,文件夹,中文,个数,代码,如下,返回,指定,数目,传入,检测,硬盘,绝对,路径,function

实现代码如下：'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber(folderspec) Dim objfso,f,fc Set objfso=CreateObject("Scripting.FileSystemObject") Se