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

2017年02月06日 120 阅读

操作方法：把代码保存为*.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日 150 阅读

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

使用VBS访问外部文本文件一些方法和脚本实例代码

2017年02月06日 180 阅读

处理文件用到的常量有：ForReading = 1 ，ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加，都要在使用之前用VBS Const来声明。常用于处理文本文件的方法有：Read（var）—读var个字符，ReadLine—读一行，ReadAll—读整个文件内容，SkipLine—跳过本行指向下一行，Write（var）—把字符串var写入文件，WriteLine（var）—把字符串var和换行符写入文件，Write...

使用vbs脚本添加程序到自启动项的代码

2017年02月06日 114 阅读

因编辑器过滤了一些字符，比如&，所以下面的脚本可能会运行错误。。看官添加&&这个字符就可以了。 vbs脚本的功能呢是很多的，不过有时候我们只需要其中的某些功能，今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项...... 首先来一段吧... 复制代码 代码如下: "========================================================================== " " VBScript Sourc...

vbscript实现的根据不同时间段显示不同的欢迎语

2017年02月06日 131 阅读

本例中，VBScript 代码调用 Document 对象的 Write 方法来传递字符串。所有操作都在客户端完成：无需指定服务器端操作、无 PERL痕迹、稳定、清晰！ 复制代码 代码如下:<SCRIPT LANGUAGE="VBScript"> " 对 Script 标记进行语法分析时执行此行 Call PrintWelcome Sub PrintWelcome Dim h h = Hour（Now） If h < 12 then D...

VBS监控CPU的使用率（如占用率一直维持在80%超过30秒则运行某程序）

2017年02月06日 144 阅读

按照楼主的要求重新修改了下，代码如下：复制代码 代码如下:"----------------------------------------On Error Resume Nextdim iCpuUsePercentage"记录CPU使用率dim iSecond"记录使用率等于100所持续的时间dim objFileStream"txt文本读写流，用于记录日志dim objTextFileWriter"txt写对象dim objShell"Shell"对象...

VBS数组函数学习实例分析

2017年02月06日 188 阅读

下面来具体讲解下几个数组函数的使用方式： Array函数返回包含数组的Variant。Array（arglist）arglist参数是赋给包含在Variant中的数组元素的值的列表（用逗号分隔）。如果没有指定此参数，则将会创建零长度的数组。说明用于引用数组元素的表示符，由跟随有括号的变量名组成，括号中包含指示所需元素的索引号。在下面的示例中，第一条语句创建名为 A 的变量。第二条语句将一个数组赋值给变量 A。最后一条语句将包含在第二个数组元素中的值赋值给另...

vbs 多线程下载实现代码

2017年02月06日 142 阅读

话说还是闲来练手，初步实现了自己认为的“多线程”下载。（至于是不是多线程，可以参考12楼链接） 为避免冗余，省了一些错误检查。我觉得没多大实际用途，有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制代码 代码如下: "by wankoilz url=InputBox（"输入完整下载地址："） threadCount=InputBox（"输入线程数（不超过10吧,太多就累赘了）："） fileName=GetFileName（url） filePath=Get...

支持断点下载的VBS代码

2017年02月06日 155 阅读

之前我就介绍过VBScript语言的强大。今天再给出一个支持断点下载的VBS代码。 并附上VBS代码的解析，不懂的朋友可以配合微软的SCRIPT56.CHM文档自学。很简单， VBS的好处就是代码易于理解。基本上每行代码执行功能都用英文表示出来了。 这个代码也是对我以前介绍的VBS下载功能的补充。 老规矩，复制保存为dl.vbe。 不过这个VBS的代码的不同之处不是双击运行，而是在CMD命令行下执行。 下载功能执行的格式是： cscript.exe dl....

VBS中的SetLocale函数到底有什么用？

2017年02月06日 117 阅读

VBS文档中对SetLocale函数的描述： 设置全球区域设置，并返回以前的区域设置。 一个 locale 是用户参考信息集合，与用户的语言、国家/地区和文化传统有关。该 locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。 简单的说，就是VBS中的一些函数的返回值与当前的locale相关，比如说MonthName函数： 复制代码 代码如下: Dim a（12）, b（12） "By Demon SetLocale "zh-cn" For...

VBS中CreateObject和WScript.CreateObject的区别介绍

2017年02月06日 168 阅读

CreateObject和WScript.CreateObject的区别一： CreateObject是VBS的内置函数，属于语言的一部分；而WScript.CreateObject是Windows脚本宿主（wscript.exe和cscript.exe）提供的WScript对象的方法。类似于批处理中内部命令和外部命令的关系。在VBS中，CreateObject总是可用的，而WScript.CreateObject只有在宿主为wscript.exe和csc...

用VBS实现的凯撒密码算法

2017年02月06日 142 阅读

在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以恺撒的名字命名的，当年恺撒曾用此方法与其将军们进行联系。 例如，当偏移量是左移3的时候（解密时的密钥就是3）： 复制代码 代码如下: 明文字母表：ABCDEFGHIJKLMNOPQRS...

通过vbs修改目录名称与快捷方式名称的实现代码

2017年02月06日 139 阅读

复制代码 代码如下:set fso=wscript.createobject（"scripting.filesystemobject"）OldFolderName1="263 Enterprise Messenger"newFolderName1="Peacemap Messenger"OldFileName1 = "263 Enterprise Messenger.lnk"newFileName1 = "Peacemap Messenger.lnk"Ol...

用VBScript制作QQ自动登录的脚本代码

2017年02月06日 192 阅读

一直用的是狂人版的QQ，也用它附赠的自动登录器很久了，不过最近一版的狂人QQ不知为何取消了自动登录组件。好在QQ2009已经能够同时记住多个号码的密码，虽然要多点击几下，但依然能够实现免输入密码登录。 谁知最近不知道电脑发了什么疯，每隔一段时间，QQ记住的密码就会被清空。我的两个QQ号密码都设置得比较复杂，每次登录要输入两遍密码实在是件痛苦的事情，于是决定自制一个登录器。 在网上找了许久，发现了一个用VBS制作QQ登录脚本的办法：复制代码 代码如下:s...

VBSCript之GenerateSDDL函数（权限设置）

2017年02月06日 129 阅读

复制代码 代码如下:Function GenerateSDDL（AccountName, AccessFlag, AccessType, AccessMask）Dim Accounts, ObjWMI, ObjSID, ObjTru, ObjACEConst SET_DACL_PRESENT = &H8004Set ObjWMI = GetObject（"winmgmts:" & "{impersonationLevel=impersonate, （Sec...

去掉RAR右键解压菜单的VBS代码

2017年02月06日 133 阅读

原理: http://demon.tw/programming/vbs-binary-file-another.html复制代码 代码如下:Public ReadBinaryReadBinaryDat（".1.exe"）BinaryDat = Replace（Replace（ReadBinary, "526172211a07", "522172211a07"）, "807a0161", "807a0121"）WriteBinaryDat "new.exe"...

使用VBS修改二进制文件HEX数据

2017年02月06日 159 阅读

可用之处还是有的，如：隐藏快捷方式中目标文件位置；破解XP中TCP/IP连接数限制；去掉RAR右键解压菜单等等。 复制代码 代码如下:Public BinaryDataIf （lcase（right（wscript.fullname,11））="wscript.exe"） ThenWScript.Quit（0）End IfIf wscript.arguments.count<4 ThenWscript.Echo "Change File Hex. B...

利用VBS脚本修改联想笔记本BIOS密码的代码分享

2017年02月06日 162 阅读

这不科学！无意中找到的一些资料：vbs 代码：复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootWMI"） " Obtain an instance of the the class " using a key property value. Set objShare = objWMIService.Get（"Lenovo...

VBScript根据盘符找设备名的代码

2017年02月06日 174 阅读

复制代码 代码如下:On Error Resume NextstrComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootCIMV2"） Set colItems = objWMIService.ExecQuery（ _ "associators of {win32_logicaldisk.deviceid="G:"} WHERE ResultClass=...

Win7下VHD文件右键增强实现代码（vbs+注册表）

2017年02月06日 126 阅读

1、保存以下代码到：c:windowssystem32vdm.vbs复制代码 代码如下:Dim ArgsSet Args = WScript.ArgumentsTranArgs = " "For i = 0 To Args.Count - 1TranArgs = TranArgs & """" & Args（i） & """" & " " NextIf Args（0） <> "-hFlag" Then If Args（0） <> "...