vbs脚本实现下载jre包并静默安装的代码实例

2017年02月06日 63 阅读

安装完成后可以回调，替换echo 123456789和pause就行了。dim pathset ws = CreateObject（"WScript.Shell"）set fso=createobject（"scripting.filesystemobject"）""定义安装路径path = ws.ExpandEnvironmentStrings（"%windir%"）+"jre6"""创建目录If （fso.FolderExists（path）） The...

Vbs脚本经典教材（最全的资料还是MSDN）

2017年02月06日 90 阅读

—为什么要使用Vbs？在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。第三方软件也许可以强化计算机的某些功能，...

Vbscript生成Excel报表的常用操作总结

2017年02月06日 73 阅读

使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持Office Excel 2003版本，不支持2007版本。Vbscript代码On Error Resume Next Dim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheet FileName = "D:/Book1.xls" SheetName =...

MSScriptControl.ScriptControl组件的用法实例

2017年02月06日 89 阅读

Microsoft（R） Script 控件使用户可以创建运行任何 ActiveX（R） scripting 引擎，例如 Microsoft（R） Visual Basic （R） Scripting Edition 或Microsoft（R） JScript（TM） 的应用程序。用户可以将任何 Automation 对象的对象模型添加到 Script 控件中，这样该对象的方法和属性就可以为 scripting 引擎所使用。通过将某个应用程序的对象模型和某...

MSScriptControl.ScriptControl组件属性、方法、事件介绍

2017年02月06日 141 阅读

MSScriptControl.ScriptControl组件实例对象属性属性名称类型备注AllowUIBOOL检测是否允许运行用户的接口元素。如果为False，则诸如消息框之类的界面元素不可见。CodeObjectObject脚本暴露给宿主调用的对象。只读。ModulesModules宿主提供给脚本的组件库模块。只读。（COM组件通常都是以对象收集的形式向用户提供可以留给用户二次开发的对象集合，每一个收集即一个Modules）LanguageString...

VBScript把json字符串解析成json对象的2个方法

2017年02月06日 94 阅读

asp/vbscript将json字符解析为json对象的方法，如果asp使用jscript来编写服务器端代码操作json字符串就简单了，vbscript需要MSScriptControl.ScriptControl或者服务器端的jscript来作为中间体才行。vbscript将json字符解析为json对象的方法一使用MSScriptControl.ScriptControl组件，请用IE浏览器运行本示例，会有安全提示，需要点击“是”允许创建。MSScr...

使用vbscript生成36进制自动增长序号的实现代码

2017年02月06日 60 阅读

asp生成0~9，a~z的36进制字符串，运行下面示例需要使用IE核心的浏览器，其他非IE核心浏览器不支持vbscript。实现代码：<script language="vbscript">function getinitstring（l）"初始化指定长度的0字符串 l=l-1 for i=0 to lgetinitstring="0"&getinitstring nextend functionfunction getnextchar（chr...

vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法

2017年02月06日 72 阅读

复制代码 代码如下:set fso=createobject（"Scripting.FileSystemObject"）set fn=fso.GetFile（"E:AD.txt"）msgbox "文件创建时间："&fn.DateCreatedmsgbox "文件最后修改时间："&fn.DateLastModifiedmsgbox "文件最后访问时间："&fn.DateLastAccessedset fn=nothingset fso=nothingFile...

vbs中获取脚本当前路径的2个方法

2017年02月06日 83 阅读

方法一：复制代码 代码如下:currentpath = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.Path方法二：复制代码 代码如下:currentpath = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.Path...

使用VBS禁用、启动USB存储设备

2017年02月06日 62 阅读

USB存储设备控制 By Yu2nXP系统测试通过，需要管理员权限。在下次插拔设备时生效，无须重启。"USB_Stock_Block.vbs"===========================================================================================CheckOS " 检查操作系统版本CheckMeState" 检查程序运行状态main" 执行主程序"================...

vbs结合wget 实现下载网站图片

2017年02月06日 103 阅读

vbs 函数过程：1. 调用wget: 下载网站所有页面到本脚本目录 ……2. 扫描本脚本目录中所有文件 ……3. 读取本脚本目录中的所有网页，匹配图片 URL 地址 ……4. 保存所有图片 URL 地址到 url-img.txt 文件 ……5. 调用wget: 下载 url-img.txt 指定的图片到本脚本 img 目录 ……" wget_img.vbsCall Main（）Sub Main（） " CMD 模式 If Not （LCase（Right...

自定义vbs脚本实现开机后延时启动指定程序的方法

2017年02月06日 136 阅读

概述 系统开机时，顺带自动启动了不少驱动程序，使得电脑开机后鼠标要呆滞许久。为了加快windows的开机速度，在参考网上不少大牛的资料后，整理出使用vbs脚本实现开机后延时启动程序的方法vbs内容示例：复制代码 代码如下:Dim delayerSet delayer = CreateObject（"WScript.Shell"）WScript.sleep 8000delayer.Run """C:Program Files（x86）KingsoftKli...

ass2srt.vbs（ass/ssa批量转换srt的脚本）

2017年02月06日 109 阅读

iPad中的OPlayer只支持srt格式的字幕，而动画一般使用的是ass/ssa格式的字幕，所以需要将ass/ssa批量转换srt。Google了一下，在《ass2srt[ass/ssa批量转换srt]》中找到一个ass2srt.wsf脚本，内容如下：<job id="ass2srt"><script language="JScript">cInput="unicode";// You can find them from:cOu...

用VBS写的VBSCRIPT代码格式化工具VbsBeautifier

2017年02月06日 56 阅读

昨天在VBS吧看到一个精华帖《VBS代码格式化工具》，是用C++写的，区区VBS代码格式化，就不要劳C++大驾了吧，用VBS实现VBS代码格式化工具不是更自然么？网上的VBS代码大部分都没有缩进，新手不知道要缩进，高手缩进了被某些个垃圾网站采集以后也就没有了缩进，还有以一些博客贴吧也会把缩进给吃掉。除了缩进之外，由于学VBS的大部分都是学批处理出身，代码风格还是跟写批处理一样难看。其实一般情况下用VbsEdit 5.2.4.0自带的代码格式化功能就行了，没...

vbs实现unicode和ascii编码转换

2017年02月06日 98 阅读

一、Copy a Unicode File to an ANSI FileWiToAnsi.vbs文件：复制代码 代码如下:" Utility to rewrite a Unicode text file as an ANSI text file" For use with Windows Scripting Host, CScript.exe or WScript.exe" Copyright （c） 1999, Microsoft Corporatio...

通过vbs获取远程host文件并保存到指定目录

2017年02月06日 80 阅读

复制代码 代码如下:Sub download（url,target）Const adTypeBinary = 1Const adTypeText = 2Const adSaveCreateOverWrite = 2Dim http,adoSet http = CreateObject（"Msxml2.ServerXMLHTTP"）http.SetOption 2,13056http.open "GET",url,Falsehttp.sendSet ado ...

vbs脚本实现修改DNS和清空IE临时文件功能

2017年02月06日 69 阅读

今早接到山青院电话，说需要一个修改DNS为校内DNS，并且清空IE临时文件的脚本，想都没想，用批处理写了一个：复制代码 代码如下:rem programed by Kaisir@echo offecho 本脚本的作用为修改您的DNS为山东青年政治学院专用DNS 222.194.76.2 同时帮您清除了电脑中的临时文件。若有疑问，请致电网络中心。pauseecho 修改DNS中...netsh interface ip set dns "本地连接" sour...

vb下的恶搞关机程序

2017年02月06日 65 阅读

额，不多介绍了，能看懂的就拿走，看不懂的拿走也没用。复制代码 代码如下:Dim fs, dirwin, c,Wll, str,strr,rSet fs = CreateObject（"Scripting.FileSystemObject"） Set dirwin = fs.GetSpecialFolder（1）Set Wll = WScript.CreateObject（"WScript.Shell"）Set c = fs.GetFile（WScript....

VBS脚本写的Windows硬件检测工具分享

2017年02月06日 76 阅读

Const MyName = "Windows硬件检视工具（测试版） --by:Rex.Pack（雷克斯.派）"If Not LCase（Replace（WScript.FullName, WScript.Path & "", ""）） = "cscript.exe" ThenSet WS = CreateObject（"WScript.Shell"）WS.Run "CMD /c mode con: cols=115 & Color 0A & Title ...

VBS实现将当前时间转换成UTC时间

2017年02月06日 75 阅读

例如下面的代码在当前时间返回：1368299689Option Explicit Dim dtmDate If WScript.Arguments.Named.Count > 0 Then Syntax With WScript.Arguments.Unnamed" Check command line argumentsIf .Count = 0 Then dtmDate = NowIf .Count > 0 Then dtmDate = ....