2020-02-16 标签:vbs,输入,助手,执行,会调,用好,乱的,进程,error,resume,next,set,arg,wscript,arguments,count,quit,enjoy,code

On Error Resume Next Set Arg=Wscript.arguments If Arg.count=0 then Wscript.quit '------------------- 'Enjoy it 'Code By NetPatch '-------------------

2020-02-16 标签:vbs,实现,强制,杀进,脚本,黑人,必会,对付,杀毒软件,备注,关闭程序,防止,出现,错误,代码,如下,error,resume,next

黑人必会！强制杀进程！对付杀毒软件啊 '备注：vbs强制关闭程序 '防止出现错误 实现代码如下：On Error Resume Next'vbs代码开始----------------------------------------------sub Close_Process(ProcessNam

2020-02-16 标签:vbs,记录,客户机,操作,代码,脚本,error,resume,n,ext,strcomputer,set,getobject,winmgmts,root,cimv,ipconfigset,execquery

记录客户机操作的VBS脚本on error resume next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet

2020-02-16 标签:lcl,vbs,病毒,源代码,rem,email,kouguoxi,hotmail,comrem,crack,statement,i,remment,t,runon,error,resume,n,ext,dim

rem email:kouguoxi@hotmail.comrem some crack statement i remment,make it can't to runon error resume next dim title,text title="can you help me find a

2020-02-16 标签:vbs,搜索,文件名,得到,目录,列表,网上,程序,改得,方便,了点,效率,很好,实现,代码,如下,error,resume,n

'把网上的一个小程序改得方便了点，这个搜索次效率很好。 实现代码如下：on error resume nextDim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPathConst MY_CO

2020-02-16 标签:vbs,脚本,加密,解密,简易,dim,wshshell,fso,error,resume,next,set,wscript,shell,scripting

Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Ar

2020-02-16 标签:asp,利用,fso,实现,文件夹,文件,移动,改名,操作,函数,function,movefiles,sfolder,dfolder,error,resume,n,ext,dim,set

asp利用fso实现文件的移动function movefiles(sFolder,dFolder)on error resume nextdim fsoset fso = server.createobject("scripting.filesystemobject")if fso.foldere

2020-02-16 标签:vbs,实现,读取,文本文件,方法,文件,function,readfile,error,resume,next,set,fs,scripting,file

vbs读取文件方法Function readfile(readfilepath) 'On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")Set file = fs.OpenTextFile(readfilepa

2020-02-16 标签:vbs,实现,cmd,功能,代码,error,resume,n,ext,d,520,inputbox,输入,命令,多个,连接,关闭,vb,窗口

用vbs实现cmd功能 on error resume nextdo while d<>"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")set q=createobject("scripting.filesystemobject")se

2020-02-16 标签:asp,在线,执行,sql,语句,函数,实现,代码,如下,function,gfv,str,request,form,end,sub,executesql,dim,content,error

实现代码如下：function gfv(str)gfv = request.form(str) end function sub executesqldim content:content = gfv("content")on error resume nextconn.begintransconn