摘要：网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序只是写来自己用。（顺便说一下，也尽量不要用不靠谱的Send... 阅读全文

摘要：'***********************************************************************' 代码开始'***********************************************************************... 阅读全文

摘要：CMD当前路径复制代码 代码如下:test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test当前VBS路径复制代码 代码如下:test = createobject("Scripting... 阅读全文

摘要：、选择文件[XP操作系统，不能用于Win2000或98]，使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框Set objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filt... 阅读全文

摘要：方法一：先把脚本保存起来(保证你的脚本能正确运行),例如命名为test.vbs 然后在QTP写以下脚本就可以正确运行了! Dim oShell Set oShell =CreateObject ("WSCript.shell") oShell.run "cmd /K wscript e:\test.vbs" Set oShell = Nothing方法二：首先要明白 WScript.CreateObject 和 CreateObject 的区别。 前者的描述方式是基于windows来识别和调用的，所以假如你在一个vbs文件里这么描述，然后双击执行这个文件 阅读全文

摘要：一．QTP调用外部VBS的方法加到QTP的Resource中在QTP菜单中设置，菜单FileàSettingsàResource，将要加载的VB脚本添加进来。举例：步骤1：在D盘下新建一个VBS文件，叫“test.vbs”，脚本内容如下：Functionfun(a,b)fun=a+bEndFunction步骤2：在QTP里新建一个Test，叫“Test1“，点击菜单FileàSettingsàResource，将要加载的VB脚本“test.vbs”加进来步骤3：在脚本里调用这个函数：msgbox"1+2=“&fun(1,2)运行结果：使 阅读全文

摘要：实例应用1、磁盘管理查看磁盘的属性wmic logicaldisk list brief::caption=标题、driveID=驱动器ID号、model=产品型号、Partitions＝分区、size＝大小根据磁盘的类型查看相关属性wmic logicaldisk where drivetype=3 list brief使用get参数来获得自己想要参看的属性wmic logicaldisk where drivetype=3 get deviceid,size,freespace,description,filesystem只显示c盘的相关信息wmic logicaldisk where n 阅读全文

摘要：一、视频搜索器选择：Selectitem()'#########################################Function Selectitem()'Set VedioSearch=WScript.CreateObject("wscript.shell")Dim demodemo=InputBox("请选择进入的功能模块:1、进入美电贝尔设备搜索器;2、进入搜索视频监控设备;3、进入大华视频搜索器;4、进入海康视频搜索器;5、进入十五所视频搜索器")Select Case demoCase "1" 阅读全文

摘要：1、定时运行程序与关闭程序的VBS处理方法：doset ws=createobject("wscript.shell")ws.run"你要运行的程序的路径(比如说d:\qq.exe)",x 'x为参数，可选值如下.wscript.sleep 36000 '36000为一分钟，具体可以自己改。ws.run "taskkill /im 你要运行的程序的名称（比如说QQ.exe) /f",vbhideloopx为参数 下面为可选值： 0 隐藏一个窗口并激活另一个窗口。 1 激活并显示窗口。如果窗口处于最小化或最大化状态，则系 阅读全文

摘要：（一）VBS常用函数使用笔记：1、Msgbox语法：msgbox "对话框内容", , "对话框的标题"2、inputbox是VBS内建的函数，可以接受输入的内容，其语法格式为：Inputbox("对话框内容","对话框标题")3、所有单引号后面的内容都被解释为注释。4、Set是Vbs指令，凡是将一对象引用赋给变量，就需要使用set关键字。那么什么是对象引用呢？凡是字符串、数值、布尔值之外的变量都是对象引用。5、run在运行解析时，遇到空格会停止，解决的方法是使用双引号eg:objshell.run "& 阅读全文