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

2016年07月27日 42 阅读

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

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

2016年07月27日 43 阅读

复制代码 代码如下:""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日 41 阅读

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

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

2016年07月27日 44 阅读

第一：依靠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日 45 阅读

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日 55 阅读

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

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

2016年07月27日 52 阅读

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

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

2016年07月27日 46 阅读

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

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

2016年07月27日 47 阅读

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

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

2016年07月27日 43 阅读

有个小问题，如下： 现有文本文件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日 48 阅读

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日 43 阅读

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日 46 阅读

代码： 复制代码 代码如下: // 友善提醒：为了你的手指安全，请在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日 44 阅读

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

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

2016年07月27日 43 阅读

那天跟别人聊到 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日 44 阅读

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日 47 阅读

昨天写《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日 46 阅读

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

用VBS读写二进制文件的另一种方法分享

2016年07月27日 44 阅读

之前写的那篇给出的方法虽然不错，但是当文件过大时（其实很小，也就几M），对应的数组也会很大，然后会出现运行时错误，提示内存耗尽，为此我郁闷了好久。 最近在博客的流量记录中发现百度关键字“一些很恶作剧的vbs程序”（看来现在的年轻人很喜欢玩这口），于是打开久违的百度搜索了一下，发现出现在第三。出现在第二的是百度HI，上面也是一个恶作剧程序，而且还是加密的。我尝试着解密，却发现这个加密似乎比前几天解密的那个病毒更变态，未果。 虽然我没有把那个程序解密出来（如果...

在VBS中定义字节数组Byte（）介绍

2016年07月27日 44 阅读

晚上在 QQ 上看到昵称为“乱码”的好友回答了搜搜问问里一个问题： 在VBS中有办法定义字节数组么？ 在VBS中有办法定义字节数组么？就是字节子类型数组（VarType是8209的那种）注意不是VB！ 但是回答实在是不堪入目，连别人问什么都没搞懂，而且那人居然还满意，真不知道他在想什么。 闲来没事，我来简单回答一下。首先要搞清楚别人在问什么，VBS 是弱类型脚本语言，只有一种数据类型，称为 Variant，但是 Variant 可以进一步分为几种子类型，这...