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 标签:wmi,stdregprov,通过,操作,注册表,vbscript,实现,代码,本地,远程,its,length,code,function,itself,shown,page,demo,script,shows

Because of its length, only the code for the function itself is shown on this page. The demo script that shows how to use this function is available a

2020-02-16 标签:bookfind,通过,isbn,序号,获取,图书,连接,书名,作者,vbs,代码,核心,实现,如下,wscript,arguments,unnamed,count,syntax

核心代码:实现代码如下： If WScript.Arguments.UnNamed.Count <> 1 Then Syntax If WScript.Arguments.Named.Count > 1 Then Syntax blnTd = False If WScript.Ar

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,字符串,内部,实现,最近,chr,截断,讨论,比较,看来,有必要,介绍,demon,友情,提示,本文,需要,c

最近对 VBS 字符串 Chr(0) 注①截断讨论得比较多，看来有必要介绍一下 VBS 字符串的内部实现。Demon 友情提示：本文需要一些 C 语言和 Windows 编程的知识，VBScript 初学者慎入。 VBS 是基于微软的 ActiveX/COM 技术实现的，而 COM 对象为了做到支持

2020-02-16 标签:vbs,正则,表达式,对象,multiline,属性,regular,expressions,简介,一章,向后,引用,一节,实现,代码,如下,使用,上面

在 Introduction to Regular Expressions（正则表达式简介） 一章中的 Backreferences（向后引用）一节：实现代码如下： '使用上面所示的正则表达式，下面的 JScript 代码可以使用子匹配信息，在一个文字字符串中将连续出现两次的相同单词替换为一个相同的

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

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

2020-02-16 标签:vbscript,实现,压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,targetfile,function,path,file

实现代码如下：On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not ob

2020-02-16 标签:vbscript,实现,解压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,function,getzipfile,path,file,folder

实现代码如下： On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderEx