Welcome

首页 / 编程脚本

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

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

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

2017-02-06 20
函数代码: 复制代码 代码如下: 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 20
复制代码 代码如下: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 21
复制代码 代码如下: 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 20
复制代码 代码如下: 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 23
为了解决这类问题，我使用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 19
如果是想搜索新硬件，还真不知道该用什么命令。系统的PNP可以自动搜索到新硬件，所以估计也没必要手动刷新搜索。 如果是想查看设备的变动，倒是可以用命令行来实现。 方法一、使用WMIC（WMI命令行） 使用WMIC需要管理员权限，第一次运行会进行安装和配置。 运行下面的命令可以把系统中的驱动列表保存到sysdriver.txt： 复制代码 代码如下: wmic SYSDRIVER get DisplayName >sysdriver.txt 再次运行，...

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

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

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

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

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

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

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

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

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

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

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

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

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

2017-02-06 19
有个小问题，如下： 现有文本文件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 15
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 18
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 20
代码： 复制代码 代码如下: // 友善提醒：为了你的手指安全，请在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...
<< 41 42 43 44 45 46 47 48 49 50 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图