QTP的一些小知识

上一篇 / 下一篇  2006-12-01 09:16:06 / 个人分类:QTP

51Testing软件测试网%X`#Q^K0}5e2\

1.GetCellData函数 

5T3m)f%Cy#br `051Testing软件测试网 B f*Gev?

  作用:获取单元格的值51Testing软件测试网-Z7i[9[p7nt

BdLJQT+FT:PJ0  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount
1zp f;S-]Gr3H#WH-`0For counter = 1 To rowCount
6ki%n_C:~*NB3SL{2D0  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)
k+bfy(b+t~ l4m0  If (text = "xxx") Then51Testing软件测试网 DvhC2e/T2E Z-lA)S
    counter = counter - 151Testing软件测试网)u"{5{$N+H6IE4a
    selectNO = "#" & counter51Testing软件测试网0aqs5C+V)v&Q"l
    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
#ig"H M4@"u'h0    Exit For
Qg7X5acy ~2lC8v0  End If51Testing软件测试网 c7d Z+B"KT/UFzVi
Next51Testing软件测试网na%Z6HG

51Testing软件测试网`/~mNJAb5pP

2.把值插入datatable里

3ki;ecv+qm#A051Testing软件测试网UX o*dpU

  例:   datatable.setcurrentrow(i)
c2Y8wLj0        datatable.value("name","Global")="name"
&x2pON1K"u0        datatable.value("passwd","Global")="passwd"51Testing软件测试网6H|?e? u{

Fl q9]8Wn@m03.用代码来启动浏览器

P xE0z0~7R9M0

z,m Qw:y^0  Browser1 = "IE"51Testing软件测试网.Q'd/O Yt1G!Mq
  StartURL = "www.51testing.com"51Testing软件测试网ErZ`;i7g5P
  IF Browser1 = "IE" THEN51Testing软件测试网"Q N6I!jr2LR
     set IE = CreateObject("InternetExplorer.Application")
`7xW*c\B z1i8Q'Es0     IE.Visible = true
D m%M1A-\k0     IE.Navigate StartURL
UZ8g Od;g5d8Hh0  END IF
O7[*g5o7So0 51Testing软件测试网*ziZ,d qXI&Ug#`

51Testing软件测试网 X7bF%rOHP)Q

4.ExecuteFile函数51Testing软件测试网x E(W d%u

_%Yd9B2Pr0  作用:ExecuteFile 可以直接执行vbs文件,而不需要将其导入resource中 51Testing软件测试网`!AP2N |{
       ExecuteFile FileName 
't.?tBl0  说明:where FileName is the absolute or relative path of your VBscrīpt file.

u(Yw-yvM v,O_051Testing软件测试网m;T?l[0wD

  例:ExecuteFile("F:\test.vbs")

"TL!i y+Hm0

]"kf@B'l05.Strcomp函数 51Testing软件测试网3\G&zf9W/v]A}vmi

shY_{ N c:{~#E(zP0  作用:比较文本

?? wk f.Dvi051Testing软件测试网#}0R)P~g\s8d_

  例:dim strtext1,strtext2,str ,str1,comp151Testing软件测试网(z0jQ0s$u1Hh,r]
     strtext1 = "xxx"
-I%IR-o[!B6k|$T0     strtext2 = "xxx"
F*E D&d9Z0|o&w|0     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")51Testing软件测试网Gr9GO!{+[o3w
     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")51Testing软件测试网*b7O.}T*K| Ug k
     comp1=strcomp(strtext1,str,0)
8r3s _-H'} hb0     If  comp=0 Then
I%S,{)Yd s0          msgbox “这两个串相等”
.^`P0yi.Fv0     else
-H|*E7p VuP0       msgbox str51Testing软件测试网n6F9}M6D[;|p
     End If 51Testing软件测试网q)Kg;G5rT1T(zv x

51Testing软件测试网-D8l"Kc*j)wP

6.CaptureBitmap 

%q/G9s,m8It(Gf0

%kt%Eub Ai0  作用:捕获屏幕

u5H2j h @051Testing软件测试网,X1K5l9j;FjH

7. GetROProperty51Testing软件测试网 ]:T5C9\[ L8j

_4r q cWbdu0  作用:取对象属性值51Testing软件测试网q8hsQ$a] o.~

51Testing软件测试网#Ee'k9Om

  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)") 

hG `|5q$s0

)y+d7TVj_V ~Z |08.ExitAction - 退出当前操作,无论其循环属性如何。51Testing软件测试网W$P0SQ#e/q w
  ExitActionIteration - 退出操作的当前循环。
yZ,?5`*J1\7pQ0  ExitRun - 退出测试,无论其循环属性如何。51Testing软件测试网t-_4ac+nR,M7gIl
  ExitGlobalIteration - 退出当前全局循环。

1T&OSa2Z051Testing软件测试网1Rw;{(jaU1@g


r;H$aD'Px q5K09.如何使用Excel对象处理数据?51Testing软件测试网4JRE^ _Ive
  Dim xl51Testing软件测试网yPOC ]#Q.K
  打开excel文件51Testing软件测试网 KL]7DD-EZUE\
  Function OpenExcelFile(strFilePath)
qw%md*fTb3e0  Set xl = CreateObject("Excel.Application")51Testing软件测试网d&SUD:Old
  xl.Workbooks.Open strFilePath51Testing软件测试网8vgz&U'CDp
  End Function
8V[D(P1vaJ2p$i0  获得指定单元格数据
9~G\+[br FVZoIM0  Function GetCellData(strSheet,rwIndex,colIndex)
FW_J%I |0  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
mJ)le~6\ U0  End Function51Testing软件测试网uP5b;W}p)d_\
  填充单元格数据
0S/M~ofq b;\-Ia0  Function PutCellData(strSheet,rwIndex,colIndex,varData)
G:y h%E&T A0  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData
4i&GZt\3K*Wj(Vd0  End Function
5} W&f\O u0  保存并推出51Testing软件测试网`;DB y&z _G
  Function SaveAndQuit()51Testing软件测试网G/x |"B'@s:|
  xl.Activeworkbook.save
G4[,Y Z(]GY0  xl.Quit51Testing软件测试网hahDZ0a]
  Set xl = nothing51Testing软件测试网OK;`Vc2dmv
  End Function
5x7m;}0_2A1j0

v0M4~7J jX0

:^AsvN&a010.连接sql数据库51Testing软件测试网2a#PAQ Q^Vo

51Testing软件测试网 wq!Z@w!L.dy

  例:Dim res,cmd,sql
WV9|2i-?0     Set Res=createobject("adodb.recordset")51Testing软件测试网{'im L8lP u\
     Set Cmd=createobject("adodb.command")
\f8nhS6j~o0     Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"  '这句话是连接数据库的数据源,要做修改
A d3b;h@0    Cmd.CommandType = 151Testing软件测试网hq_V6^
    sql="selec t * from 表 where name=username"51Testing软件测试网G;| Xj3KDq
    Cmd.CommandText = sql51Testing软件测试网8{2ro v0{Mx
    Set res = Cmd.Execute()51Testing软件测试网'Y-lL]'L}
    Set res = nothing51Testing软件测试网+|[[:e$CxJJ
    Set cmd.ActiveConnection = nothing51Testing软件测试网ap1qU:qO?@'@
    Set Cmd= nothing51Testing软件测试网2R%p6z:Ar


TAG: QTP

引用 删除 13111411141   /   2014-11-13 10:12:30
5
xiaosi203的个人空间 引用 删除 xiaosi203   /   2014-09-30 14:18:21
1
kaytia的个人空间 引用 删除 kaytia   /   2014-09-02 15:44:57
5
漫步馥路道 引用 删除 shine_lee   /   2014-05-23 15:23:21
5
坚持学习的个人空间 引用 删除 坚持学习   /   2014-04-23 10:57:46
5
引用 删除 zsn2008   /   2012-12-10 15:09:11
-1
wen的个人空间 引用 删除 asaswen   /   2012-07-05 10:42:42
3
(∩_∩)蓝魔(∩_∩)个人空间 引用 删除 1987gql   /   2012-06-18 11:11:44
3
lele330808的个人空间 引用 删除 lele330808   /   2011-11-21 12:24:45
不错
引用 删除 wuzq2010   /   2011-10-01 13:54:30
借你开的话题,俺也说两句简单的

11.若是先用IE浏览器打开网页,再打开QTP,用对象探测器探测页面元素,探测不到;
   若是先打开QTP,再用IE浏览器打开网页,用对象探测器探测页面元素,能探测到,你说神奇不神奇?
   哪位懂得相关原理的请在这里说道说道?
xuxf的个人空间 引用 删除 xuxf   /   2011-09-05 17:54:42
不错,收藏了
资深Tester 引用 删除 evangline   /   2011-06-01 14:53:22
看到你的头像就头晕……
DEATHKING的个人空间 引用 删除 DEATHKING   /   2011-05-31 09:49:40
好东西
引用 删除 lisaswing   /   2011-05-15 15:39:01
很厉害啊,刚学习,
引用 删除 Guolixuan   /   2011-03-23 16:26:33
谢谢
warrior_ever'sTestingStudyingSpace 引用 删除 warrior_ever   /   2011-01-05 17:19:15
№*鈀楃哯茬*№ 引用 删除 dylan0218   /   2010-12-06 09:34:34
请问QTP怎么用啊!!我安装了不知道怎么录制,QTP有没有中文的啊?我刚自学,英文的看着很吃力,谢啦
juanyu1984的个人空间 引用 删除 juanyu1984   /   2010-09-09 17:24:14
5
引用 删除 winmeatp   /   2010-08-20 12:15:25
objWMI是什么库,如何加载到QTP中,谢谢
阿 雅 引用 删除 zhtgreen   /   2010-08-11 11:35:19
谢谢楼主。 分享
 

评分:0

我来说两句

日历

« 2024-03-02  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 95826
  • 日志数: 25
  • 建立时间: 2006-11-24
  • 更新时间: 2012-07-10

RSS订阅

Open Toolbar