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

2016年07月27日 112 阅读

为了解决这类问题，我使用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里用命令行刷新硬件列表，以扫描硬件改动的实现代码

2016年07月27日 85 阅读

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

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

2016年07月27日 75 阅读

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

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

2016年07月27日 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的和

2016年07月27日 75 阅读

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

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

2016年07月27日 81 阅读

第一：依靠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脚本

2016年07月27日 79 阅读

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基础教程

2016年07月27日 85 阅读

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

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

2016年07月27日 89 阅读

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

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

2016年07月27日 81 阅读

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

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

2016年07月27日 78 阅读

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

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

2016年07月27日 77 阅读

有个小问题，如下： 现有文本文件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 生成静态页面过程中出现的问题

2016年07月27日 88 阅读

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

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

2016年07月27日 80 阅读

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使用介绍

2016年07月27日 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...

WScript.Shell对象SpecialFolders属性未公开文档分享

2016年07月27日 79 阅读

特殊文件夹名称用于索引该集合以检索所需的特殊文件夹，文档中列出了下面的特殊文件夹： AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup Templates 不过今天在用OllyDbg调试V...

用VBS修改（设置）系统时间和日期的代码

2016年07月27日 76 阅读

那天跟别人聊到 Y2K38 问题，于是想到一个恶作剧：用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢？ 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令： 复制代码 代码如下: "Author: Demon "Website: http://demon.tw "Date : 2011/4/27 Dim WshShe...

VBS For Next循环的一些细节

2016年07月27日 79 阅读

For Next 语句的基本结构为： 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [statements] Next 当 For Next 循环开始时，Visual Basic Scripting Edition （VBScript） 将 start 赋值给 counter。在运行循环中的语句块之前，将 counter 与 end 进行比较。如果 co...

VBS For Next循环的陷阱分享

2016年07月27日 81 阅读

昨天写《QWERTY密码：加密与解密》的时候，为了得到26个字母的字符串，写了这样一个 For Next 循环： 复制代码 代码如下: "Author: Demon "Website: http://demon.tw "Date: 2012/2/10 For i = 65 To （i + 25） s = s & Chr（i） Next WScript.Echo s 运行后却发现没有字符串输出，觉得很奇怪，于是简单修改了一下： 复制代码 代码如下: "Au...

QWERTY密码：加密与解密vbs版

2016年07月27日 90 阅读

昨天在做Arthur"s Online Riddle的时候有这么一道题目： If QWERTY = ABCDEF then, OLSQFR = ？ Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘。QWERTY 是键盘第一行的前六个字母。键的安排顺序由克里斯多福·萧尔斯（Christopher Sholes）设计的。使用QWERTY排列的打字机在1874年投入批量生产。从此成为应用最广泛的人机接口，大部分的计算机都是使用 Qwerty 键盘...