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

2016年07月27日 46 阅读

为了方便测试，先写一个回显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日 39 阅读

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

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

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

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

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

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

2016年07月27日 47 阅读

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

vbsTree VBS脚本模拟tree命令

2016年07月27日 43 阅读

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

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

2016年07月27日 49 阅读

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

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

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

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

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

2016年07月27日 41 阅读

处理文件用到的常量有：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日 44 阅读

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

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

2016年07月27日 46 阅读

本例中，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日 42 阅读

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

VBS数组函数学习实例分析

2016年07月27日 39 阅读

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

vbs 多线程下载实现代码

2016年07月27日 44 阅读

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

支持断点下载的VBS代码

2016年07月27日 46 阅读

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

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

2016年07月27日 44 阅读

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