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

2017年02月06日 64 阅读

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

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

2017年02月06日 65 阅读

那天跟别人聊到 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循环的一些细节

2017年02月06日 70 阅读

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循环的陷阱分享

2017年02月06日 61 阅读

昨天写《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版

2017年02月06日 64 阅读

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

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

2017年02月06日 83 阅读

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

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

2017年02月06日 68 阅读

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

用VBS实现的发送带Cookie的HTTP请求的代码

2017年02月06日 95 阅读

为了方便测试，先写一个回显Cookie的简单的PHP程序： 复制代码 代码如下: <？php foreach（$_COOKIE as $key => $value） echo "$key => $value "; ？> 然后分别用ServerXMLHTTP和XMLHTTP测试： 复制代码 代码如下: Dim http Set http = CreateObject（"Msxml2.XMLHTTP"） http.open "GET...

校准系统时间的VBS代码

2017年02月06日 66 阅读

复制代码 代码如下: "VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = "恭喜你，本机时间非常准确无需校对！" Set objXML = CreateObject（"MSXML2.XmlHttp"） Url = "http://open.baidu.com/special/time/" objXML.open "GET", Url, False objXML.send（） Do Until ob...

VBS中获取系统本次及上次开关机时间的代码（WinXP/win2003/Win7兼容版）

2017年02月06日 64 阅读

复制代码 代码如下: If （Lcase（Right（Wscript.FullName,11）） = "wscript.exe"） Then CreateObject（"WScript.Shell"）.Run（"%Comspec% /C " &Chr（34）&"mode con cols=100&Cscript.exe //NoLogo "&Chr（34）& Wscript.ScriptFullName &Chr（34）&"&&（Echo 此窗口40秒后自...

VBS合并一个文件夹里的TXT的实现代码

2017年02月06日 80 阅读

复制代码 代码如下: Const ForReading = 1 "VBS的这句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject（"Scripting.FileSystemObject"） "创建FSO对象 jiuw = inputbox（"请输入源文件夹所在的路径（含文件夹名称）","请输入多个TX...

VBS 硬盘读写统计（分区读写统计）

2017年02月06日 75 阅读

WinXP，Win7,Win8复制代码 代码如下:"原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If （Lcase（Right（Wscript.FullName,11）） = "wscript.exe"） Then CreateObject（"WScript.Shell"）.Run（"%Comspec% /C " &Chr（34）&"mode con cols=52 lines=22" &"&Title 硬盘读写统计.vbs By: Fa...

VBS实现工作表按指定表头自动分表

2017年02月06日 84 阅读

在我们实际工作中经常遇到将工作表按某一表头字段分开的情况，我们一般的做法是先按指定表头排序然后分段复制粘贴出去，不但麻烦还很容易搞错。 下面的VBS脚本就是实现的工作表按指定表头（由用户选择）自动分表功能。需要的朋友只要将要操作的工作表拖放到脚本文件上即可轻松实现工作表分表（暂时只适用于xp系统）：复制代码 代码如下: "拖动工作表至VBS脚本实现按指定表头自动分表 On Error Resume Next If WScript.Arguments（0） ...

VBS 修改远程桌面端口号的代码

2017年02月06日 67 阅读

复制代码 代码如下: "=========================================================================================== CheckOS " 检查操作系统版本 CheckMeState " 检查程序运行状态 main " 执行主程序 Sub main（） Dim PortNumberOld, PortNumberNew Set wso = CreateObject（"WS...

VBS 强制关闭Symantec Endpoint Protection的代码

2017年02月06日 81 阅读

使用这个脚本，可以随时让它歇下来。当然也可以让它继续工作。前提是，你必须是本机管理员。这个脚本使用一各很过时的终止程序方法：ntsd.exe -c q -p ProcessID。所以以前有过一个bat版，之所以用VBS是因为效率高一点，而且没有太多的黑色窗口。主要思想是：循环终止程序+停止服务代码如下：复制代码 代码如下:"On Error Resume Next" 检查操作系统版本Call CheckOS（）Call MeEncoder（）" 程序初始化...

vbsTree VBS脚本模拟tree命令

2017年02月06日 77 阅读

复制代码 代码如下: "-------------vbsTree.vbs------------------------ "描述:用vbs输出一个文件夹的目录结构。 "------------------------------------------------ Const Unit4Size = "字节KBMBGB" Const OutFile = "OutTree.txt" Dim theApp,SelPath,TreePath,TreeStr Se...

Hardware_Info.vbs 获取硬件信息的VBS代码

2017年02月06日 97 阅读

复制代码 代码如下:"Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject（"Winmgmts:{impersonationLevel=impersonate}！\. ootcimv2"）Set cOSs = WMI.ExecQuery（"Select * from Win32_OperatingSystem"）For Each oOS...

vbs向指定的文件添加内容的函数

2017年02月06日 81 阅读

复制代码 代码如下: "向指定的文件写字符串，第三个参数指定是否删除原来的内容 Function Z_WriteFile（sFileName, sText, bAppend） Dim fs, fso, iomode if bAppend = True Then iomode = 8 "ForAppending else iomode = 2 "ForWriting end if set fs = CreateObject（"Scripting.FileSy...

一些很恶作剧的vbs程序代码

2017年02月06日 59 阅读

操作方法：把代码保存为*.VBS运行即可 经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。 复制代码 代码如下: do msgbox "hi" loop 无限制的用英文报数 复制代码 代码如下: Set s = CreateObject（"sapi.spvoice"） i=0 do s.speak i i=i+1 loop 复制代码 代码如下: if MsgBox（"对不...

VBS实现的系统服务备份优化代码

2017年02月06日 82 阅读

复制代码 代码如下:Option Explicit"○○○○○○○○○○○○○○○○○○○○○○○○○○○○○开始Const blnVBSShowCaption=True"生成的服务备份中是否添加说明Const blnVBSShowDescription=True"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●结束"文件读写标识常量Const Forwriteing = 8"读取出来的自动模式类型Const cstrAutoForRead="A...