VBScript学习、VBScript教程、VBScript语法、VBScript实例、QTP_

在紧张的C++Test研究当中,不得以还得抽时间,学习VBScript语言编程。为了万恶的QTP啊,在学习过程中,将一些文档精练化了,基本把必须要记住的东西都记载在案了,现在是2010年09月21日,虽然人都说VBS一天就能学会,但是我不是那种天才,可能需要2-3天,哈哈,所以文档还未更新完,但是肯定在国庆佳节前更新完毕,好了,闲话到这,具体如下:

—————————————————————————————

本文档适合有一定编程基础能力的人,至少已经知道变量、函数、循环等词汇含义的人。

打开记事本输入以下内容后保存关闭,重命名为test1.vbs,并双击:
msgbox "Hello World!"

打开记事本输入以下内容后保存关闭,重命名为test2.vbs,并双击:
Dim name
name=Inputbox("请输入你的名字:","名称")
Msgbox name, , "您的名字是"

以上就是两个小例子程序

001:行首加一个单引号表示此行内容为注释:
'注释
002:对变量、方法、函数、对象的引用不区分大小写
003: Dim 申请多个变量时使用逗号分隔;
申请变量不允许赋值;
申请之后赋值
004: Cbool函数将变量转换成布尔值;
Cbyte函数将变量转换成0到255之间的整数;
Ccur函数、Cdbl函数、Csng函数将变量转换为浮点数值,前者只精确到小数点后四位;
Cdate函数将变量转换为日期值;
Cstr函数将变量转换为字符串
005: Dimarray(n)定义数组,引用序号从0开始;
如果要改变数组,使用:Redim preservearray(个数,维数),preserve是保护数据的
006: 乘方:^ ;取模:Mod ;
007: 逻辑运算符:和操作->AND非操作->NOT 或操作->OR
008:可使用+或&来连接字符串,一般使用&
009: Is用来比较对象,同一类型为真
010: 条件控制语句:
----------------------------
If 条件 Then
执行语句
End if

011: 条件控制语句:
----------------------------
If 条件1 Then
执行语句1
ElseIf 条件2 Then
执行语句2
……
Else 执行语句3
End if

012: 条件控制语句:
----------------------------
Select Case 变量
Case 条件值 处理条件语句
Case 条件值 处理条件语句
……
Case Else 处理语句
End Select

013: 循环控制语句:循环次数固定,使用ExitFor来退出循环
----------------------------
For 计数器变量 = 开始计数值 to 最后计数值
执行循环体
Next

014:循环控制语句:对数组或对象集合中的每一个元素进行判断,使用ExitFor来退出循环
----------------------------
For each 循环计数变量 in 要查看的对象或数组
执行处理语句
VBScript学习、VBScript教程、VBScript语法、VBScript实例、QTP_
Next

015:循环控制语句:条件满足时执行一段代码,使用ExitDo退出循环
----------------------------
Do while 条件
执行循环体
Loop

016:循环控制语句:条件不满足时执行一段代码,使用ExitDo退出循环
----------------------------
Do until 条件
执行循环体
Loop

017:循环控制语句:条件满足时一直执行循环
----------------------------
While 条件
执行循环体
Wend

018:过程:函数,给调用者返回值;调用时只有函数的参数列表加括号;只能出现在赋值语句的右边,或表达式中;函数如果直接使用,必须使用Call语句调用,并取消返回值
----------------------------
Function 函数名称(参数列表)
函数代码
函数名称 = 某值'用来返回值
End Function

019:过程:子程序,无返回值;定义时参数列表要加括号,调用时不加;
----------------------------
Function 函数名称(参数列表)
函数代码
End Function

020:WSH是用来解析Vbs的宿主,本身包含了几个常用对象:
1、 Scripting.FileSystemObject ->提供一整套文件系统操作函数
2、 Scripting.Dictionary ->用来返回存放键值对的字典对象
3、 Wscript.Shell ->提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取DOS环境变量,读取链接中的设置
4、 Wscript.NetWork ->提供网络连接和远程打印机管理的函数
(其中,所有Scripting对象都存放在SCRRUN.DLL文件中,所有的Wscript对象都存放在WSHOM.ocx文件中。)

例:打开一个记事本(Objshell是变量名,可以随意修改。notepad是记事本程序的文件名,也可以改成calc等)
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run "notepad"

1、 Set是用来将一对象引用赋给变量的指令。
2、正确引用的对象,本身内置有函数和变量,其引用方法就是在变量后加“.”,后紧跟其实现功能的函数
3、Objshell.run意思是调用Wscript.Shell中的运行外部程序的函数——run
4、像notepad这样所有的可执行的文件名都可以,但如果要执行的可执行文件存放位置不是常用路径,需要提供合法的路径名
5、run在运行解析时,遇到空格会停止,解决方法是使用双引号,
例:Objshell.Run """C:Program FilesTencentQQ2010QQ.exe"""'注:三个引号

然后尝试一次性打开两个程序,例:
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run "notepad"
ObjShell.Run "calc"

然后尝试打开一个成功后关闭,再打开第二个,例:
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run "notepad" ,,true
ObjShell.Run "calc"

总结:run函数有三参数,
第一个参数是要执行的程序路径,
第二个参数是窗口的形式,0是后台运行,1表示正常运行,2表示激活程序并且显示为最小化,3表示激活程序并且显示为最大化,共10个
第三个参数表示这个脚本等待还是继续执行,如果有true,脚本会等调用的程序退出后再向后执行
run作为函数,前面还有一个接受返回值的变量,一般来说如果返回为0,表示成功执行,如果不为0,则这个返回值就是错误代码,可以通过这个代码找出相应的错误

021: 在脚本的开头添加:On Error Resume Next;可以防止vbs脚本在发生错误时停止运行,会跳过发生错误的语句,紧接着执行跟在它后面的语句
022:vbscript提供了一个对象err对象,有两个方法:clear,raise,五个属性:description,helpcontext,helpfile,number,source;err对象不用引用实例,可以直接使用
例:
On Error Resume Next
a=11
b=0
c=a/b
If err.number<>0 then
Wscript.echo err.number & err.description& err.source
End if

023:读注册表,把关键词的完整路径传递给wshshell对象的regread方法,例:
Set ws = wscript.createobject("wscript.shell")
v =ws.regread("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunnwiz")
wscript.echo v

写注册表,使用wshshell对象的regwrite方法,
修改注册表,例:
path ="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun"
set ws = wscript.createobject("wscript.shell")
t = ws.regwrite(path & "jj","hello")
这样就把这个路径的jj键值改成了hello,不过要注意,这个键值一定要预先存在。

创建新的关键词,例:
path ="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunsssa2000love"
set ws = wscript.createobject("wscript.shell")
val = ws.regwrite(path,"nenboy")
val = ws.regread(path)
wscript.echo val

删除关键字和值,将完整路径传递给regdelete,例:
val = ws.regdel(path)
如果要删除关键词的值,一定要在路径最后加上“”,如果不加,就会删除整个关键词。

024:Vbs对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO),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对象

025:使用FSO,由于fso不是wsh的一部分,所以我们需要建立他的模型,例:
Set fs = wscript.createobject("scripting.filesystemobject")
释放:set fs = nothing

026: 使用文件夹:
创建,使用前先检查是否存在,例:
Dim fs,s '定义fs、s两个变量
Set fs = wscript.crertaobject("scripting.filesystemobject")'fs为FSO实例
if(fs.folderexists("c:temp")) then'判断c:temp文件夹是否存在
s = "is available"
else
s = "not exist"
Set folder = fs.createfolder("c:temp") '不存在则建立
end if

删除:
Set fs = wscript.caeateobject("scripting.filesystemobject")
fs.deletefolder("c:windows")

拷贝:
Set fs = wscript.createobject("scripting.filesystemobjext")
fs.copyfolder "c:data" "d:data"
注意:如果c:data和d:data都存在,脚本会出错,复制也就会停止,如果要强制覆盖,使用:
fs.copyfolder "c:data" "d:data",true

移动:
Set fs = wscript.createobject("scripting.filesystemobjext")
fs.movefolder "c:data" "d:data"

使用通配符,来方便操作,例:
fs.movefolder "c:datate*" , "d:working"
如果不想windows自动创建没有的目的目录,可以这么写,例:
fs.movefolder "c:datate*" , "d:working"
这样的话,d:working如果不存在,是不会被新建的

使用folder对象操作,例:
Set fs = wscript.createobject("scripting.filesystemobject")
Set f = fs.getfolder("c:data")
f.delete'删除文件夹c:data,如果有子目录,也会被删除
f.copy "d:working",true '拷贝到d:working
f.move "d:temp" '移动到d:temp

特殊文件夹,一般指windowssystem32,临时文件夹,windows文件夹等,例:
Set fs = wscript.createobject("scripting.filesystemobject")
Set wshshell = wscript.createobject("wscript.shell")
osdir = wshshell.expandenvironmentstrings("%systemroot%")
Set f = fs.getfolder(osdir)
wscript.echo f

当然也是简单的方法,那就是使用getspecialfolder(),这个方法使用3种值:
0 :表示windows文件夹,相关常量是windowsfolder
1 :系统文件夹,相关常量是systemfolder
2 :临时目录,相关常量temporaryfolder
例:
Set fs = wscript.createobject("scripting.filesystemobject")
Set wfolder = fs.getspecialfolder(0) '返回windows目录
Set wfolder = fs.getspecialfolder(1) '返回system32
Set wfolder = fs.getspecialfolder(2) '返回临时目录

027: SendKeys(模拟键盘操作),格式:
Object.SendKeys string'WshShell对象.SendKeys.要发送的按键指令字符串,需要放在英文双引号中

1. 基本键
发送字母: WshShell.SendKeys "x"
发送字符串: WshShell.SendKeys "abc"

2. 特殊功能键
Shift: +
Ctrl : ^
Alt : %
发送Ctrl + e : WshShell.SendKeys "^e"
发送Ctrl + e & c :WshShell.SendKeys "^(ec)"'按住Ctrl的同时按e和c
发送Ctrl + e + c :WshShell.SendKeys "^ec"'按抓Ctrl的同时按下e,松开,再按c
发送 + :WshShell.SendKeys "{+}"
发送回车键 :WshShell.SendKeys "{ENTER}"
发送向下方向键 :WshShell.SendKeys "{DOWN}"
发送10个字母“x”:WshShell.SendKeys "{x 10}"

例1,关机:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}uu"'Ctrl+Esc打开开始菜单,按U键打开关机菜单,按U键关机

例2,在记事本中输入一行文字:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 2000'脚本暂停2秒,防止还未打开notepad
WshShell.AppActivate "无标题 - 记事本"'寻找可执行程序的标题框
WshShell.SendKeys "Hello,World!"

小练习:用VBS脚本,打开记事本,输入:“Hello,World!“换行”Hopeyou have a niceday!”,然后关闭并保存到成Test.txt

练习答案:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 2000
WshShell.AppActivate "Untitled - Notepad"
WshShell.SendKeys "Hello,World!{ENTER}Hope you have a niceday!%{F4}{ENTER}Test.txt{ENTER}"

例3,制作一个能定时存盘的记事本:
'定义变量和对象:
Dim WshShell,AutoSaveTime,TXTFileName
AutoSaveTime = 300000
Set WshShell = WScript.CreateObject("WScript.Shell")
'打开并激活记事本:
WshShell.Run "notepad"'如果不是Windows本身提供的程序,则需完整路径,例:"D:Progra~1TencentQQ.exe"
WScript.Sleep 200
WshShell.AppActivate "Untitled - Notepad"
'用输入的文件名存盘:
WshShell.SendKeys "^s"
WScript.Slepp 300
WshShell.SendKeys "TXTFileName"
WScript.Slepp 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime
'自动定时存盘
While WshShell.AppActivate (TXTFileName) = True'循环判断条件:是否有这个记事本窗口
WshShell.SendKeys "^s" '定时发送Ctrl + s
WScript.Sleep AutoSaveTime
Wend
WScript.Quit
将上面VBS脚本保存为:记事本.vbs,以后打开记事本都通过这个脚本打开,就可以有自动存盘的功能了。

例4,打开任务管理器:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"'Ctrl+Shift+Esc打开任务管理器

例5,自动登录百度博客:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "iexplore"
WScript.Sleep 2000
WshShell.AppActivate "百度一下,你就知道 - MicrosoftInternet Explorer"'双引号内的内容为实际游览器的标题
WshShell.SendKeys "%d"
WshShell.SendKeys "http:'passport.baidu.com/?login"
WshShell.SendKeys "{enter}"
WScript.Sleep 2000
'WshShell.SendKeys "mvp_xuan"'输入实际百度账号,因为我的IE设置了自动保存账号,所以这两行我注释了
'WshShell.SendKeys "{tab}"
WshShell.SendKeys "你的博客密码"'输入实际百度账号的密码
WshShell.SendKeys "{tab}"
WshShell.SendKeys " "'选中记住账号和密码,如果不需要,注释或删除此行
WshShell.SendKeys "{enter}"
WshShell.SendKeys "%d"
WshShell.SendKeys "http:'hi.baidu.com/mvp_xuan/home"'实际博客的首页
WshShell.SendKeys "{enter}"

028: VBS中SendKey键盘对应码表:
Shift +
Ctrl ^
Alt %
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER}or ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or INSERT {INSERT} or {INS}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}

029: FSO中文件的基本操作:

文件属性:在windows中,文件的属性一般用数字表示:0代表普通文件未设置任何属性;1代表只读文件;2代表隐藏文件;4代表系统文件;16代表文件夹或目录;32代表存档文件;1024代表链接或快捷方式;例:
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("d:index.txt")
MsgBox f.Attributes'Attributes函数的作用是显示文件属性,但是msgbox显示的结果往往是有管属性代表数字的和

创建文件:object.createtextfile方法,注意创建前一般需要检查文件是否存在,例:
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If fso.FileExists("c:Test.txt") then'如需要强制覆盖已存在文件,则在文件名后加true参数
MsgBox "文件已存在"
else
Set f = fso.CreateTextFile("c:Test.txt")
End If

复制、移动、删除文件:使用copyfile、movefile、deletefile,等方法,例:
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
fso.copyfile "c:Test.txt","d:1Test.txt",true'如上文所述,true代表强制覆盖
fso.movefile "c:Test.txt","d:" '移动文件
fso.deletefile "c:Test.txt" '删除文件

文件的读写:
1. 打开文件,使用opentextfile方法,例:
Set ts = fso.OpenTextFile("c:Test.txt",1,true)'第二个参数1为只读、2为写入、8为追加

2.读取文件,read(x)读x个字符;readline读一行;readall全部读取,例:
Set ffile = fso.OpenTextFile("c:Test.txt",1,true)
Value = ffile.read(20)
Line = ffile.readline
Contents = ffile.readall

3. 常见的指针变量
AtEndOfStream:当处于文件结尾时,这个属性返回true,一般用循环检测是否到达文件末尾,例:
Do Whileffile.AtEndOfStream<>true
ffile.read(10)
Loop

AtEndOfLine:如果已经到了行末尾,这个属性返回true

Column(当前字符位置的列号) &Line(文件当前行号):在打开一个文件后,行和列指针都被设置为1

4. 在文件中跳行:skip(x) 跳过x个字符 ;skipline跳过一行

5. 在文件中写入字符:可以用“2 -写入”和“8 -追加”的方式来写入,其方法:Write(x)写入x字符串 ;WriteLine(x) 写入x代表的一行;WriteBlankLines(n) 写入n个空行。
最后一定要使用Close方法关闭文件,读文件后一定要关闭,才能以写的方式打开。

030:利用COM对象使用windows提供的系统对话框
1. SAFRCFileDlg.FileSave对象,属性有:
FileName - 指定默认文件名
FileType - 指定文件扩展名
OpenFileSaveDlg - 显示文件保存框体方法

2. SAFRCFileDlg.FileOpen对象:
FileName -默认文件名属性
OpenFileOpenDlg - 显示打开文件框体方法

3. UserAccounts.CommonDialog对象:
Filter - 扩展名属性("vbs File|*.vbs|ALLFiles*.*");
FilterIndex — 指定
InitialDir — 指定默认的文件夹
FileName — 指定的文件名
Flags — 对话框的类型

ShowOpen方法,例:

保存文件:
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")'只提供一个用户选择的界面,本身没有保存文件的功能
Set objFSO = CreateObject("Scripting.FileSystemObject")'用来保存文件
objDialog.FileName = "test" '指定默认的文件类型
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg'在调用此方法时,最好是返回值保存到一变量中,用它可以判断用户按下的是确定还是取消
If intReturn Then
objFSO.CreateTextFile(objDialog.FileName &objdialog.filetype)
Else
WScript.Quit
End If

打开文件:
Set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
If intret then
MsgBox "文件打开成功!文件名为:" &objFile.FileName
Else
WScript.Quit
End If

比较复杂的打开文件对话框:
Set objDialog = CreateObject("UserAccounts.CommonDialog")'这句好像有点问题,正在研究
objDialog.Filter = "vbs File|*.vbs"
objDialog.InitialDir = "c:"
tfile = objDialog.ShowOpen
if tfile then
strLoadFile = objDialog.FileName
MsgBox strLoadFile
Else
WScript.Quit
End If

031:
032:
033:
034:
035:
036:
037:
038:
039:
040:

——————————————————————————————

Last updated:2010.09.25 06:12 PM

  

爱华网本文地址 » http://www.413yy.cn/a/25101014/204404.html

更多阅读

座右铭之关于学习、生活的座右铭

座右铭之关于学习、生活的座右铭宝剑锋从磨砺出,梅花香自苦寒来。书山有路勤为径,学海无涯苦作舟业精于勤疏于嬉,行成于思毁于随少壮不努力,老大徒伤悲。清晨不起早,误一天的事;幼年不勤学,误一生的事。黑发不知勤学早,白头方悔读书迟。人

第三节《学会学习、学会怎样学习炒股》

学会学习、学会怎样学习炒股 第三节班长De往期课程在线阅读目录第二部分【学习方法之科学】第三节2014/1/15今晚开始起,进入本期《学会学习、学会怎样炒股》的主题课程了,也就是第三部分:学习方法之科学在明确学习目的、真正懂得

弟子、入室弟子、关门弟子、再传弟子 入室弟子 关门弟子

所谓“入室弟子”、“关门弟子”、“再传弟子”是对某些弟子的特殊称呼。在戏班里,“弟子”是指行过拜师礼的徒弟。这类徒弟可以对传艺者称“师傅”或“先生”。在程派里如王吟秋,赵荣琛等。学过戏,但没有拜过师的只能称传艺者为老师,

声明:《VBScript学习、VBScript教程、VBScript语法、VBScript实例、QTP_》为网友别致的柔弱分享!如侵犯到您的合法权益请联系我们删除