VBS创建正则表达式对象的两种方法

2017年02月06日 64 阅读

一直以来，我都是用 New RegExp 来创建正则表达式对象的： Set regex = New RegExp然而最新才发现 VBS 的正则表达式对象也可以这样创建： Set regex = CreateObject（"VBScript.RegExp"）貌似我看过的 VBScript 书籍没有一本介绍过这种写法，当然，书上没写的东西还有很多。 既然提到了正则表达式，那么就顺便说一下，VBS 的正则表达式对象是支持 MultiLine 模式的，对象有一个 ...

VBS实现将字符串写入剪切板的实现代码

2017年02月06日 87 阅读

函数代码: 复制代码 代码如下: Sub CopyString（s） Set forms=WScript.CreateObject（"forms.form.1"） Set textbox=forms.Controls.Add（"forms.textbox.1"）.Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len（.text） .copy End With End S...

用VBScript实现压缩目录中的所有文件（Zip）

2017年02月06日 81 阅读

复制代码 代码如下:On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile（path） Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists（path） Then Msgbox "目标文件夹不存在！" Else objFSO.CreateFolder targ...

用VBScript实现解压缩目录中的所有文件（Zip）

2017年02月06日 72 阅读

复制代码 代码如下: On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile（path） Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists（path） Then Msgbox "目标文件夹不存在！" Else objFSO.CreateFolder targetpath & Righ...

VBScript压缩单个文件为zip格式

2017年02月06日 72 阅读

复制代码 代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject（"Scripting.FileSystemObject"） targetfile="D: mp.zip" Set fp=fso.OpenTextFile（targetfile,2,True） fp.Write Chr（80） & Chr（75） & Chr（5） & Chr（6） & String（...

使用脚本自动压缩指定目标下的所有文件的代码

2017年02月06日 96 阅读

为了解决这类问题，我使用Visual Basic Scripting设计了一个脚本，可以自动达到这个目标。在本脚本中，自动压缩所有文件。为了避免将脚本自己也压缩进去，使用了一些判断。 复制代码 代码如下: call main（） Sub main（） Dim fs "文件系统。 Dim f "folder Dim fc "files Dim s "string Dim ws "SHELL。 Dim subfs Dim fi "创建SHELL。 Set ws...

Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码

2017年02月06日 80 阅读

如果是想搜索新硬件，还真不知道该用什么命令。系统的PNP可以自动搜索到新硬件，所以估计也没必要手动刷新搜索。 如果是想查看设备的变动，倒是可以用命令行来实现。 方法一、使用WMIC（WMI命令行） 使用WMIC需要管理员权限，第一次运行会进行安装和配置。 运行下面的命令可以把系统中的驱动列表保存到sysdriver.txt： 复制代码 代码如下: wmic SYSDRIVER get DisplayName >sysdriver.txt 再次运行，...

使用脚本调用系统的关机对话框实现代码

2017年02月06日 80 阅读

以前有介绍如何使用命令行调用系统的关机对话框： 具体方法：开始／运行： 复制代码 代码如下: rundll32.exe shell32.dll #60 但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机（感谢网友沐烨 发现该问题）。问题原因可能是：正常情况下，关机对话框是有explorer.exe调用，直接使用rundll32调用时无法触发相关命令。 既然使用explorer.exe调用可以，我们可以尝试使用脚本来实现。实现原理： 激活expl...

获取外网IP并发送到指定邮箱的vbs代码[已测]

2017年02月06日 76 阅读

复制代码 代码如下:""getIP set http=createobject（"Microsoft.XMLHTTP"） ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR（Http.responsebody） intStrA = InStr（1,ss,"[",1）+1 sss=mid（ss,intStrA） intStrB = I...

vbscript的骨灰级写法计算1到100的和

2017年02月06日 67 阅读

这篇日志完全是看了一篇日志后的启发，原文为：邪恶的eval和new Function。 很少使用new Array的方式来定义数组，没想到new Array有这么一个妙用，通过new Array（n）我们可以创建n个空元素，同时也就在n个元素中间存在n-1个空白，通过join,我们可以将一些东西放在这些空白中间从而组成我们需要的特殊串，这不禁启发了我的灵感，这个特点可以使我不通过循环就可以很容易的实现一个“有规律元素的连续运算”。比如计算1-100的数值的...

获取远程机器共享目录的物理路径的代码

2017年02月06日 62 阅读

第一：依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录。 复制代码 代码如下: strPath ="\192.168.1.55 tt" strPath = Replace（strPath, "\", ""） arrPath = Split（strPath, ""） strComputer = arrPath（0） strShare = arrPath（1） Set objSWbemLocator = CreateObject（"Wbem...

EXE2BAT（EXE转BAT）的vbs脚本

2017年02月06日 146 阅读

exe2bat的脚本 复制代码 代码如下: fp=wscript.arguments（0） fn=right（fp,len（fp）-instrrev（fp,""）） with createobject（"adodb.stream"） .type=1:.open:.loadfromfile fp:str=.read:sl=lenb（str） end with sll=sl mod 65536:slh=sl65536 with createobject（"sc...

VBS基础教程

2017年02月06日 73 阅读

VBScript（Microsoft Visual Basic Script Editon）.，微软公司可视化BASIC脚本版）. 正如其字面所透露的信息, VBS（VBScript的进一步简写）是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主（host）解释源代码并执行, 简单点说就是你写的程序不需要编译成....

了解VBE VBE则是编译后（加密）的VBS代码

2017年02月06日 76 阅读

一、vbe与vb VBE跟VBS差不多，都是VB脚本代码文件，但他们也有不同： VBS是明文代码，就是说可以直接使用记事本编辑； VBE则是编译后（加密）的VBS代码，使用记事本打开不能直接看到源代码。（有些例外） 加密工具有很多，其中常用的是 Microsoft Script Encoder（screnc.exe），此外还有许多。 VBE格式在QQ传文件中往往不会被拦截，而VBS格式却会被拦截，这应该是程序设计者的一个失误。 因此...

VBS加密14法你会几种 VBS加密免杀浅谈

2017年02月06日 114 阅读

手机打字实在在麻烦，所以一些比较简单或太复杂的代码我就不直接提供实例了。 1、不是方法的方法－－加注释 加一些规则无用不含特征码的注释。代码略 2、大小写混编 利用VBS忽略大小写 3、 分行与同行混用 利用冒号（:）连接多行代码为一行 4、一行分多行 使用续行符（_）将一行分多行写 5、利用execute函数 复制代码 代码如下: Execute（"createobject（"&chr（34）&"wscript.shell"&chr（34）&chr（41...

VBS实现将Excel表格保存为txt文本

2017年02月06日 99 阅读

希望能够找到个能给excel表另存为TXT的VBS代码，虽然另存为可以选择，但还是需要直接VBS执行这一步另存为TXT格式的，应该如何写代码呢？ 有装Excel的话，就会比较简单，下面的是通用的不装Office也可以运行的，如下: VBScript code: 复制代码 代码如下: Set oShell = CreateObject（"Shell.Application"） Set oDir = oShell.BrowseForFolder（0,"选择目录...

vbs解决处理TXT文本数据相关问题实现代码

2017年02月06日 74 阅读

有个小问题，如下： 现有文本文件1.txt，内容如下： 数值_1出现频度12647 数值_2出现频度10000 数值_3出现频度12608 数值_4出现频度8712 数值_5出现频度10658 数值_6出现频度8472 数值_7出现频度11232 数值_8出现频度8648 数值_9出现频度9264 数值_10出现频度7192 数值_11出现频度7192 。。。。 大概有100行 要求把里面每行的数值放到变量中，然后输出成文本文件 2.txt 举例： 把第一...

关于vbs 生成静态页面过程中出现的问题

2017年02月06日 60 阅读

vbs是否能够实现如下的：访问某个aspx页面，然后把服务器返回的页面以filestream 的形式保存为html格式，如果可以实现，应该如何来用代码来实现呢？ 先用InternetExplorer.Application打开http://xxx.xxx.xxx/xxx.aspx，然后保存oIE.document.body.outerHTML就可以了！！ 例如如下代码细节: VBScript code: 复制代码 代码如下: Set oIE = Creat...

dim函数第三个参数设置截取字符的长度问题

2017年02月06日 65 阅读

dim函数的第三个参数，也就是截取字符的长度，我在设置这个的时候，出了些问题:response.write mid（up_address,a（i）,a（i+1）-1） & “<br />”像我上面这样写的时候，它就会报错，提示无效的过程调用或参数, response.write mid（up_address,a（i）,a（i+1）+1） & “<br />”但是当我把其中的a（i+1）-1改为a（i+1）+1时，就能执行了,a（i+...

邪恶的eval和new Function使用介绍

2017年02月06日 82 阅读

代码： 复制代码 代码如下: // 友善提醒：为了你的手指安全，请在Chrome下运行 "alert（"hello"）".replace（/.+/, eval）; "alert（"hello"）".replace（/.+/, function（m）{new Function（m）（）;}）; var i = 0; eval（new Array（101）.join（"alert（++i）;"））; var i = 0; new Function（new Ar...