VBS教程
[工学]VBS基础教程
![[工学]VBS基础教程](https://img.taocdn.com/s3/m/aac592fad15abe23482f4d62.png)
VBScript
4.2 VBS的数据类型
VBScript
4.3常量、变量与表达式
4.3.1 常量的定义 常量指的是在程序运行过程中其值保持不变的量,它 用来保存固定不变的数值,字符串等常数。 • 在vbscript中使用使用 Const 指令可以创建名称具有一 定含义的字符串型或数值型常量,并给它们赋原义值 。 • 例如: Const MyString = "这是一个字符串。" Const MyAge = 49
Dim a() ReDim b()
VBScript
4.3常量、变量与表达式
4.3.3数组的定义 注:Dim与ReDim的区别
Dim与ReDim的不同之处在于ReDim语句定义的数组可以重设大 小和维数。如: ReDim a(9) …… ReDim preserve a(10)
VBScript
4.3常量、变量与表达式
VBScript
4.4常用函数
4.4.1数学函数
3.四舍五入
格式 1:Round(表达式,[小数位数]) 功能:返回表达式按指定的小数位进行四舍五入的结果, 若省略小数位数,则四舍五入整数。如: Round (5.2345,2)=5.23 Round (5.5345)=6
VBScript
4.4常用函数
VBScript
4.4常用函数
4.4.1数学函数
1.取整
格式 1:Int(x) 格式 2: Fix(x) 功能:若x为正数,则返回x的整数部分。若x为负数 则返回小于或等于x的第一个负整数,Fix返回或等于x 的第一个负整数。
VBScript
4.4常用函数
4.4.1数学函数
2.取绝对值
格式 1:Abs(x) 功能:若返回x的绝对值。如果x的值大于等于0,返回的数值 就会等于输入的数值;相反小于等于0,则会去掉负号输出, 如: Abs(1)=1 Abs(-1)=1 Abs(0)=0
VBS脚本教程二(B)

VBS脚本教程二(B)例五:关机菜单立刻显身打开记事本,输入以下命令,并将其保存为1.vbs:set WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "^{ESC}u"双击运行它,你会发现关机菜单立刻出现了。
将“WshShell.SendKeys "^{ESC}u"”改为“WshShell.SendKeys"^+{ESC}"”,运行一下看看是否打开了任务管理器妙用SendKeys自动上网并登陆网志将下面的脚本复制到一个文本文件中,并将其文件名命名为:自动登陆.vbs,然后将拨号软件及本脚本一起复制到程序——启动项中,就可以实现自动拨号上网,并登陆到网志上。
代码如下:Set wshshell=CreateObject("wscript.shell")wshshell.AppActivate "连接MAE-301U 拨号连接"wscript.Sleep 20000wshshell.SendKeys "{enter}"wshshell.Run "iexplore"WScript.Sleep 2000wshshell.AppActivate "hao123网址之家---实用网址,搜索大全,尽在 - Microsoft Internet Explorer" '引号中的内容修改为你的浏览器打开后标题栏中的内容wshshell.SendKeys "%d"wshshell.SendKeys "/?login"wshshell.SendKeys "{enter}"WScript.Sleep 2000wshshell.SendKeys "此处修改为网志帐号"wshshell.SendKeys "{tab}"wshshell.SendKeys "此处修改为网志密码"wshshell.SendKeys "{enter}"'wshshell.SendKeys "%d"◎Vbs脚本编程简明教程之十—Vbs脚本编程常用的编辑器1、VBSEDit汉化版2、primalscript汉化版,可以对30多种脚本进行编辑◎Vbs脚本编程简明教程之十一—FSO中文件的基本操作一、文件属性:在windows中,文件的属性一般用数字来表示:0代表normal,即普通文件未设置任何属性。
vbs 教程

vbs 教程VBScript(Visual Basic Script)是一种微软开发的脚本语言,可以用于编写简单的脚本程序。
本教程将介绍VBScript的基本语法以及常用的功能。
1. 注释在VBScript中,可以使用单引号(')来添加注释。
注释是不会被程序执行的内容,通常用于解释代码的作用或者提醒自己以后查看代码时的用途。
示例:```' 这是一个注释MsgBox "Hello, World!"```2. 变量变量用于存储和操作数据。
在VBScript中,变量由一个名称和一个值组成。
变量的名称是由字母、数字和下划线组成的,不能以数字开头。
示例:```Dim name ' 声明一个变量name = "John" ' 给变量赋值MsgBox "Hello, " & name & "!" ' 输出变量的值```3. 数据类型VBScript支持多种数据类型,包括整数(Integer)、浮点数(Double)、字符串(String)等。
根据变量存储的数据类型,可以进行不同的操作和运算。
示例:```Dim age ' 整数类型age = 25Dim weight ' 浮点数类型weight = 65.5Dim name ' 字符串类型name = "John"MsgBox "I am " & age & " years old and my weight is " & weight & "kg."```4. 条件语句条件语句用于根据条件的结果执行不同的代码块。
VBScript提供了多种条件语句,如If语句、Select Case语句等。
示例:```Dim scorescore = 80If score >= 90 ThenMsgBox "优秀"ElseIf score >= 80 ThenMsgBox "良好"ElseIf score >= 60 ThenMsgBox "及格"ElseMsgBox "不及格"End If```5. 循环语句循环语句用于重复执行一段代码,直到满足退出条件为止。
VBS脚本教程

VBS脚本教程(一)打开你的“记事本”程序,在编辑窗口填写:msgbox "Hello World!"然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设为桌面,在“文件名”一栏中填写kk.vbs,单击“保存”就可以了。
然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的kk.vbs,然后双击。
看到弹出的对话框了没有,单击“确定”,对话框消失了。
难看了点,不过确实是你编写的第一个脚本程序。
说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,你保存到其他的地方完全没有问题,只要你知道你保存在什么地方就可以了,什么?是废话,自己保存的当然知道保存在那里了。
不,自己保存的文件自己找不到的人我见的多了去了。
文件名你可以随意填写,不一定非要写kk,只要符合Windows的文件命名规则就可以了,但是扩展名必须是vbs,什么?不知道什么是扩展名?就是文件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是:xxx.vbs,其中xxx你随意。
说明之二:在记事本编辑窗口中写的这行是什么意思?Msgbox是VBS内建的函数,每一个函数都可以完成一定的功能,你只需要按照语法要求,在函数的相应部分填写相应的内容就可以了,这部分内容我们称为参数,当然函数执行的结果我们称为返回值,一个函数可以有返回值也可以没有,可以有参数也可以没有。
你不用了解函数是怎么运作的,只要了解这个函数能干什么就行了。
Msgbox语法:msgbox "对话框内容", , "对话框的标题"你不妨用记事本打开刚才的文件在编辑窗口中输入:msgbox "Hello World!" , , "系统提示"执行一下,看看效果和位置。
说明之三:如果执行失败,看看你的标点符号,所有的标点符号必须是在英文状态下输入的。
当然,这个脚本实在是太简单了,甚至连最简单的交互都没有,所以你可以把脚本这样修改一下:Dim namename=Inputbox("请输入你的名字:","名称")Msgbox name, , "您的名字是"保存执行一下,看到弹出的对话框了么?填入你的名字,点确定,看到结果了吗?说明之一:第一句是定义变量,dim是定义变量的语句其格式为:dim 变量1,变量2……,Vbs只有一种变量类型,所以不用声明变量类型。
vbs教程6篇

注意:本文所有” > ” =” > ”“ < ”=” < ”(转载)第一篇什么是VBScript呢? VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. 我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了.我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad).我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS开发, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因为这些工具可以提供"语法高亮"等功能, 更加方便开发, 用哪一个随你喜好, 我比较喜欢Edit Plus (2.10).OK, 我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)把上面的程序清单输入到记事本里面, 然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行, 观察运行结果. 注意:请自己输入程序清单, 不要复制->粘贴!我来解释一下这个程序, 第一行和第二行的开头分别是"REM"语句和" ' ", 这两个东西的作用是相同的, 表示本行是注释行, 就是说这两行什么也不干,只是用来说明这段程序的功能, 版权信息等等. 注释行是程序最重要的部分之一, 尽管它不是必需的, 但对于其他人阅读源代码, 以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰, 简洁的注释.Dim用来声明一个变量, 在VBS中, 变量类型并不是那么重要, 就是说VBS会帮你自动识别变量类型, 而且变量在使用前不一定要先声明, 程序会动态分配变量空间. 在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"), 也不用考虑是不是字符串(一串字符, 比如:"Hello World"), VBS会自动帮你搞定. 所以第三行语句可以删除, 效果不会变, 但我强烈反对这么做, 一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字, 但不能使用vbs已经定义的字, 比如dim, 也不能是纯数字.下一行被称之为"赋值", "="是赋值符号, 并不是数学中的等于号, 尽管看起来一样.这是正统的理解, 你要理解成等于也没有什么不可. 赋值号的左边是一个变量, 右边是要赋给变量的值, 经过赋值以后, msg这个变量在程序中等同于"请输入你的名字:"这个字符串,但当msg被再次复制的时候, 原值就会消失. 不光字符串, 其他任何变量都这样被赋值, 例如: a=2, b=12.222等等.再往下,Inputbox和Msgbox是VBS内建的函数, 一个函数就相当于一个"黑箱", 有输入(参数)和输出(返回值), 你可以不用了解函数是怎么运作的, 只要了解这个函数能干什么就行了, 我们也可以定义自己的函数, 不过那要等到以后再讲. 现在我们只要了解, 一个函数可以有返回值也可以没有, 可以有参数也可以没有. 例如Inputbox就是有返回值的函数, 我们用赋值号左边的变量来"接"住InputBox的返回值--就是你输入的内容. 在inputbox右边的括号里是参数列表, 每个参数用","分隔开, 每个参数有不同的功效, 比如第一个参数会显示在提示里, 我们把msg这个变量作为第一个参数传给了Inputbox 函数, 而msg="请输入你的名字:", 所以我们在对话框的提示栏就会看到"请输入你的名字:" 第二个参数是对话框的标题, 我们用直接量(学名叫"常量", 这里是"字符串常量")传递给函数, 当然你也可以传递变量. Inputbox还有很多参数, 比如你在"名称"后面再加一个","然后输入随便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行, 看看结果. 你会发现用于输入的文本框有了默认的值, 这就是第三个参数的作用.Msgbox函数是用来输出的函数, 在VBS中没有专门的输出函数(BASIC中的print,C中的printf), 所以我们只能用对话框来观察输出结果, Msgbox的必要参数只有一个, 就是要输出的内容, 在这种情况下, 我们不需要理会msgbox的返回值. 关于Msgbox和Inputbox我们以后还会在讨论, 今天只是热热身, 到此为止.要点:1) 注释(以REM或'开头)行在程序中不起作用, 但能让别人更容易读懂你的程序.2) 变量好像一个盒子, 或一个代号, 可以代表你想代表的东西. 变量赋值使用"="3) 以""包裹起来的字符称之为"字符串"4) 函数像一个"黑箱", 有参数和返回值, 用"="左边的变量可以接住返回值5) Inputbox函数弹出一个输入对话框,Msgbox则用于输出作业:1) 试验Inputbox的第三个参数2) 写一段程序输出你的年龄3) 写一段程序进行3次输入, 分别输入你和你父母的姓名(要求显示提示), 并分3次输出第二篇:我真没想到, 第一次的作业竟然有人不会.看来要讲的非常非常细致才行, 嗯, 今天讲各种"量"和基本运算先说常量, 这个比较简单.什么是常量呢, 常量就是其值不可变化的量.常量分为两种:第一种, 自然常量. 这叫是因为它们本身就是常量, 你怎么更改21的值呢? 他永远都是21, 不可能变成46如果你在程序中使用"21=46", 这样的语句将会引发一个错误. 同样的, 字符串也是常量(还记得字符串吗? 就是包裹在""之间的一串字符), "Hello World"就是一个例子, 如果你使用"Hello World"="Bye"这样的语句同样会引发一个错误. 你能举出自然常量的更多例子吗?第二种, 是我们自己定义的常量,这种量也使用代号, 他们也被赋值, 但和变量的不同点在于, 他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误. 定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字, 不能作为变量名或常量名使用),格式是:const 常量名=常量值.例如:const PI=3.1415926const NAME="记忆碎片"这样我们就定义了两个常量, PI和NAME, 一般说来, 常量名全部使用大写, 但也可以不用, 随你喜好. 将一些在程序中不需要改变的值定义为常量是个好习惯, 这样能防止不必要的意外. 另外, 使用自定义常量也可以减少你的工作量. 比如:msgbox("Hello World")msgbox("Hello World")msgbox("Hello World")msgbox("Hello World")msgbox("Hello World")这个程序输出五次Hello World, 如果你想要改变输出为Bye-Bye, 就必须修改全部程序, 当然你可以手动修改5次, 但如果你要输出1000次呢? 常量就可以替我们解决这个问题: const hw="Hello World"msgbox(hw)msgbox(hw)msgbox(hw)msgbox(hw)msgbox(hw)这样当你要修改输出的时候只要修改hw的值就行了.好了, 现在我们来看看编程的第一块重要"基石":变量. 解释变量最好的办法我觉得是"盒子", 一个变量好像一个盒子, 里面只能装一个东西, 当你要装进去别的东西的时候必须把原有的东西拿出来. 这个"盒子"是有名称的, 当你在程序中使用变量的时候, 系统会打开盒子取出里面的东西, 让这些东西参与处理, 而不是盒子. 有些语言是很依赖"盒子"里面装些什么东西, 这样才能找到合适的"盒子"(比如C语言), 但VBS给我提供的是能够自动伸缩的"魔术盒", 我们不用关心装进去的是什么东西,VBS会自动调整盒子的大小. 例如:Dim a1,a2,a3a1=14a2=12.23a3="Hello"而不用像C语言那样麻烦: 或者是VB的正规声明(VB可以声明也可以不用)那样:int a1; Dim a1 as integerfloat a2; Dim a2 as Doublechar* a3; Dim a3 as strniga1=14; a1=14a2=12.23; a2=12.23a3="Hello"; a3="Hello"嗯……扯远了……变量有什么用呢? 哇, 那用处可大了. 最简单, 你并不能确定程序运行时变量的值, 比如前一节课我们编的输入姓名的程序, 你不能确定InputBox返回的是什么(还记得Inputbox 的返回值吗? 就是你输入的内容), 所以你就没有办法应对各种情况, 但我们用name这个"盒子"把用户的名字装起来, 到用的时候我们只要知道name这个盒子的名字就行了, 系统会自己打开他并把里面的内容拿出来用. 再举个例子, 我们编写一个程序计算一个矩形的面积, 比如这个程序要发给小学生使用:dim a,b,sa=15b=12s=a*bmsgbox(s)这样就可以求出长为15,宽为12的矩形的面积了, 是不是很简单? 当然,这个程序也可以这样写:dim ss=15*12msgbox(s)这样看起来程序短了许多, 也节约内存, 但并不是鼓励的做法, 为什么? 请看下面.现在, 我们的程序要变得像点样子才行, 谁的程序写出来还要别人修改源代码才能用啊?所以, 我们要接受用户的输入, 还记得吗? InputBox函数.修改后程序如下:dim a,b,sa=inputbox("请输入矩形的长:")b=inputbox("请输入矩形的宽:")s=a*bmsgbox(s)ok, 这么一修改, 无论用户输入怎样的数据, 我们都能计算出矩形的面积了. 如果你用s=15*12能改嘛? 当然不行.我想你已经发现了, vbs中的数学计算和真正的算术没有什么不同, +,-,*,/,(),[],{}都是一样的用法, 比如:dim ansans=12+32/4+[(23-10)*2]msgbox(ans)四则运算的法则在编程中同样生效, 你可以在编程中重新获得小学时候的乐趣(你恨数学?那就别学电脑了).在编程中有一个有趣的运算符是"mod", 这个运算符叫做"取余运算符", 就是取得一次除法的余数, 例如dim aa=16 mod 5你知道a等于几吗? Bingo! 没错, 就是1. 因为16 / 5 =3....1, 所以mod计算的结果就是1.还有一个运算符是"^"(就是键盘"6"上面的小箭头), 他表示"乘幂"(或者是"方") 比如: dim a,b,ca=2b=a^2c=a^3msgbox(a)msgbox(c)则b=a*a=4, c=a*a*a=8我们一次不要讲太多, 这次就讲到这里, 现在总结一下.要点:1) 常量分为自然常量和自定义常量, 常量的值不可修改2) 变量就像盒子, 我们不在乎盒子里装的是什么, 但一定要知道盒子的名字3) 四则运算在编程中没有任何不同4) MOD是取余运算作业:1) 编一个程序, 计算圆形的面积, 半径由用户给出(使用Inputbox) PI取值3.141592) 编一个程序取得20 / 3 的余数第三篇(共六篇):首先, 我来解决一下上次课程的几个疑问第一, 那个余数问题, 16 / 5 = 3...1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思. 第二, 请看一下程序清单:1)Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=a*2+b*2Msgbox(c)这个输入1、2时是62)Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=(a+b)*2Msgbox(c)这个输入1、2时是24为什么会不一样呢? 在数学上c=(a+b)*2 和c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" have you understood? 你还记得InoutBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现, 如果这个字符串的内容是一个数且对他进行数学运算, 则把字符串强制转换成数参与运算, 如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果(12)是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24.怎么修改这个程序呢? 我们需要用到另一个内建的函数:int, int函数的功能是将输入值转化成整数值, 我们这样修改:c=(int(a)+int(b))*2这个意思就是把a作为参数传递给int函数, int函数就会返回那个整数(你的输入值), 然后让返回值参与运算, 这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c) 'c是你自己的变量大家是不是觉得这个课程有点枯燥, 呵呵, 变量和运算符部分的确是这样的, 不过多多练习也就好了, 这次, 我们写写真正好玩的东西: 流程控制语句. 这个部分开始才是真正的编程.首先介绍判断结构.在此之前, 我们先介绍一种简单的变量类型:布尔值(Boolean), 这种变量只有两个可能值:True,Flase,即真或假. 这种变量在某些情况下很有用(比如"开关"). 我们定义一个bool变量的方法和其他变量一样, 赋值也一样, 例如:dim a,ba=trueb=false注意,true和"true"是不一样的, "true"是字符串,true是布尔值, 千万不能混淆.回到if语句上来, 我们先来看看简化版的if语句:if 判断式 then 语句体我们来看一个例子:dim a,ba=12b=13if b>a then msgbox("B大于A")我们只看最后一行, a>b这个式子(表达式)有一个返回值, 是bool型的. 因为这个式子只有两种可能:b大于a, b不大于a, 所以这个式子也只有两种可能性, 即真或者假. if 语句判断这个表达式的返回值是真还是假, 如果是真(true)则执行then后面的语句, 如果是假, 则不执行, 你把a的值改成14看看还会不会弹出对话框?当我们要在判断之后执行多行语句怎么办呢, 我们需要用语句块来解决, 在这里可以叫块ifdim a,ba=12b=13if a<b thenmsgbox("A小于B")msgbox("B大于A")end if两个msgbox函数夹在if和end if之间, 这个部分就是语句块, 块里的每一条语句之前请空出4--8(一个<Tab>键)个格, 这不是必需的, 但是是一个好习惯, 以便看清楚程序的结构. 这样我们就能运行多于一个的语句, 请注意if...then...end if 这三个关键部分不要掉了. OK, 我出一个题, 输入一个数, 如果小于100就输出"错误", 如果大于100就输出"正确", 我这里有两个程序版本:dim aa=inputbox("请输入一个大于100的数")a=int(a) 'inputbox返回的是字符串, 我们把他变成整数 : )if a>100 then msgbox("正确")if a<100 then msgbox("错误")还有一个更简单的dim aa=inputbox("请输入一个大于100的数")a=int(a) 'inputbox返回的是字符串, 我们把他变成整数if a>100 thenmsgbox("正确")elsemsgbox("错误")end if看到多了一个else了吧, else的作用就是当要判断的表达式为false时执行的. 这样程序就可以处理两种不同的情况了. 不要忘了用end if结尾嘿嘿, 我是变态者, 现在我要你处理三种情况, <100,=100,>100, 还要写在一个if结构里, 你怎么办, 我给你答案:dim aa=inputbox("请输入一个大于100的数")a=int(a) 'inputbox返回的是字符串, 我们把他变成整数if a>100 thenmsgbox("正确")elseif a=100 thenmsgbox("老大, 你耍我?")elsemsgbox("错误")end if这次输入100看看, 是什么? else if语句可以在if结构中多次出现, 以灵活判断不同的情况 (如果你要判断得太多, 就请使用"选择结构", 过会儿就讲), 当所有elseif都处理完了,而没有符合情况的时候再执行else中的语句.另一个例子:Dim a,b,c,da=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")d=Inputbox("答案:","输入答案")c=a*2+b*2 '这里没有问题, 会自动转换if d=c thenMsgbox("你好聪明")elseMsgbox("你好猪头自己的题还不会!")end if再看看这个, 无论你回答得多么正确你都是猪头, 哈哈, 不是我耍你, 还是文章开始时候的inputbox的返回类型在耍你, d是inputbox的返回值, 他是一个字符串, 而c是一次整数计算的结果, 他是一个整数. 一个字符串无论如何也不等于一个整数, 尽管他们字面上是一样的:"8"<>(不等于号)8 所以if的判断式的值永远是false, 总是执行else部分的语句. 我们可以这么修改Dim a,b,c,da=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")d=Inputbox("答案:","输入答案")d=int(d)'在这里我们取出了d的值, 变成整数, 在放回"d"这个盒子里c=a*2+b*2if d=c thenMsgbox("你好聪明")elseMsgbox("你好猪头自己的题还不会!")end if这样就成功了. 这也是Inputbox函数的一个讨厌的地方, 没办法, vbs没有其他好的输入方式了.说到if, 我们不得不说一说逻辑运算符, 今天介绍两种, "and" 和 "or" 学会了if语句之后, 我举一个例子, 你一看就明白了.dim a,ba=inputbox("输入一个数 >10")b=inputbox("输入另一个数 >10")a=int(a)b=int(b)if a>10 and b>10 thenmsgbox("正确")elsemsgbox("错误")end if这段程序让你输入两个值, 必须都大于10, 只要有一个不大于, 就输出错误dim a,ba=inputbox("输入一个数 >10")b=inputbox("输入另一个数 >10")a=int(a)b=int(b)if a>10 or b>10 thenmsgbox("正确")elsemsgbox("错误")end if这段程序让你输入两个值, 只要有一个大于10, 就返回成功. 其实and和or很好理解, 我读"if a>10 or b>10 then" 这一句, 用华语是这样:"如果a大于10或者b大于10, 那么...". 这样是不是就很好理解了呢.OK, 我们再来看一种新结构, 今天的课就结束, 已经午夜了, 我都累死了.当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱, 所以就有了一种select case结构专门对付这种情况, select case的语法结构很简单: select case 变量名case 值语句case 值语句case else语句end select我们举个例子就能很简单的说明:dim aa=inputbox("输入一个1--3的值")a=int(a) '处理inputbox返回字符串的问题select case acase 1msgbox("壹")case 2msgbox("贰")case 3msgbox("叁")case elsemsgbox("输入错误")end select这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字, 这个程序写成if...elseif 的形式如下dim aa=inputbox("请输入1--3的值")a=int(a)if a=1 thenmsgbox("壹")elseif a=2 thenmsgbox("贰")elseif a=3 thenmsgbox("叁")elsemsgbox("输入错误")end if怎么样, 麻烦吧, 还是select好吧.OK, 今天到此结束, 总结一下:要点:1) inputbox返回的是一个字符串, 而不是一个数, 必须用a=int(a)这种形式转化成数2) bool变量的值只有两种:true,false2.5) and两边的表达式都是true, 则返回true. or两边的表达式有一个是true, 就返回true3) if 语句的格式4) select...case的格式作业:1) 使用3个bool值, 储存你的3兄弟姐妹是否是男性 (提示:sister1male=false)2) 给定一个个数, 大于10而且小于20输出"正确", 否则输出"错误"3) 输入12,或者15, 输出"正确", 否则输出"错误"4) 把5以内的正整数都转换成中国大些数字5) 自己随便设计一个程序, 应用今天的知识第四篇(共六篇):大家好, 昨天我休息了一天, 所以今天写第4章:循环结构我们先来看一道题:商场进行每日结算, 要求累加出今天的营业额, 每次输入一个数, 这道题其实很简单, 但就我们现在学过的知识要完成这道题相当麻烦, 我们来分析一下. 首先, 我们需要知道买卖的次数, 这样才能控制输入的次数,但是, 这种设计是非常低效的, 每天都要重新设计程序. 假定今天进行了5次交易, 以下是源程序: dim sumsum=0 '初始化变量sum=sum + int(inputbox("请输入交易额"))'sum=sum+x 这种形式是把本身的值取出来, 进行一次运算, 再放回本身, 这种方法很有用处'这里使用了函数嵌套, 把inputbox的返回值直接传给int函数, 转化成整数, 下同sum=sum + int(inputbox("请输入交易额"))sum=sum + int(inputbox("请输入交易额"))sum=sum + int(inputbox("请输入交易额"))sum=sum + int(inputbox("请输入交易额"))msgbox(sum)看到了吗, 我通过把计算过程复制了5遍才设计好了程序, 这种程序在汽车交易所等交易次数少的地方还能凑合着用, 如果放到超市岂不是要复制, 粘贴几千遍? 我们今天讲的内容就可以克服这种缺陷, 首先, 我们来讲以下Do...Loop语句.do...loop的结构看上去非常简单, 就是:do...loop, 仅此而已, 这个结构不断执行do和loop之间的语句(学名叫:循环体), 永不停止. 举个例子来说:do msgbox("这个信息会不断重复出现, 要停止程序请使用任务管理器(Ctrl+Alt+Del)中止wscript进程") loop运行这个程序, 当你点销掉一个对话框马上会出来另一个, 你永远点不完, 总有下一个. 谁会运行这样的程序? 除非是给别人捣乱(我就干过这种事), 所以在do..loop结构中还有一个语句:exit do, 这个语句将终止循环, 跳到loop后面的语句继续执行. 据个例子来说:dim a '注意:常量不需要在dim里面声明,否则会引发错误const pass="123456" '这是一个字符串请用""包裹起来. 设定密码为常量, 不可变更do a=inputbox("请输入密码")if a=pass thenmsgbox("密码校验成功")exit doend ifloop这个程序会一直不停的问你密码, 直到你输入了正确的密码为止.(if可以嵌套在另一个if当中, 也可以嵌套在循环体当中, 所以一定要用缩进, 来分清楚程序的各个部分). 这个程序是很经典的, 早期的程序都是这么做的. 但是我们是Hacker, 所以我们了解系统的安全性, 这种无限次认证程序很容易被穷举破解, 我们要来限定认证的次数. 修改程序如下dim a,ctrctr=0 '设置计数器const pass="pas123_" '上面的那个是弱密码, 这次改的强一点doif ctr=3 thenmsgbox("已经达到认证上限, 认证程序关闭")exit doelsea=inputbox("请输入密码")if a=pass thenmsgbox("认证成功")msgbox("(你可以在这里加一段成功后得到的信息)")exit doelsectr=ctr+1 '如果密码出错就增加一次错误认证计数msgbox("认证出错, 请检查密码")end ifend ifloop运行这个程序试试看, 当你出了3此错误以后, 就会停止再次询问密码, 关闭程序. telnet认证用来限制次数的程序与此大同小异. 要注意的是嵌套的if语句, 清仔细读一下这个程序, 可能比较难懂, 也请你试着自己设计一下类似的程序.其实, 要在do...loop加上验证的功能, 并不一定要用if, 我们可以直接利用do. 我来介绍一下while关键字, while可以放在do或者是loop后面, 然后再接一个表达式, 当表达式的值为true的时候(表达式成立),才运行循环体.我们来看一下修改后的程序: dim a,ctrctr=0const pass="pas123_"do while ctr<3a=inputbox("请输入密码")if a=pass thenmsgbox("认证成功")msgbox("(你可以在这里加一段成功后得到的信息)")exit doelsectr=ctr+1 '如果密码出错就增加一次错误认证计数msgbox("认证出错, 请检查密码")end ifloopdim a,ctrctr=0const pass="pas123_"doa=inputbox("请输入密码")if a=pass thenmsgbox("认证成功")msgbox("(你可以在这里加一段成功后得到的信息)")exit doelsectr=ctr+1 '如果密码出错就增加一次错误认证计数msgbox("认证出错, 请检查密码")end ifloop while ctr<3功能是一样的, 为什么要放在loop后面呢? 你把ctr的值改成3就知道了, while在do后面的程序会直接退出, 而在loop后面还会允许一次认证, 到了loop才结束.和while 相反的是until, 用法和while一样, 不过他只有当后面的表达式的值为false(表达式不成立)的时候才执行循环体, 请自己试验一下ok, 我们来看另外一种循环结构,for....next, 这种循环结构是基于计数的, 也是在编程中最常见到的循环结构.dim ifor i=0 to 5msgbox(i)next看到了吗?每次输出的i都是递增的, 但我们没有明确指出i要递增, 当i达到5的时候, 循环就结束了, 因为由0开始, 所以循环体执行了6次, 这一点很重要, 大部分东西都是从0开始而不是1. 这个程序也可以写成do的形式:dim ii=0do while i<5msgbox(i)i=i+1 '因为do不能自动计数, 必须手动加loop怎么样, 还是for比较好用吧. for在编程中很有用途, 我们再举一个例子, 顺便讲一下嵌套循环.dim i,j,strfor i=1 to 9for j=1 to 9str=str & i * j & " " '&是和并字符串的符号msgbox(str)next '每个next对应一个fornext看看运行结果, 是否令你会想起小学时代的数学老师(丑陋的嘴脸). 要注意, 这里有一个"大"的for, 和一个小的for, 当小的for执行完一个周期以后, 大的for才执行一次(换句话说, 大的for执行一次, 小的要执行9次), 所以一共执行了九九八十一次. 在大的for里可以不仅仅是一个小的for, 也可以加上另外的语句. 我们来修改一下源程序: dim i,j,strfor i=1 to 9for j=1 to 9str=str & i * j & " "next '每个next对应一个for。
vbs教程

Vbs?
在
Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周
也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情
就是打开
WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造
四、条件语句主要有
if……then语句和
selectcase语句两种形式
在
if……then语句中,其基本形式为:
If条件
then
处理条件的语句;
……
Endif
基本形式只能对单个条件进行验证,如果有两个条件,则需要在基本形式中添加单行语句
else,
如果还有更多的条件需要验证,则需要添加语句
我个人认为
Vbs脚本其实就是一种计算机编程语言,但是由于缺少计算机程序设计语言中的部
分要素,对于事件的描述能力较弱,所以称为脚本,它最方便的地方就是提供了对
COM对象
的简便支持。那么什么是
COM对象呢?
我这样理解,COM对象就是一些具有特定函数功能项程序模块,他们一般以
ocx或者
是怎么运作的,只要了解这个函数能干什么就行了。
Msgbox语法:msgbox
"对话框内容",
,"对话框的标题"
你不妨用记事本打开刚才的文件在编辑窗口中输入:
msgbox
"Hello
World!"
,
,
"系统提示"
执行一下,看看效果和位置。
VBS的基础教程

VBS的基础教程VBS(Visual Basic Script)是一种用于 Windows 系统的脚本语言,广泛应用于自动化任务、服务器脚本和系统管理等领域。
在 VBS 中,我们可以进行各种运算操作来实现数值的计算和处理。
本文将介绍 VBS 的基础教程,涵盖常用的数值运算操作。
1.加法运算:在VBS中,可以使用加号(+)来进行加法运算,例如:```num1 = 10num2 = 5result = num1 + num2```上述代码中,变量 `num1` 和 `num2` 分别赋值为 10 和 5,然后使用加号将它们相加,并将结果赋值给变量 `result`。
2.减法运算:在VBS中,可以使用减号(-)来进行减法运算,例如:```num1 = 10num2 = 5result = num1 - num2```上述代码中,变量 `result` 的值将为 5,即 `num1 - num2` 的结果。
3.乘法运算:在VBS中,可以使用星号(*)来进行乘法运算,例如:```num1 = 10num2 = 5result = num1 * num2```上述代码中,变量 `result` 的值将为 50,即 `num1 * num2` 的结果。
4.除法运算:在VBS中,可以使用斜杠(/)来进行除法运算,例如:```num1 = 10num2 = 5result = num1 / num2```果。
需要注意的是,在VBS中进行除法运算时,如果除数为0,则会产生一个错误。
5.求余运算:在 VBS 中,可以使用模运算符(Mod)来进行求余运算,例如:```num1 = 10num2 = 3result = num1 Mod num2```上述代码中,变量 `result` 的值将为 1,即 `num1` 除以 `num2` 的余数。
6.幂运算:在VBS中,可以使用双星号(**)来进行幂运算,例如:```num1 = 2num2 = 3result = num1 ** num2```方。
vbs简明教程

Do while 条件
执行循环体
Loop
如果你希望在条件不满足时执行代码,则使用do……until语句,结构为:
Do until 条件
执行循环体
Loop
当然,在这两种循环语句中,你可以使用exit do来退出循环
最后一种循环语句是条件满足时一直执行循环,
While 条件
五、循环控制语句
循环控制语句有for……next循环、for……each循环、do……while循环、do……until循环、while循环五种形式。
在使用循环控制语句前,首先要对循环条件进行判断,如果循环次数是有固定次数的,那么使用For……next循环,其结构为:
For 计数器变量=开始计数值 to 最后计数值
说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,你保存到其他的地方完全没有问题,只要你知道你保存在什么地方就可以了,什么?是废话,自己保存的当然知道保存在那里了。不,自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写,不一定非要写kk,只要符合Windows的文件命名规则就可以了,但是扩展名必须是vbs,什么?不知道什么是扩展名?就是文件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是:xxx.vbs,其中xxx你随意。
于是问题解决了,比如说,我手头有1000个小文本,我首先要对每一个文本的语法进行查错和修改,然后按照预先定义好的规则对这些文本进行排序,最后将这些文本合并成为一个文件。正常情况下,我们需要把打开第一个小文本,然后把它复制到WORD中,然后利用里面的除错功能进行除错和修改,然后再导入到EXCEL中进行排序,将这个过程重复1000遍,然后再将所有得到的文本复制到一个大文本中。实在是太枯燥、工作量太大了。有了Vbs和CreateObject,问题得到解决,我只需要找到相应的模块,调用相应的功能就可以了,作为脚本,把一个枯燥的过程重复1000次,本就是它的拿手好戏。
VBS脚本教程

VBS脚本教程 (一)打开你的“记事本”程序,在编辑窗口填写:msgbox "Hello World!"然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设为桌面,在“文件名”一栏中填写kk.vbs,单击“保存”就可以了。
然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的kk.vbs,然后双击。
看到弹出的对话框了没有,单击“确定”,对话框消失了。
难看了点,不过确实是你编写的第一个脚本程序。
说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,你保存到其他的地方完全没有问题,只要你知道你保存在什么地方就可以了,什么?是废话,自己保存的当然知道保存在那里了。
不,自己保存的文件自己找不到的人我见的多了去了。
文件名你可以随意填写,不一定非要写kk,只要符合Windows的文件命名规则就可以了,但是扩展名必须是vbs,什么?不知道什么是扩展名?就是文件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是:xxx.vbs,其中xxx你随意。
说明之二:在记事本编辑窗口中写的这行是什么意思?Msgbox是VBS内建的函数,每一个函数都可以完成一定的功能,你只需要按照语法要求,在函数的相应部分填写相应的内容就可以了,这部分内容我们称为参数,当然函数执行的结果我们称为返回值,一个函数可以有返回值也可以没有,可以有参数也可以没有。
你不用了解函数是怎么运作的,只要了解这个函数能干什么就行了。
Msgbox语法:msgbox "对话框内容", , "对话框的标题"你不妨用记事本打开刚才的文件在编辑窗口中输入:msgbox "Hello World!" , , "系统提示"执行一下,看看效果和位置。
说明之三:如果执行失败,看看你的标点符号,所有的标点符号必须是在英文状态下输入的。
当然,这个脚本实在是太简单了,甚至连最简单的交互都没有,所以你可以把脚本这样修改一下:Dim namename=Inputbox("请输入你的名字:","名称")Msgbox name, , "您的名字是"保存执行一下,看到弹出的对话框了么?填入你的名字,点确定,看到结果了吗?说明之一:第一句是定义变量,dim是定义变量的语句其格式为:dim 变量1,变量2……,Vbs只有一种变量类型,所以不用声明变量类型。
VBS教程

VBS教程首先,我说一下什么是VBS,VBS,就是VBScript的简称,是微软Visual Basic(VB)的简化版,VBS脚本文件的扩展名为“.vbs”,VBS脚本能给我们日常的学习生活带来莫大的好处,可是,VBS也是黑客入侵的一个漏洞,“VBS病毒”就是VBS脚本所编写的病毒。
废话不说,咱先进入正题。
第一课:msgbox打开记事本,输入 msgbox"你好" ,点“文件”——“保存”,或者按Ctrl+s,弹出“另存为”对话框,选择要保存的路径,输入“1.vbs”,点“保存”(1.vbs的“1”是文件名,可以改,但是“.vbs”是分隔符和文件扩展名,不能改。
),双击运行,效果如下:你会发现,怎么没有标题?接下来,就教你设置标题。
打开记事本,输入 msgbox"你好",,"你好" ,然后保存(保存方法在第五行已经讲明,不再复述),双击运行,效果如下:可能会遇到这个错误:这是因为引号在中文输入法下输入,应该切换为英文输入法,即msgbox{显示内容},{参数},{标题}现在,我讲一下msgbox函数的参数0:只有一个确定按钮1:有一个确定按钮和取消按钮2:有终止、重试、忽略按钮3:有是、否、取消按钮4:只有是、否按钮5:只有重试、取消按钮16:提示框类型为系统错误信息32:有一个问号图标48:提示框类型为系统警告信息64:有一个感叹号图标第二课:inputbox这个函数是弹出一个文本框。
打开记事本,输入 inputbox"输入文字:","文字" ,然后保存,双击运行,效果如下:inputbox{显示内容},{标题}第三课:常量与变量上一课学习了inputbox函数,弹出一个文本框。
然后,你可能会问:能不能弹出一个文本框,当别人输入文本然后点确定时,用msgbox 函数显示出输入的文本?我的回答是:完全可以!1、常量例如语句 msgbox"你好" 中的"你好"是一个常量,带引号的都是常量(字符串)。
完整的VBS教程(超级实用)

很好的VBS教程(带实例)推荐第一篇:讲一下VBScript。
主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以。
但既然有编程基础推荐直接去找一些参考书来读。
会比较快。
什么是VBScript呢?VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。
正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。
我进一步解释一下,Microsoft Visual Basic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成.exe,而是直接给用户发送.vbs的源程序,用户就能执行了。
我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了,答案是:记事本(Notepad).我不是开玩笑,其实任何一种文本编辑器都可以用来开发VBS开发,只不过记事本是由系统自带的,比较好找而已. 尽管如此,我还是建议你去下载一个专业的文本编辑器,因为这些工具可以提供 "语法高亮"等功能,更加方便开发,用哪一个随你喜好,我比较喜欢Edit Plus (2.10).OK,我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)把上面的程序清单输入到记事本里面,然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行,观察运行结果. 注意:请自己输入程序清单,不要复制->粘贴!我来解释一下这个程序,第一行和第二行的开头分别是"REM"语句和" ' ",这两个东西的作用是相同的,表示本行是注释行,就是说这两行什么也不干,只是用来说明这段程序的功能,版权信息等等. 注释行是程序最重要的部分之一,尽管它不是必需的,但对于其他人阅读源代码,以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰,简洁的注释。
《VBS基础教程》课件

《VBS基础教程》PPT课 件
# VBS基础教程PPT课件大纲
第一部分:VBS概述
什么是VBS?
VBS是一种脚本语言,用 于Windows平台的系统管 理和任务自动化。
VBS的应用领域
VBS广泛应用于系统维护、 网络管理、办公自动化等 领域。
VBS与VB的关系
VBS是VBScript的简称, 是VB的一种方言,但只用 于脚本编程。
第二部分:VBS语法基础
1
声明变量
ቤተ መጻሕፍቲ ባይዱ
使用Dim关键字声明变量,例如:
数据类型
2
Dim x。
VBS支持多种数据类型,如字符串、
整数、浮点数等。
3
运算符和表达式
VBS拥有丰富的运算符和表达式,用
控制语句
4
于数学计算和逻辑判断。
VBS提供了多种控制语句,包括条件
语句和循环语句。
5
过程和函数
通过定义过程和函数,可以使代码更 有组织性和可复用性。
VBS入门教程(初学者适用)

VBS入门教程(初学者适用)VBS教程(文本版)程序开始我们的练习。
什么?不知道是什!”“Hello就像多数计算机教程一样,我们从World执行这个程序的结么意思?就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序,Hello World!好了,我们开始吧。
果就是在计算机的屏幕上或者dos窗口中显示一行文字:”程序,在编辑窗口填写:打开你的“记事本msgbox Hello World!一栏中填写””一栏设为桌面,在“文件名“文件”菜单,单击“保存”,把保存在“然后用鼠标单击,kk.vbs”窗口,在桌面上寻找你刚刚保存的“单击“保存”就可以了。
然后最小化记事本kk.vbs,作者:临汾市外事旅游局[确定”,对话框消失了。
然后双击。
看到弹出的对话框了没有,单击“难看了点,不过确实是你编写的第一个脚本程序。
薛靖澜,转载请注明出处]你保存到其他的地方完全说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,自己保存的当然知道保存在没有问题,只要你知道你保存在什么地方就可以了,什么?是废话,文件名你可以随意填写,不一定那里了。
不,自己保存的文件自己找不到的人我见的多了去了。
不知什么?的文件命名规则就可以了,只要符合Windows但是扩展名必须是vbs,非要写kk,脚本文件命名时必须是:后的那部分,简单说,就是vbs道什么是扩展名?就是文件名中“.”xxx你随意。
xxx.vbs,其中说明之二:在记事本编辑窗口中写的这行是什么意思?内建的函数,每一个函数都可以完成一定的功能,你只需要按照语法要求,在VBSMsgbox是当然函数执行的结果我们这部分内容我们称为参数,函数的相应部分填写相应的内容就可以了,你不用了解函数是怎可以有参数也可以没有。
称为返回值,一个函数可以有返回值也可以没有,么运作的,只要了解这个函数能干什么就行了。
对话框的标题Msgbox语法:獭执硯?对话框内容, ,你不妨用记事本打开刚才的文件在编辑窗口中输入:獭执硯尠效汬?潗汲Ⅴ系统提示执行一下,看看效果和位置。
VBS 基础知识教程

dim a
第二种, 是我们自己定义的常量,这种量也使用代号, 它们也被赋值, 但和变量的不同点在于, 他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误. 定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字, 不能作为变量名或常量名使用)
格式是:const 常量名=常量值.
a3="Hello"; a3="Hello"
嗯……扯远了……
变量有什么用呢? 哇, 那用处可大了. 最简单, 你并不能确定程序运行时变量的值, 比如前一节课我们编的输入姓名的程序, 你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗? 就是你输入的内容), 所以你就没有办法应对各种情况, 但我们用name这个"盒子"把用户的名字装起来, 到用的时候我们只要知道name这个盒子的名字就行了, 系统会自己打开它并把里面的内容拿出来用. 再举个例子, 我们编写一个程序计算一个矩形的面积, 比如这个程序要发给小学生使用:
Msgbox函数是用来输出的函数, 在VBS中没有专门的输出函数(BASIC中的print,C中的printf), 所以我们只能用对话框来观察输出结果, Msgbox的必要参数只有一个, 就是要输出的内容, 在这种情况下, 我们不需要理会msgbox的返回值. 关于Msgbox和Inputbox我们以后还会在讨论, 今天只是热热身, 到此为止.
OK, 我们先来写一个VBs cript程序热热身.
REM 输入并回显你的名字
'使用InputBox和Msgbox函数
(上面可以不必写入源代码中)
Dim name,msg
vbs最简单教材!

VBScript最简教材——By XiangTianYu第一节程序的基本结构及输出函数Rem 1编写你第一个程序Rem 2编写你第一个程序Dim Name <等价于> Msgbox “Hello,world!”Name = “Hello,world!”Msgbox Name把上面的代码复制一个记事本中,并重命名为Hello.Vbs(好吧其实hello这个文件名没有什么用途,重在的是改后缀名为vbs!【如果你电脑没有显示后缀名,别急!请点击工具——文件夹选项——查看——看到那个高级选项没?那就找一下“隐藏已知文件后缀名”把那个勾去掉——应用,确定ok!】格式如下:*.vbs)打开之后会弹出一个显示Hello,world!的窗口,没错这就是你第一次编写的脚本程序!是不是很激动!但是我们输入上去的你可能发现了几个你不认识的字符:Rem、Dim、Msgbox这些具有特殊功能的字符我们称之为函数,那你可能好奇道,这些函数有什么用了?Rem:解释这段代码的作用!以Rem开头的代码是在程序中是不运行的!它的用途是说明你的程序是干什么的?当然这段代码是可以去除的(因为它是不运行的嘛),估计你会说到那就删掉呗!反正占内存……切忌:不要去掉Rem,因为也许不久的将来你会纠结于这段代码用途……Dim:声明变量作用哦!什么是变量了?就这么比喻吧!变量就像一个个小房子,这个小房子可以住“人”,而这“人”可以是各式各样的东西:数字,文字啊!对象(以后再讲)啊!总之是什么都能装……也许你会问道为什么要声明啊?声明的作用有点像申请房子一样!一小小的地皮上需要多少人住啊?为了合理利用我们需要知道多少人要住,从而建造多少房子。
当然如果你不申请的话自然会有资源的浪费……同样声明也是同样的作用:我们在程序中定义的变量,在计算机内存中都要为其开辟一定数量的存储单元,为了不造成资源的不必要浪费,所以要声明……当然vbs是可以不用声明的(因为vbs会自动分配的,但是会造成资源的浪费)!所以这段代码也可以删除滴!不过声明变量是一个程序员基本节操……Msgbox:输出你想要表达字符……这个小小的函数一被运行就会桌面上弹出一个小小的窗口,如图看到了吗?是不是很酷!它会把Msgbox后面的变量、字符串(什么是字串符了?呵呵!就是“”给括起来的字符啦)给显示出来!具体格式如下…… Msgbox(“内容”,,“标题”){尽量不用括号会造成错误的,只有参数的时候才用……呵呵,放心以后会讲的!}说到这里是不是你对你第一个编写的程序有所了解?还是不懂?没事!我们接的讲……Rem1编写你第一个程序‘首先说明一下这里的“‘”是vbs中表示注解的作用,与Rem 函数一样,“ ’”后面的是不运行解释的!Dim Name ’声明Name这个变量Name = “Hello,world!”‘ 并让Name这个变量住进了“Hello,world!”这个字符串,等于的作用相当于把等式的右边放进左边的变量中Msgbox Name ‘ 最后用Msgbox来表示Name变量中“人”的“Hello,world!”字串符给“请”出来……上面的是第一段代码的解释……Rem 2编写你第一个程序Msgbox “Hello,world!”‘Msgbox函数直接就将它后面的“Hello,world!”这个字串符显示出来!通过上面两个代码对比,你会发现第二个程序比第一个程序短好多啊!那是因为第二个程序是直接就把用“Hello,world!”这个字串符Msgbox显示出来了……所以我们就可以知道对于程序的精简是很有必要的!!总结以上学习我们可以大致可以归类出vbs程序的基本结构Rem 说明程序的用途Dim 声明变量,如果是多变量请用“,”逗号分隔开变量= ”字串符“或“ 数字”或“对象”这里的“=”是斌值的作用哦!是把等式的右边的东东放到左边的变量中,那这个变量就有了右边的东东,需要的时候再把变量拿出来用就可以了!Msgbox 表现函数,它就把我们需要的数据给表达出来啦!随便再说一句,任何程序(当然,你马上学到的循环语句就会不一样楼!这只是说明一下)它运行方向是自上到下的!第一节程序中的“&”“+”换行符运用,输出函数上一节我们让计算器会说话了,但是计算器是说我们给它编好的话……重新让它说其他话又得重新编程好麻烦啊………………能不能让我们叫它说什么就说什么了?今天我们来讲输出函数inputbox!Rem让它说你想要让说的话Dim word … 声明Word这个变量Word = inputbox(“请说你想要说的话!”,”标题”)…inputbox函数被运行时会弹出一个窗口请你输入,又在你输入好并按下Enter后,它会将你输入好的字符住进“word”这个变量Msgbox Word‟哈哈,显示你输入的字符Inputbox函数:如同上一节我们学过的Msgbox函数一样!被运行解释时会在窗口弹出一个窗口请你输入,又在你输入好并按下Enter后,它会将你输入好的字符斌值给变量!Inputbox函数运行图:Msgbox函数运行图:看到了吧!这就是Inputbox函数与Msgbox函数运行时的对话框……他们的使用方法如下Inputbox函数变量= Inputbox(“内容”,“标题”,“默认值”,窗口位置X轴,窗口位置Y轴)Msgbox函数Msgbox“内容”,参数,“标题”还是没懂到?没关系,我们来练练!先是Msgbox函数吧!Rem 显示不同的提示图标Msgbox “本图片不存在!”,16,”系统提示”Msgbox “本图片不存在!”,32,”系统提示”Msgbox “本图片不存在!”,48,”系统提示”Msgbox “本图片不存在!”,64 ,”系统提示”效果如图:呵呵是不是很好玩?你可能惊讶于:为什么只是更改了参数就有如此之大的变化了?为了我们要了解这个问题,我们首先介绍一下什么是参数?参数其实是在函数中赋予特殊功能是数字或字符。
VBScript基础教程

VBScript(Microsoft Visual Basic Script Editon).,微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. 我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了.VBS的基础教程第一篇(共六篇)我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad),我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS开发, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因为这些工具可以提供 "语法高亮"等功能, 更加方便开发, 用哪一个随你喜好, 我比较喜欢Edit Plus,ScriptCryptor也不错OK, 我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数'(上面及本行可以不必写入源代码中,下面才是运行的代码)Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg)Msgbox(name)把上面的程序清单输入到记事本里面, 然后保存为以.vbs为扩展名的文件(如果在文件名上没有“.***”,就打开控制面板-文件夹选项-查看-取消隐藏已知文件类型的扩展名).然后双击, 观察运行结果.注意:为了使你学得更好,推荐自己输入程序清单, 尽量不要复制->粘贴我来解释一下这个程序, 第一行和第二行的开头分别是"REM"语句和" ' ", 这两个东西的作用是相同的, 表示之后的文字是注释, 就是说符号后的什么也不干,只是用来说明这段程序的功能, 版权信息等等. 注释行是程序最重要的部分之一, 尽管它不是必需的, 但对于其他人阅读源代码, 以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰, 简洁的注释.Dim用来声明一个变量, 在VBS中, 变量类型并不是那么重要, 就是说VBS会帮你自动识别变量类型, 而且变量在使用前不一定要先声明, 程序会动态分配变量空间. 在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"), 也不用考虑是不是字符串(一串字符, 比如:"Hello World"), VBS会自动帮你搞定. 所以第三行语句可以删除, 效果不会变, 但我强烈反对这么做, 一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字, 但不能使用vbs已经定义的字, 比如dim, 也不能是纯数字.下一行被称之为"赋值", "="是赋值符号, 并不是数学中的等于号, 尽管看起来一样.这是正统的理解, 你要理解成等于也没有什么不可. 赋值号的左边是一个变量, 右边是要赋给变量的值, 经过赋值以后, msg这个变量在程序中等同于"请输入你的名字:"这个字符串,但当msg被再次赋值的时候, 原值就会消失. 不光字符串, 其他任何变量都这样被赋值, 例如: a=2, b=12.222等等.再往下,Inputbox和Msgbox是VBS内建的函数, 一个函数就相当于一个"黑箱", 有输入(参数)和输出(返回)值, 你可以不用了解函数是怎么运作的, 只要了解这个函数能干什么就行了, 我们也可以定义自己的函数, 不过那要等到以后再讲. 现在我们只要了解, 一个函数可以有返回值也可以没有, 可以有参数也可以没有. 例如Inputbox就是有返回值的函数, 我们用赋值号左边的变量来"接"住InputBox的返回值--就是你输入的内容. 在inputbox右边的括号里是参数列表, 每个参数用","分隔开, 每个参数有不同的功效, 比如第一个参数会显示在提示里, 我们把msg这个变量作为第一个参数传给了Inputbox 函数, 而msg="请输入你的名字:", 所以我们在对话框的提示栏就会看到"请输入你的名字:" 第二个参数是对话框的标题, 我们用直接量(学名叫"常量", 这里是"字符串常量")传递给函数, 当然你也可以传递变量. Inputbox还有很多参数, 比如你在"名称"后面再加一个","然后输入随便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行, 看看结果. 你会发现用于输入的文本框有了默认的值, 这就是第三个参数的作用.Msgbox函数是用来输出的函数, 在VBS中没有专门的输出函数(BASIC 中的print,C中的printf), 所以我们只能用对话框来观察输出结果, Msgbox的必要参数只有一个, 就是要输出的内容, 在这种情况下, 我们不需要理会msgbox的返回值. 关于Msgbox和Inputbox我们以后还会在讨论, 今天只是热热身, 到此为止.要点:1) 注释(以REM或'开头)行在程序中不起作用, 但能让别人更容易读懂你的程序.2) 变量好像一个盒子, 或一个代号, 可以代表你想代表的东西. 变量赋值使用"="3) 以""包裹起来的字符称之为"字符串"4) 函数像一个"黑箱", 有参数和返回值, 用"="左边的变量可以接住返回值5) Inputbox函数弹出一个输入对话框,Msgbox则用于输出作业:1) 试验Inputbox的第三个参数2) 写一段程序输出你的年龄3) 写一段程序进行3次输入, 分别输入你和你父母的姓名(要求显示提示), 并分3次输出第二篇(共六篇)我真没想到, 第一次的作业竟然有人不会.看来要讲的非常非常细致才行, 嗯, 今天讲各种"量"和基本运算先说常量, 这个比较简单.什么是常量呢, 常量就是其值不可变化的量.常量分为两种:第一种, 自然常量. 这叫是因为它们本身就是常量, 你怎么更改21的值呢? 他永远都是21, 不可能变成46如果你在程序中使用"21=46", 这样的语句将会引发一个错误. 同样的, 字符串也是常量 (还记得字符串吗? 就是包裹在""之间的一串字符), "Hello World"就是一个例子, 如果你使用"Hello World"="Bye"这样的语句同样会引发一个错误. 你能举出自然常量的更多例子吗?第二种, 是我们自己定义的常量,这种量也使用代号, 它们也被赋值, 但和变量的不同点在于, 他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误. 定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字, 不能作为变量名或常量名使用)格式是:const 常量名=常量值.例如:const PI=3.1415926const NAME="记忆碎片"这样我们就定义了两个常量, PI和NAME, 一般说来, 常量名全部使用大写, 但也可以不用, 随你喜好. 将一些在程序中不需要改变的值定义为常量是个好习惯, 这样能防止不必要的意外. 另外, 使用自定义常量也可以减少你的工作量. 比如:msgbox("Hello World")msgbox("Hello World")msgbox("Hello World")msgbox("Hello World")msgbox("Hello World")这个程序输出五次Hello World, 如果你想要改变输出为Bye-Bye, 就必须修改全部程序, 当然你可以手动修改5次, 但如果你要输出1000次呢? 常量就可以替我们解决这个问题:const hw="Hello World"msgbox(hw)msgbox(hw)msgbox(hw)msgbox(hw)msgbox(hw)这样当你要修改输出的时候只要修改hw的值就行了.好了, 现在我们来看看编程的第一块重要"基石":变量. 解释变量最好的办法我觉得是"盒子", 一个变量好像一个盒子, 里面只能装一个东西, 当你要装进去别的东西的时候必须把原有的东西拿出来. 这个"盒子"是有名称的, 当你在程序中使用变量的时候, 系统会打开盒子取出里面的东西, 让这些东西参与处理, 而不是盒子. 有些语言是很依赖"盒子"里面装些什么东西, 这样才能找到合适的"盒子"(比如C语言), 但VBS给我提供的是能够自动伸缩的"魔术盒", 我们不用关心装进去的是什么东西, VBS会自动调整盒子的大小. 例如:Dim a1,a2,a3a1=14a2=12.23a3="Hello"而不用像C语言那样麻烦: 或者是VB的正规声明(VB可以声明也可以不用)那样:int a1; Dim a1 as integerfloat a2; Dim a2 as Doublechar* a3; Dim a3 as stringa1=14; a1=14a2=12.23; a2=12.23a3="Hello"; a3="Hello"嗯……扯远了……变量有什么用呢? 哇, 那用处可大了. 最简单, 你并不能确定程序运行时变量的值, 比如前一节课我们编的输入姓名的程序, 你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗? 就是你输入的内容), 所以你就没有办法应对各种情况, 但我们用name这个"盒子"把用户的名字装起来, 到用的时候我们只要知道name这个盒子的名字就行了, 系统会自己打开它并把里面的内容拿出来用. 再举个例子, 我们编写一个程序计算一个矩形的面积, 比如这个程序要发给小学生使用:a=15b=12s=a*bmsgbox(s)这样就可以求出长为15,宽为12的矩形的面积了, 是不是很简单? 当然, 这个程序也可以这样写:dim ss=15*12msgbox(s)这样看起来程序短了许多, 也节约内存, 但两种都不是鼓励的做法, 为什么? 请看下面.现在, 我们的程序要变得像点样子才行, 谁的程序写出来还要别人修改源代码才能用啊?所以, 我们要接受用户的输入, 还记得吗? InputBox函数.修改后程序如下:dim a,b,sa=inputbox("请输入矩形的长:")b=inputbox("请输入矩形的宽:")s=a*bmsgbox(s)ok, 这么一修改, 无论用户输入怎样的数据, 我们都能计算出矩形的面积了. 如果你用s=15*12能改吗? 当然不行.我想你已经发现了, vbs中的数学计算和真正的算术没有什么不同, +,-,*,/,(),[],{}都是一样的用法, 比如:dim ansans=12+32/4+[(23-10)*2]msgbox(ans)四则运算的法则在编程中同样生效, 你可以在编程中重新获得小学时候的乐趣(你恨数学?那就别学电脑了).在编程中有一个有趣的运算符是"mod", 这个运算符叫做"取余运算符", 就是取得一次除法的余数, 例如dim aa=16 mod 5你知道a等于几吗? Bingo! 没错, 就是1. 因为16 / 5 =3....1, 所以mod计算的结果就是1.还有一个运算符是"^"(就是键盘"6"上面的小箭头), 他表示"乘幂"(或者是"方") 比如:a=2b=a^2c=a^3msgbox(b)msgbox(c)则b=a*a=4, c=a*a*a=8好了,我们一次不要讲太多, 这次就讲到这里, 现在总结一下.要点:1) 常量分为自然常量和自定义常量, 常量的值不可修改2) 变量就像盒子, 我们不在乎盒子里装的是什么, 但一定要知道盒子的名字3) 四则运算在编程中没有任何不同4) MOD是取余运算作业:1) 编一个程序, 计算圆形的面积, 半径由用户给出 (使用Inputbox) PI取值3.141592) 编一个程序取得20 / 3 的余数第三篇(共六篇)首先, 我来解决一下上次课程的几个疑问第一, 那个余数问题, 16 / 5 = 3……1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思.第二, 请看一下程序清单:(1)Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=a*2+b*2Msgbox(c)这个输入1、2时是6(2)Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=(a+b)*2Msgbox(c)这个输入1、2时是24为什么会不一样呢? 在数学上c=(a+b)*2 和 c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" ,have you understood? 你还记得InoutBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现, 如果这个字符串的内容是一个数且对他进行数学运算, 则把字符串强制转换成数参与运算, 如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果(12)是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24.怎么修改这个程序呢? 我们需要用到另一个内建的函数:int, int函数的功能是将输入值转化成整数值, 我们这样修改:c=(int(a)+int(b))*2这个意思就是把a作为参数传递给int函数, int函数就会返回那个整数(你的输入值), 然后让返回值参与运算, 这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c) 'c是你自己的变量另外,还有一个函数:CDbl。
vbs代码教程

vbs代码教程VBScript是一种基于VB(Visual Basic)的脚本语言,可以用于Windows操作系统上的自动化任务和脚本编写。
本教程将带你了解VBScript的基础知识以及如何编写简单的脚本。
1. 输出文本:使用VBScript,你可以使用`MsgBox`函数在屏幕上显示文本。
例如,在脚本中添加以下代码:```MsgBox "Hello World!"```2. 变量:在VBScript中,你可以使用变量来存储和操作数据。
变量可以是字符、数字、布尔值等。
例如,以下代码创建一个变量,并将其打印到屏幕上:```Dim namename = "John"MsgBox name```3. 运算符:VBScript支持各种数学和逻辑运算符,用于进行计算和比较。
例如,下面的代码演示了如何使用运算符进行加法和比较操作:```Dim num1, num2, sumnum1 = 10num2 = 5sum = num1 + num2MsgBox sumDim resultresult = (num1 > num2)MsgBox result```4. 条件语句:条件语句允许你根据条件的不同来执行不同的代码块。
VBScript中最常用的条件语句是`If...Then...Else`。
例如,以下代码根据条件的不同来显示不同的消息:```Dim numnum = 10If num > 10 ThenMsgBox "Greater than 10"ElseIf num < 10 ThenMsgBox "Less than 10"ElseMsgBox "Equal to 10"End If```5. 循环语句:循环语句允许你多次执行相同或类似的代码块。
VBScript中有几种类型的循环语句,包括`For...Next`循环和`Do...Loop`循环。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VBS教程-wscript对象一、wscript对象描述:提供对Windows 脚本宿主对象模型根对象的访问。
详述:WScript 对象是Windows 脚本宿主对象模型层次结构的根对象。
它可在任何脚本文件中使用,不需要特定的声明。
WScript 对象提供对以下信息的访问命令行参数,脚本文件的名称,宿主文件名,宿主版本信息。
WScript 对象可用来创建对象,连接对象,与对象断开连接,同步事件,以编程方式停止脚本的执行,将信息输出到默认输出设备(Windows 对话框或命令控制台)。
WScript 对象也可用来设置脚本运行的模式(交互模式或批处理模式)。
就像刚才我们说的一样,对象通过两种其自有的特性想我们提供工具,这两种特性分别是“属性”和“方法”。
二、属性1、Arguments属性描述:用于返回Arguments 对象(这个对象我们以后会学,现在只需要了解就行)。
语法:object.Arguments参数:object ,WScript 对象例子:显示本vbs文件运行的参数Set Arg=WScript.ArgumentsFor i=0 to Arg.Count-1msgbox Arg(i)Next将上面这些代码保存为vbs文件,然后将一个或者数个任意的文件拖放到这个vbs文件上面上,那么他会逐个显示你拖放的文件。
(这仅仅给出了一个实例,用到了Arguments对象,其的具体用法我们以后再了解)2、FullName 属性描述:返回主机可执行文件(CScript.exe 或WScript.exe)的完全限定路径。
语法:object.FullName参数:object ,WScript 对象例子:显示本机wscript的路径msgbox wscript.fullname在默认的情况下会显示”C:\WINDOWS\system32\wscript.exe“3、Interactive 属性描述:设置或确定脚本模式。
语法:object.Interactive参数:object ,WScript 对象说明:Interactive 属性返回一个布尔值。
有批处理和交互两种模式。
在交互模式(默认模式)下,该脚本为用户提供交互功能。
启用对Windows 脚本宿主的输入和输出。
该脚本可以将信息显示在对话框中并等待用户提供反馈。
在批处理模式下,不支持这种类型的用户交互,所有对WSH 的输入和输出被禁用。
还可以使用Windows 脚本宿主命令行开关//I(对于交互式)和//B(对于批处理模式)来设置脚本模式。
例子:显示本机的脚本模式msgbox WScript.Interactive4、Name 属性描述:返回WScript 对象(主机可执行文件)的名称。
语法:参数:object ,WScript 对象例子:msgbox 5、Path 属性描述:返回包含主机可执行文件(CScript.exe 或WScript.exe)的路径名称语法:object.Path参数:object ,WScript 对象例子:msgbox WScript.Path如果你的wscript.exe是在”C:\WINDOWS\system32\wscript.exe“那么本属性会显示”C:\WINDOWS\system32“6、ScriptFullName 属性描述:返回当前运行脚本的完整路径。
语法:object.ScriptFullName参数:object ,WScript 对象例子:显示本vbs的完整路径msgbox WScript.ScriptFullName神奇吧,这个vbs竟然知道他自己的名字。
7、ScriptName 属性描述:返回当前运行脚本的文件名。
语法:object.ScriptName参数:object ,WScript 对象说明:刚才我们知道了用ScriptFullName可以获取vbs文件自身的完整路径,加入你只想要这个文件的名字改怎么办?看例子。
例子:显示本VBS文件的名字msgbox WScript.ScriptName怎么样?看到了吗?8、Version 属性描述:返回Windows 脚本宿主的版本。
语法:object.Version参数:object ,WScript 对象例子:显示本机脚本宿主版本msgbox WScript.version三、方法1、CreateObject方法描述:创建一个对象语法:CreateObject(appname.objecttype,[servername])解释:appname 必需的,Variant(字符串)。
提供该对象的应用程序名。
objecttype 必需的;Variant(字符串)。
待创建对象的类型或类。
servername 可选的;Variant (String). 要在其上创建对象的网络服务器名称。
说明:要创建ActiveX 对象,只需将CreateObject 返回的对象赋给一个对象变量:Set ExcelSheet = CreateObject("Excel.Sheet")'的引用。
每个支持自动化的应用程序都至少提供一种对象类型。
例如,一个字处理应用程序可能会提供Application 对象,Document 对象,以及Toolbar 对象。
要创建ActiveX 对象,只需将CreateObject 返回的对象赋给一个对象变量:例子:Dim ExcelSheet As Object'声明一个对象变量来存放该对象Set ExcelSheet = CreateObject("Excel.Sheet")ExcelSheet.Application.Visible = True '设置Application 对象使Excel 可见ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"'在表格的第一个单元中写些文本ExcelSheet.SaveAs "C:\ TEST.xls"'将该表格保存到C:\test.xls 目录ExcelSheet.Application.Quit'使用应用程序对象的Quit 方法关闭Excel。
Set ExcelSheet = Nothing'释放该对象变量上述代码将启动该应用程序创建该对象,在本例中就是创建一个Microsoft Excel 电子数据表。
对象创建后,就可以在代码中使用自定义的对象变量来引用该对象。
在下面的示例中,可以使用对象变量ExcelSheet 来访问新建对象的属性和方法,以及访问Microsoft Excel 的其它对象,包括应用程序对象和单元格集合。
2、GetObject方法描述:从文件中检索一个Automation 对象,或检索strProgID 参数所指定的对象语法:object.GetObject(strPathname [,strProgID], [strPrefix])参数:object必选项。
WScript 对象。
strPathname必选项。
包含要获取的对象的完整路径和名称。
strProgID可选项。
表示对象的程序标识符(ProgID)的字符串。
strPrefix可选项。
如果指定了参数strPrefix,Windows 脚本宿主将在创建对象之后把对象的输出接口与脚本文件连接起来。
在对象中触发事件时,Windows 脚本宿主将调用一个子例程,其名称包括strPrefix 和事件的名称。
例如,如果strPrefix 为"MYOBJ_",对象产生的事件为"OnBegin,",那么Windows 脚本宿主将调用脚本中的"MYOBJ_OnBegin" 子例程。
说明:如果当前存在对象的实例或者希望使用已经被装载的文件创建对象,可使用GetObject 方法。
如果当前不存在实例,而且不希望从已经装载的文件中启动对象,请使用CreateObject 方法。
如果一个对象将自己注册为单实例对象(例如,Microsoft Word 7.0 中的Word.Basic 对象),那么无论执行CreateObject 多少次也只能创建对象的一个实例。
此外,对于单实例的对象,如果用零长度的字符串语法("")调用,GetObject 总是返回同样的实例,而且如果省略路径参数将导致错误。
使用GetObject 不能获得对Visual Basic 4.0 以及以前版本创建的Microsoft Visual Basic(R)类的引用。
GetObject 适用于所有的COM 类,不受创建对象所用语言的限制。
示例在执行下列代码时,与指定的strPathname 相关联的应用程序被启动,指定文件中的对象被激活。
如果strPathname 是一个零长度的字符串(""),GetObject 将返回指定类型的新对象实例。
如果strPathname 参数完全被省略,GetObject 将返回指定类型的当前活动对象。
如果不存在指定类型的对象,将发生错误。
Dim MyObject As ObjectSet MyObject = GetObject("C:\CAD\SCHEMA.CAD")MyApp = MyObject.Application某些应用程序允许激活一个文件的某些部分。
如果要这样做,需要在文件名后添加一个惊叹号(!),然后跟一个字符串,标识出文件中希望被激活的部分。
关于如何创建该字符串的信息,请参阅创建对象的应用程序的有关文档。
例如,在一个绘图应用程序中,文件中存储的一幅图可能包含多层。
可以使用下面的代码激活绘图文件中称为schema.cad 的一层:Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")如果不指定对象的类,COM 将根据所提供的文件名来确定要启动的应用程序和要激活的对象。
但是,某些文件可能支持多个对象类。
例如,一幅图纸可能支持三种不同类型的对象:一个应用程序对象,一个绘图对象,以及一个工具栏对象,它们都是同一个文件的组成部分。
在下例中,FIGMENT 是一个绘图应用程序的名称,DRAWING 是它支持的对象类型之一。
Dim MyObject As ObjectSet MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")3、Quit方法描述:退出执行,返回指定的错误代码。