随笔分类 -  VBS

摘要:网上搜到的答案普遍是VBS无法实现,或者是要用第三方COM(ActiveX?)组件。我对第三方组件是很反感的,使用第三方组件毫无可移植性可言,因为别人的系统中不一定注册了这个组件。我的建议是,尽量不要在VBS代码中调用第三方组件,除非你的程序只是写来自己用。(顺便说一下,也尽量不要用不靠谱的Send... 阅读全文
posted @ 2014-07-02 23:33 狂师 阅读(7087) 评论(0) 推荐(0) 编辑
摘要:'***********************************************************************' 代码开始'***********************************************************************... 阅读全文
posted @ 2014-07-02 23:32 狂师 阅读(24214) 评论(1) 推荐(1) 编辑
摘要:CMD当前路径复制代码 代码如下:test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test当前VBS路径复制代码 代码如下:test = createobject("Scripting... 阅读全文
posted @ 2014-07-01 00:03 狂师 阅读(4008) 评论(0) 推荐(0) 编辑
摘要:、选择文件[XP操作系统,不能用于Win2000或98],使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框Set objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filt... 阅读全文
posted @ 2014-06-30 22:52 狂师 阅读(3706) 评论(0) 推荐(0) 编辑
摘要:方法一:先把脚本保存起来(保证你的脚本能正确运行),例如命名为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文件里这么描述,然后双击执行这个文件 阅读全文
posted @ 2013-12-25 18:01 狂师 阅读(6251) 评论(0) 推荐(0) 编辑
摘要:一.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)运行结果:使 阅读全文
posted @ 2013-12-19 23:36 狂师 阅读(2581) 评论(0) 推荐(0) 编辑
摘要:实例应用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 阅读全文
posted @ 2013-10-23 11:30 狂师 阅读(1297) 评论(0) 推荐(0) 编辑
摘要:一、视频搜索器选择:Selectitem()'#########################################Function Selectitem()'Set VedioSearch=WScript.CreateObject("wscript.shell")Dim demodemo=InputBox("请选择进入的功能模块:1、进入美电贝尔设备搜索器;2、进入搜索视频监控设备;3、进入大华视频搜索器;4、进入海康视频搜索器;5、进入十五所视频搜索器")Select Case demoCase "1" 阅读全文
posted @ 2013-09-04 18:15 狂师 阅读(1268) 评论(0) 推荐(0) 编辑
摘要: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 激活并显示窗口。如果窗口处于最小化或最大化状态,则系 阅读全文
posted @ 2013-07-17 22:24 狂师 阅读(1652) 评论(0) 推荐(0) 编辑
摘要:(一)VBS常用函数使用笔记:1、Msgbox语法:msgbox "对话框内容", , "对话框的标题"2、inputbox是VBS内建的函数,可以接受输入的内容,其语法格式为:Inputbox("对话框内容","对话框标题")3、所有单引号后面的内容都被解释为注释。4、Set是Vbs指令,凡是将一对象引用赋给变量,就需要使用set关键字。那么什么是对象引用呢?凡是字符串、数值、布尔值之外的变量都是对象引用。5、run在运行解析时,遇到空格会停止,解决的方法是使用双引号eg:objshell.run "& 阅读全文
posted @ 2013-06-23 18:08 狂师 阅读(2441) 评论(0) 推荐(0) 编辑