2020-02-16 标签:exe,bat,vbs,脚本,实现,代码,如下,fp,wscript,arguments,fn,right,len,instrrev,adodb,stream

exe2bat的脚本 实现代码如下： fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.

2020-02-16 标签:asp,字符串,isnull,isempty,区别,分析,说明,set,aa,server,ddd,指针,指到,无效,位置,对象,不存在

说明:set aa=server.createobject("ddd") isnull 说明指针为空，指针指到一个无效的位置，即对象不存在， isempty 说明指针指向一个有效位置，但是值为空 1、空字符串 例: 实现代码如下： a）Dim strTmp response.write(strTmp

2020-02-16 标签:asp,截获,后台,登录,密码,代码,核心,实现,如下,set,fso,server,scripting,fileexists,mappath,log,txt,true

核心代码:实现代码如下： set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile

2020-02-16 标签:vbs,批量,修改,文件,bat,批处理文件,调用,执行,并在,cmd,窗口,打印,返回,运行,结果,示例,代码,t,如下

示例代码（t.vbs）如下： 实现代码如下： Set fso=Wscript.CreateObject("Scripting.FileSystemObject") flrName="D:\Workspace\src\" 'dir that you need deal with count=0 'ge

2020-02-16 标签:vbs,产生,若干,随机数,写入,txt,代码,实现,如下,set,a,wscript,shell,run,n,otepad,打开,记事本

实现代码如下：Set a=WScript.CreateObject("WScript.Shell") a.Run "notepad" '打开记事本 do Randomize x= Int((40 * Rnd) + 1) '产生一个1~40的随机数赋给X WScript.Sleep 1000 a.Se

2020-02-16 标签:vbs,变量,wsh,等于,wscript,对象,实现,代码,如下,set,shell,sleep,15,60,1000,run,shutdown,s

实现代码如下： set wsh = createobject("wscript.shell") wscript.sleep 15 * 60 * 1000 wsh.run "shutdown /s /t 0"双击运行，居然弹出个错误对话框 实现代码如下： Line: 1 Char: 1 Error:

2020-02-16 标签:asp,提示,server,对象,错误,0178,80070005,尤其是,安装,组件,需要,手工,设置,权限,安全,考虑,限制,很低,大家

尤其是刚安装的那些组件，需要手工设置下权限，因为为了安全考虑，权限限制的很低。大家可以参考下面的方法设置下。错误提示: Server 对象 错误 'ASP 0178 : 80070005' Server.CreateObject 访问错误 ../asp.asp，行 123 检查权限时，对 Serve

2020-02-16 标签:vbscript,registry,注册表,操作,实现,代码,读写,删除,code,create,a,wsh,shell,object,set,wshshell,wscript,n,ew

VBScript Code:' Create a WSH Shell object: Set wshShell = CreateObject( "WScript.Shell" ) ' ' Create a new key: wshShell.RegWrite "HKCU\TestKey\", ""

2020-02-16 标签:vbs,脚本,bat,批处理,删除,自身,方法,自杀,下面,保存为,selfkill,vbe,实现,代码,如下,set,fso,scripting

VBS脚本和BAT批处理自身删除的方法（自杀） 删除自身之：VBS 把下面的脚本保存为selfkill.vbs或selfkill.vbe： 实现代码如下： Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(

2020-02-16 标签:vbs,创建,正则,表达式,对象,两种,方法,一直以来,new,regexp,set,regex,然而,最新,发现,也可以,vbscript,貌似,我看

一直以来，我都是用 New RegExp 来创建正则表达式对象的： Set regex = New RegExp然而最新才发现 VBS 的正则表达式对象也可以这样创建： Set regex = CreateObject("VBScript.RegExp")貌似我看过的 VBScript 书籍没有一本