7.21(QTP中一些对象的使用)

PathFinder对象——Locate方法

在QTP中“TOOLS/Options/Folders”中，点击“+”按钮，添加QTP用于搜索文件的目录（可以是绝对路径，也可以是相对路径或是QC项目的路径）。（一定要这里指定相应的文件夹，否则不会弹出路径对话框）

 

Dim x
x=pathFinder.Locate("User.db")
msgBOX x                                       '弹出该文件路径的对话框。

 

systemUtil对象

 

——BlockInput和UnblockInput方法

 

systemUtil.BlockInput  '屏蔽鼠标和键盘输入
Browser("时尚,潮流,名品服饰(("时尚,潮流,名品服饰(
Browser("时尚,潮流,名品服饰(("时尚,潮流,名品服饰( "onmouseover"
Browser("时尚,潮流,名品服饰(("时尚,潮流,名品服饰(
Browser("时尚,潮流,名品服饰(("时尚,潮流,名品服饰").Image("立领A型风衣").Click
Browser("时尚,潮流,名品服饰(
systemUtil.UnblockInput '解除鼠标与键盘输入

 

RUN方法

 

systemUtil.Run "calc"  '打开Windows计算器

 

systemUtil.Run "c:\111.txt","","","",3  '使用Windows文本编辑器打开111.txt这个文本文件，最后的参数3表示以最大化形式展现。2表示以最小化形式展现。