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

2016年07月27日 80 阅读

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

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

2016年07月27日 75 阅读

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

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

2016年07月27日 81 阅读

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

校准系统时间的VBS代码

2016年07月27日 72 阅读

复制代码 代码如下: "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兼容版）

2016年07月27日 78 阅读

复制代码 代码如下: 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的实现代码

2016年07月27日 69 阅读

复制代码 代码如下: 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 硬盘读写统计（分区读写统计）

2016年07月27日 81 阅读

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实现工作表按指定表头自动分表

2016年07月27日 78 阅读

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

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

2016年07月27日 80 阅读

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

vbsTree VBS脚本模拟tree命令

2016年07月27日 76 阅读

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

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

2016年07月27日 80 阅读

复制代码 代码如下:"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向指定的文件添加内容的函数

2016年07月27日 77 阅读

复制代码 代码如下: "向指定的文件写字符串，第三个参数指定是否删除原来的内容 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程序代码

2016年07月27日 85 阅读

操作方法：把代码保存为*.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实现的系统服务备份优化代码

2016年07月27日 73 阅读

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

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

2016年07月27日 74 阅读

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

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

2016年07月27日 79 阅读

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

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

2016年07月27日 81 阅读

本例中，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秒则运行某程序）

2016年07月27日 76 阅读

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

VBS数组函数学习实例分析

2016年07月27日 72 阅读

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

vbs 多线程下载实现代码

2016年07月27日 76 阅读

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