交换机设置-ami bios
![vbscript循环](/uploads/image/0698.jpg)
2023年4月4日发(作者:蓝牙驱动程序)
很好的VBS教程
进阶教程
就像多数计算机教程一样,我们从“HelloWorld!”程序开始我
们的练习。什么?不知道是什么意思?就是说大部分的计算机程序设
计教程开篇入门都是编写一个小程序,
执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示
一行文字:HelloWorld!好了,我们开始吧。打开你的“记事本”
程序,在编辑窗口填写:
msgbox"HelloWorld!"
然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设
为桌面,在“文件名”一栏中填写,单击“保存”就可以了。
然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的,
然后双击。看到弹出的对话框了没有,单击“确定”,对话框消失了。
[作者:临汾市外事旅游局薛靖澜,转载请注明出处]难看了点,不过
确实是你编写的第一个脚本程序。
说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,
你保存到其他的地方完全没有问题,只要你知道你保存在什么地方
就可以了,什么?是废话,自己保存的当然知道保存在那里了。不,
自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意
填写,不一定非要写kk,只要符合Windows的文件命名规则就可
以了,但是扩展名必须是vbs,什么?不知道什么是扩展名?就是文
件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是:
,其中xxx你随意。
说明之二:在记事本编辑窗口中写的这行是什么意思?Msgbox是
VBS内建的函数,每一个函数都可以完成一定的功能,你只需要按
照语法要求,在函数的相应部分填写相应的内容就可以了,这部分
内容我们称为参数,当然函数执行的结果我们称为返回值,一个函
数可以有返回值也可以没有,可以有参数也可以没有。你不用了解
函数是怎么运作的,只要了解这个函数能干什么就行了。
Msgbox语法:msgbox"对话框内容",,"对话框的标题"
你不妨用记事本打开刚才的文件在编辑窗口中输入:
msgbox"HelloWorld!",,"系统提示"
执行一下,看看效果和位置。说明之三:如果执行失败,看看你的
标点符号,所有的标点符号必须是在英文状态下输入的。
[作者:临汾市外事旅游局薛靖澜,转载请注明出处]当然,这个脚
本实在是太简单了,甚至连最简单的交互都没有,所以你可以把脚本
这样修改一下:
Dimname,name=Inputbox("请输入你的名字:","名称")
Msgboxname,,"您的名字是"
保存执行一下,看到弹出的对话框了么?填入你的名字,点确定,看
到结果了吗?
说明之一:第一句是定义变量,dim是定义变量的语句其
格式为:dim变量1,变量2„„,
Vbs只有一种变量类型,所以不用声明变量类型。系统会自动分辨变
量类型。
说明之二:inputbox是VBS内建的函数,可以接受输入的内容,其
语法格式为:Inputbox("对话框内容","对话框标题")
第二句的意思是接受用户的输入,并把输入结果传递给变量name。
好了,到此脚本基本的输入输出函数都有了,已经可以完成一些比较
简单的功能了,你可以编写一个简单的脚本,然后拷贝的“程序”—>
“启动”中,然后重新启动计算机看看结果。
◎Vbs脚本编程简明教程之三—Vbs的基本语法(牢记)VBScript
基础知识一、变量
1、所有单引号后面的内容都被解释为注释。
2、在VBScript中,变量的命名规则遵循标准的命名规则,需要注
意的是:在VBScript中对变量、方法、函数和对象的引用是不区
分大小写的。在申明变量时,要显式地申明一个变量,需要使用关
键字DIm来告诉VBScript你要创建一个变量,并将变量名称跟在
其后。申明多个同类型变量,可以用逗号分隔。注意:VBScript中
不允许在申明变量的时候同时给变量赋值。但是允许在一行代码内
同时对两个变量进行赋值,中间用冒号分隔。
3、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。
4、VBScript在定义时只有一种变量类型,在实际使用中需要使用类
型转换函数来将变量转换成相应的变量类型。Cbool函数将变量转换
成布尔值;Cbyte函数将变量转换为0到255之间的整数。Ccur函
数、Cdbl函数和Csng函数将变量转换为浮点数值,前者只精确到
小数点后四位,后两者要更加精确,数值的范围也要大的多。Cdate
函数将变量转换为日期值。Cint函数和Clng函数将变量转换为整
数,后者的范围比前者要大的多。Cstr函数将变量转换为字符串。
二、数组数组的定义与变量非常类似,只需要在变量后描述这个数组
的个数和维数。需要注意的是:数组的下标总是从0开始,而以
数组定义中数值减一结束。也就是说你以要定义一个有十个数据的
数组,将这样书写代码:dImarray(9),同样,当你要访问第五个元
素时,实际的代码是array(4)。当然,你可以通过不指定数组的个
数和维数来申明动态数组。等到数组的个数和维数固定后,使用关
键字redim来改变数组。注意,在改变数组的大小时,数组的数据
会被破坏,使用关键字preserve来保护数据。
例如:RedIm空格preserve空格array括号个数逗号维数括号
三、操作符在VBScript运算符中,加减乘除都是我们常用的符号,
乘方使用的是^,取模使用的Mod。在比较操作符中,等于、小
于、大于、小于等于、大于等于都与我们常用的符号是一致的,而
不等于是小于和大于连用。
逻辑运算符为:
和操作—>AND
非操作—>NOT
或操作—>OR;
你可以使用操作符+和操作符&来连接字符串,一般使用&操作
符;另外还有一个比较特殊的操作符Is用来比较对象,例如按钮对
象,如果对象是同一类型,结果就是真,如果对象不是同一类型,
结果就是假。
四、条件语句主要有
if„„then语句和selectcase语句两种形式在if„„then语句中,
其基本形式为:
If条件then处理条件的语句;„„Endif
基本形式只能对单个条件进行验证,如果有两个条件,则需要在基本
形式中添加单行语句else,如果还有更多的条件需要验证,则需要添
加语句Elseif条件then处理条件语句在selectcase语句中,
其基本形式为:Selectcase变量Case条件值处理条件语句并对上两
句进行重复最后一句应为caseelse处理语句当然不要忘记将条件结
束语句Endselect放在最后一行注意:在执行字符串比较时,需要
特别注意大小写,一般情况下,我们在比较前,使用lcase函数
将字符串转换成小写,使用ucase函数将字符串转换成大写大写。
五、循环控制语句循环控制语句有for„„next循环、for„„each循
环、do„„while循环、do„„until循环、while循环五种形式。在
使用循环控制语句前,[作者:临汾市外事旅游局薛靖澜,转载请注
明出处]首先要对循环条件进行判断,
如果循环次数是有固定次数的,那么使用For„„next循环,其结构
为:For计数器变量=开始计数值to最后计数值执行循环体Next
如果是需要对数组或对象集合中的每一个元素进行判断,则需要使
用for„„each循环,其结构为:Foreach循环计数变量in要查
看的对象或数组执行处理语句Next
注意:在上述两种循环中随时可以使用exitfor来退出循环
如果你希望在条件满足时执行一段代码则使用do„„while语句,
结构为:Dowhile条件执行循环体Loop
如果你希望在条件不满足时执行代码,则使用do„„until语句,结
构为:Dountil条件执行循环体Loop当然,在这两种循环语句中,
你可以使用exitdo来退出循环
最后一种循环语句是条件满足时一直执行循环,While条件执行循环
体Wend
六、使用过程常用的过程有两种,一种为函数,给调用者返回值,一
种为子程序,无返回值,还有一种叫事件的特殊子程序,用的比较少。
函数的基本定义方法为:
Function函数名称(参数列表)函数代码函数名称=某值‘用来返
回值endfunction子程序一些都类似,不过没有返回值
注意:尽管在定义子程序的时候,参数列表要加括号,但在调用子程
序的时候,参数列表不加括号,括号只在函数中使用。另外,子程
序不能在表达式中使用。而函数只能出现在赋值语句的右边,或者表
达式中,函数不能直接使用,如果必须直接使用函数,则必须使用
call语句调用,并取消返回值◎Vbs
脚本编程简明教程之四—如何利用Vbs运行外部程序?
Vbs只提供了编程的一个基本框架,用户可以使用Vbs来定义变
量、过程和函数,vbs也提供了一些内部函数和对象,但是Vbs没
有提供任何命令来访问Windows系统内部的部件,但是值得庆幸
的是,Vbs虽然不能自己完成这些任务,但是它提供了一条极为方便、
功能也相当强的命令——CreateObject,这条命令可以访问windows
系统内安装的所有com对象,并且可以调用这些部件中存放的命
令。
于是问题解决了,比如说,我手头有1000个小文本,我首先要对每
一个文本的语法进行查错和修改,然后按照预先定义好的规则对这
些文本进行排序,最后将这些文本合并成为一个文件。正常情况下,
我们需要把打开第一个小文本,然后把它复制到WORD中,然后
利用里面的除错功能进行除错和修改,然后再导入到EXCEL中进
行排序,将这个过程重复1000遍,然后再将所有得到的文本复制到
一个大文本中。实在是太枯燥、工作量太大了。有了Vbs和
CreateObject,问题得到解决,我只需要找到相应的模块,调用相应
的功能就可以了,作为脚本,把一个枯燥的过程重复1000次,本就
是它的拿手好戏。
好了,我们走入正题,从最简单的——只启动一个程序开始。WSH也
就是用来解析Vbs的宿主,本身包含了几个个常用对象:
1、stemObject—>提供一整套文件系统操作函数
2、nary—>用来返回存放键值对的字典对象
3、—>提供一套读取系统信息的函数,如读写注册表、
查找指定文件的路径、读取DOS环境变量,读取链接中的设置
4、k—>提供网络连接和远程打印机管理的函数。
(其中,所有Scripting对象都存放在文件中,所
有的Wscript对象都存放在文件中。)
现在我们需要的是第三个对象,好了,让我们先连接一下对象看看,
在记事本的编辑窗口中输入:
SetobjShell=CreateObject(“”)
“notepad”
同样,保存执行。那么看到了一个什么样的结果呢?在桌面上又打开
了一个记事本。
说明之一:Set是Vbs指令,凡是将一对象引用赋给变量,就需要
使用set关键字。那么什么是对象引用呢?凡是字符串、数值、布
尔值之外的变量都是对象引用。Objshell是变量名,可以随意修改。
说明之二:反是正确引用的对象,其本身内置有函数和变量,其
引用方法为在变量后加“.”,后紧跟其实现功能的函数就可以了。
的意思就是调用中的运行外部程序的函
数——run,notepad是记事本程序的文件名。当然你也可以改成
“calc”,这是计算器的文件名,winword是word的文件名,等等
吧,所有可执行文件的文件名都可以。但是需要注意的是,如果你
要执行的可执行文件存放的地方不是程序安装的常用路径,一般情
况下,需要提供合法的路径名,但是run在运行解析时,遇到空格
会停止,解决的方法是使用双引号,
例如:在我的机器上运行qq,代码为:
"""C:"""‘
注:三个引号好,我们再进一步,启动两个程序会如何呢?输入如
下代码:
SetobjShell=CreateObject(“”)
“notepad”
“calc”
执行会如何呢?两个程序基本上同时启动了。如果我们需要先启动
notepad再启动calc将如何呢?很简单在需要顺序执行的代码后
加,,True参数就可以了。好了输入代码:
SetobjShell=CreateObject(“”)
“notepad”,,true
“calc”
看看执行的结果怎么样吧!总结:
run函数有三个参数,
第一个参数是你要执行的程序的路径,
第二个程序是窗口的形式,0是在后台运行;1表示正常运行;2表
示激活程序并且显示为最小化;
3表示激活程序并且显ocx文件中。)
现在我们需要的是第三个对象,好了,让我们先连接一下对象看看,
一般情况下,需要提供合法描述和相关源代码压入错误堆栈。2、虽
然OnErrorResumeNext语句可以防止vbs脚本在发生错误时停止
运行,但是它并不能真正处理错误,要处理错误,你需要在脚本中
增加一些语句,用来检查错误条件并在错误发生时处理它。
vbscript提供了一个对象err对象,他有两个方法clear,raise,5个
属性:description,helpcontext,helpfile,number,sourceerr对象不
用引用实例,可以直接使用,例如:onerrorresumenexta=11b=0c=a/bif
<>&ption&
endif◎Vbs脚本编程简明教程之六—修改注册表Vbs中
修改注册表的语句主要有:1、读注册表的关键词和值:可以通过把
关键词的完整路径传递给wshshell对象的regread方法。例如:set
ws=object("")v=d("HKEY_LOCAL_
MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun
nwiz")2、写注册表使用wshshell对象的regwrite方
法。例子:
path="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurr
entVersionRun"set
ws=object("")t=te(path&"jj","hello")
这样就把
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVers
ionRunjj这个键值改成了hello.不过要注意:这个键值一定要预先
存在。[作者:临汾市外事旅游局薛靖澜,转载请注明出处]如果要
创建一个新的关键词,同样也是用这个方法。
path="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurr
entVersionrunsssa2000love"set
ws=object("")val=te(path,"nenboy")v
al=d(path)l删除关键字和值使用regdelete方
法,把完整的路径传递给regdelete就可以了例如val=(path)
注意,如果要删除关键词的值的话一定要在路径最后加上“”,如果
不加斜线,就会删除整个关键词。◎Vbs脚本编程简明教程之七—
FSO的常见对象和方法文件系统是所有操作系统最重要的部分之
一,脚本经常会需要对文件及文件夹进行访问和管理,在Vbs中
对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO),
这个对象特别复杂,是vbs进行文件操作的核心。此节内容应了如
指掌。FSO包含的常见对象有:Drive对象:包含储存设备的信息,
[作者:临汾市外事旅游局薛靖澜,转载请注明出处]包括硬盘、光
驱、ram盘、网络驱动器Drives集合:提供一个物理和逻辑驱动器
的列表File对象:检查和处理文件Files集合:提供一个文件夹中的
文件列表Folder对象:检查和处理文件夹Folders集合:提供文件夹
中子文件夹的列表Textstream对象:读写文本文件FSO的常见方法
BulidPath:把文件路径信息添加到现有的文件路径上CopyFile:复制
文件CopyFolder:复制文件夹CreateFolder:创建文件夹
CreateTextFile:创建文本并返回一个TextStream对象DeleteFile:删
除文件DeleteFolder:删除文件夹及其中所有内容DriveExits:确定驱
动器是否存在FileExits:确定一个文件是否存在FolderExists:确定
某文件夹是否存在GetAbsolutePathName:返回一个文件夹或文件的
绝对路径GetBaseName:返回一个文件或文件夹的基本路径
GetDrive:返回一个dreve对象GetDriveName:返回一个驱动器的
名字GetExtensionName:返回扩展名GetFile:返回一个file对象
GetFileName:返回文件夹中文件名称GetFolder:返回一个文件夹对
象GetParentFolderName:返回一个文件夹的父文件夹
GetSpecialFolder:返回指向一个特殊文件夹的对象指针GetTempName:
返回一个可以被createtextfile使用的随机产生的文件或文件夹的名
称MoveFile:移动文件MoveFolder:移动文件夹[作者:临汾市外事
旅游局薛靖澜,转载请注明出处]OpenTextFile:打开一个存在的文件
并返回一个TextStream对象◎Vbs脚本编程简明教程之八—FSO
中文件夹的基本操作1、使用fso由于fso不是wsh的一部分,所
以我们需要建立他的模型例如set
fs=object(“stemobject”)这样就建立了fso
的模型。如果要释放的话也很简单,setfs=nothing2、使用文件夹在
创建前,[作者:临汾市外事旅游局薛靖澜,转载请注明出处]我们一
般需要检查该文件夹是否存在例如:dimfs,s//定义fs、s两个变量
setfs=object(“stemobject”)//fs为FSO实
例if(exists(“c:temp”))then//判断c:temp文件夹是否存在
s=”isavailable”elses=”notexist”setfoldr=folder(“c:temp”)
//不存在则建立endif删除:set
fs=object(“stemobject”)folder(“
c:windows”)拷贝:set
fs=object(“stemobject”)lder
“c:data”“d:data”注意:如果c:data和d:data都存在,脚本会出
错,复制也就会停止,如果要强制覆盖,使用lder“c:data”
“d:data”,true移动:set
fs=object(“stemobject”)lder
“c:data”“d:data”我们可以使用统配符,来方便操作:例如,
lder:c:datate*”,“d:working”注意:在目的路径最后没有
使用“”也就是说我没有这样写:lderc:datate*”,
“d:working”这样写的话,如果d:working目录不存在,windows就
不会为我们自动创建这个目录。注意:上面我们所举的例子都是在利
用fso提供的方法,如果使用folder对象也完全是可以的:setfs=
object(“stemobject”)set
f=der(“c:data”)//删除文件夹c:data。如果有子目录,
也会被删除“d:working”,true//拷贝到d:
“d:temp”//移动到d:temp3、特殊文件夹一般指的就是系统文件夹:
windowssystem32,临时文件夹,windows文件夹,在前几篇的时
候,[作者:临汾市外事旅游局薛靖澜,转载请注明出处]我们提过一
下:例如setfs=object(“stemobject”)set
wshshell=object(“”)osdir=e
nvironmentstrings(“%systemroot%”)setf
=der(osdir)当然,还有简单的方法那就是使用
getspecialfolder()这个方法使用3种值:0表示windows文件夹,相
关常量是windowsfolder1系统文件夹,相关常量是systemfolder2
临时目录,相关常量temporaryfolder例如:set
fs=object(“stemobject”)set
wfolder=cialfolder(0)‘返回windows目录set
wfolder=cialfolder(1)‘返回system32set
wfolder=cialfolder(2)'返回临时目录◎Vbs脚本编程简明教程
之九—妙用SendKeys简化重复操作每次开机的时候,你想自动登
陆你的QQ或者网志吗?巧妙使用VBS中的SendKeys命令(这
个命令的作用就是模拟键盘操作,将一个或多个按键指令发送到指
定Windows窗口来控制应用程序运行),可以极大的方便我们的常
用操作。其使用格式为:ysstring其中:Object:为
WshShell对象,即脚本的第一行为:Set
WshShell=Object("")将Object替换为
WshShell“string”:表示要发送的按键指令字符串,需要放在英文
双引号中。它包含如下内容:[作者:临汾市外事旅游局薛靖澜,转
载请注明出处]1.基本键:一般来说,要发送的按键指令都可以直接
用该按键字符本身来表示,例如要发送字母“x”,使用
“ys"x"”即可。当然,也可直接发送多个按键指令,
只需要将按键字符按顺序排列在一起即可,例如,要发送按键“cfan”,
可以使用“ys"cfan"”。2.特殊功能键:对于需要与
Shift、Ctrl、Alt三个控制键组合的按键,SendKeys使用特殊字符
来表示:Shift——+;Ctrl——^;Alt——%如要发送的组合按
键是同时按下Ctrl+E,需要用“ys"^e"”表示,如
果要发送的组合按键是按住Ctrl键的同时按下E与C两个键,
这时应使用小括号把字母键括起来,书写格式为
“ys"^(ec)"”,这里要注意它与“ys
"^ec"”的区别,后者表示组合按键是同时按住Ctrl和E键,然后
松开Ctrl键,单独按下“C”字母键。由于“+”、“^”这些字符
用来表示特殊的控制按键了,如何表示这些按键呢?只要用大括号
括住这些字符即可。例如,要发送加号“+”,可使用
“ys"{+}"”。另外对于一些不会生成字符的控制功
能按键,也同样需要使用大括号括起来按键的名称,例如要发送
回车键,需要用“ys"{ENTER}"”表示,发送向下
的方向键用“ys"{DOWN}"”表示。如果需要发送
多个重复的单字母按键,不必重复输入该字母,SendKeys允许使用
简化格式进行描述,使用格式为“{按键数字}”。例如要发送10个
字母“x”,则输入“ys"{x10}"”即可。例一:
ys"^{ESC}u"[作者:临汾市外事旅游局薛靖澜,转
载请注明出处]代码的含义为:按下Ctrl+Esc组合键(相当于按Win
键)打开“开始”菜单,接着按U键打开“关机”菜单。例二:让
VBS脚本自动在记事本中输入一行文字“hello,welcometocfan”。
DimWshShellSetWshShell=Object("")
"notepad"
2000//本行的含义为是脚本暂停2秒,notepad一个
打开的时间,给有时时间太短可能导致后面的字符无法进入编辑
区ivate"无标题-记事本"//AppActivate为寻找可
执行程序的标题框,”无标题-记事本”内容你的自己打开看一下
ys"hello,welcometocfan"作业1:让脚本自动输入下
面两段小短句ThisisthemostwonderfuldayofmylifebecauseI'mhere
withyounow作业2:让脚本在输入短句后自动关闭记事本,并保存
文件名为“test”,注意关闭记事本可以直接使用组合按键Alt+F4
来实现例三:制作能自动定时存盘的记事本我们最常用的记事本没有
Word、WPS那样的自动定时存盘功能,其实利用VBS脚本再加上
SendKeys命令,就能弥补这个遗憾。打开记事本,输入以下内容(为
容易描述和分析,把代码分为四个部分):'第一部分:定义变量和
对象DimWshSh[作者:临汾市外事旅游局薛靖澜,转载请注明出
处]ell,AutoSaveTime,TXTFileNameAutoSaveTime=300000Set
WshShell=Object("")TXTFileName=InputB
ox("请输入你要创建的文件名(不能用中文和纯数字):")'第二部分:
打开并激活记事本"notepad"
ivate"无标题-记事本"'第三部分:用输入的文
件名存盘ys"^s"
ys"%s"utoSaveTime'第四部分:
自动定时存盘ivate
(TXTFileName)=ys"^s"
将其保存为记事本.vbs,以后要使用
记事本时,都通过双击这个脚本文件来打开。程序说明:这个脚本的
基本思路是定时向记事本发送Ctrl+S这个存盘组合键。第一部分:
定义了脚本中需要用到的变量和对象。“AutoSaveTime”变量用来
设置自动存盘间隔,单位为毫秒,这里设置为5分钟。
“TXTFileName”变量通过输入框取得你要创建的文本文件名称。
[作者:临汾市外事旅游局薛靖澜,转载请注明出处]第二部分:运行
记事本,对于Windows本身提供的程序,比如计算器等,可直接在
“”后输入程序名称,如"calc",对于非系统程序,则
可输入完全路径,但要注意使用8.3格式输入,比如
“"D:Progra~"”。第三部分:这里用SendKeys命令
执行了这样的操作流程(请注意每个操作之间延时命令的使用):在
记事本中按Ctrl+S组合键→弹出保存文件的窗口→输入文件名→
按Alt+S组合键进行保存(默认保存在“我的文档”目录)。第四
部分:定时存盘的关键,通过“While„„Wend”这个当条件为“真”
时循环命令,实现自动存盘代码“ys"^s"”和定时
代码“utoSaveTime”的重复执行。因为不能让这个
定时存盘循环一直执行,退出记事本后,必须自动退出脚本并结束
循环,所以设计了一个循环判断条件“ivate
TXTFileName=True”,当记事本运行中时,可以激活记事本窗口,
这个条件运行结果为“True”,定时存盘循环一直执行,退出记事本
后,脚本无法激活记事本窗口,就会跳出循环,执行“Wend”后面
的“”退出脚本。
例四:快速登陆QQ软件。假设QQ号码是:10001,密码是:123456,
隐身登陆:
setws=object("")
"C:Progra~",0
2000
ivate"QQ用户登录"
ys"7015247"
200
ys"{TAB}"
ys"*********"
200
ys"{ENTER}"
更多推荐
vbscript循环
发布评论