QTP的一些小知识

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

Rc%e z-R(|"kn?01.GetCellData函数 51Testing软件测试网/],@;Kxb&x/Xi+_5P{

gr6p6p\:]E0  作用:获取单元格的值51Testing软件测试网 }2RDia$f w)`%^l

vN#w&a g"D.~+U8X6P0  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount51Testing软件测试网{(M Z p&@4M U
For counter = 1 To rowCount
ygm#[Vl d2L m0  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)
"L[b?2oT'k} AN0  If (text = "xxx") Then
7E)c~m#i S+rW9QM0    counter = counter - 1
Sc:W(D K'q`0W0    selectNO = "#" & counter
Q R5S]lX0    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO51Testing软件测试网6{9fF2@~
    Exit For
'`1K V-P0FE5_L r4y0  End If51Testing软件测试网3Vm"iY"n$fH[
Next51Testing软件测试网r;kB'_2rx[

51Testing软件测试网(MlIoDv rA

2.把值插入datatable里

E+dj-}}V[`!r#hxjj051Testing软件测试网ER%WUly+db

  例:   datatable.setcurrentrow(i)51Testing软件测试网Y#`'}|gR5N4c
        datatable.value("name","Global")="name"51Testing软件测试网b!Mk!Y(cy gC*n
        datatable.value("passwd","Global")="passwd"51Testing软件测试网$e[~:Q2h$h2D;p6G S`,w

#Xc3cHPds03.用代码来启动浏览器

gycbq:q2H U051Testing软件测试网S%h1K#h:e!|P N5p#X

  Browser1 = "IE"
'Z{%w(f D M[R H0  StartURL = "www.51testing.com"51Testing软件测试网;X{ J6w9S/wvX%m!m
  IF Browser1 = "IE" THEN
3Vy1S|)D C0     set IE = CreateObject("InternetExplorer.Application")51Testing软件测试网:R ~C,zk ^|7u;^
     IE.Visible = true
(iv5y ieH/~0}0     IE.Navigate StartURL
2p"o(}&E)ofTc0  END IF
(v`V'd6I `dN/E3Zi0 51Testing软件测试网-TDqD^/AY0~

!x]2Tq!X9BQ04.ExecuteFile函数51Testing软件测试网K/Lr}c jveM

51Testing软件测试网2H9SXLD

  作用:ExecuteFile 可以直接执行vbs文件,而不需要将其导入resource中 51Testing软件测试网/n1F/Eg4ro"R@
       ExecuteFile FileName 
nj2s'Sw'`9x*A0  说明:where FileName is the absolute or relative path of your VBscrīpt file.

.W0}"{ i,x"j0

W"dg{8~ Ez6H0  例:ExecuteFile("F:\test.vbs")

OwiL&YR0

$L)QD,y E[05.Strcomp函数 51Testing软件测试网8X6I c:HI

51Testing软件测试网[TQ(X~K(O!A

  作用:比较文本51Testing软件测试网M7RiNH

51Testing软件测试网Ysf f2Je:Xf'MQ)XJ

  例:dim strtext1,strtext2,str ,str1,comp1
z:G6Yd&gGA eJ~0     strtext1 = "xxx"
)u;@+aHzhS0     strtext2 = "xxx"51Testing软件测试网.GM)VBxA[s
     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")
@ @:V2~7W'j CeE Y6E0     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")51Testing软件测试网!v}S9\5E3?7id TAU
     comp1=strcomp(strtext1,str,0)51Testing软件测试网-I2D;x4^,M%g\^z
     If  comp=0 Then51Testing软件测试网 UOnx,v6K2V?
          msgbox “这两个串相等”51Testing软件测试网$Tz Qp'l k q4t
     else51Testing软件测试网9yV6r+\ tB!?
       msgbox str
T DReOQTc9]!z0     End If 51Testing软件测试网n*i.J)H0?Zb9`

GB2fW&Z'@06.CaptureBitmap 

9\1yh pjU x$^051Testing软件测试网7I%uio;P'|{S`

  作用:捕获屏幕51Testing软件测试网wO ]6m1}1y/R/{

(_H.u[h+Gh0r T Y(@[/}07. GetROProperty

"B/Zf&q:iBg051Testing软件测试网 q T.O"P8Q-O M1G7Y d"K)@

  作用:取对象属性值

L3`]"{ J!V f/X'q%yl0

+^/W4m2Rt0  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)") 

+f6d7O*@2`051Testing软件测试网Am/e*GxA2s

8.ExitAction - 退出当前操作,无论其循环属性如何。
|6D&g uGc v0  ExitActionIteration - 退出操作的当前循环。51Testing软件测试网Z;] ]mbp6UrWiy
  ExitRun - 退出测试,无论其循环属性如何。51Testing软件测试网0hQ J f6}/X]p
  ExitGlobalIteration - 退出当前全局循环。51Testing软件测试网 D MFIYFvJ

\HS q*E]0
[jj%t0X^2}m;F7F09.如何使用Excel对象处理数据?51Testing软件测试网J^e7^5MU
  Dim xl51Testing软件测试网*~IC5g&UgJW
  打开excel文件51Testing软件测试网%t6m)tLHN9K
  Function OpenExcelFile(strFilePath)51Testing软件测试网[i E%d-l$InFl
  Set xl = CreateObject("Excel.Application")
4?0_ D `,r4_4fc0  xl.Workbooks.Open strFilePath
+C(?A!Bh/@Y0  End Function51Testing软件测试网!Gzz3\T|o2Ym
  获得指定单元格数据
Kc1c&on(x'\0  Function GetCellData(strSheet,rwIndex,colIndex)
)S2k;CFjP`-w7Y8b"P0  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
xBM Y+si$C/C2i;je0  End Function
:a+H}6r,kGaZn"Q0  填充单元格数据51Testing软件测试网2d2z/h}"m9o8?
  Function PutCellData(strSheet,rwIndex,colIndex,varData)51Testing软件测试网"p;pbfX
  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData51Testing软件测试网+n5N[zt&_#kuc5k
  End Function51Testing软件测试网A#ef!{ v(A`
  保存并推出51Testing软件测试网 O9J9R&OLP2c
  Function SaveAndQuit()51Testing软件测试网y#TJ9dnx
  xl.Activeworkbook.save51Testing软件测试网 F(b&B#M%X+pCir
  xl.Quit
VC_Y[+Xq4y0  Set xl = nothing51Testing软件测试网d5up9a| K(R
  End Function51Testing软件测试网^"@I;etu

W&S5Q)gsQMc{0

M6V4xS*n010.连接sql数据库51Testing软件测试网xC)[)eq

z:S8ntSd0  例:Dim res,cmd,sql
'ocb#A.@0Vg%C0     Set Res=createobject("adodb.recordset")
Tx;z5[C Ww9u0     Set Cmd=createobject("adodb.command")51Testing软件测试网UH.D5q/b
     Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"  '这句话是连接数据库的数据源,要做修改51Testing软件测试网P'I&E8py,D'O
    Cmd.CommandType = 151Testing软件测试网1A |BN*H[O
    sql="selec t * from 表 where name=username"
4O!l8tuD.q%M3vin0    Cmd.CommandText = sql
A dz2P~P q0    Set res = Cmd.Execute()
:t"ga:d i0    Set res = nothing
-}K9hruK V#|4R0    Set cmd.ActiveConnection = nothing51Testing软件测试网d MT R~h
    Set Cmd= nothing

7Ox"A-W vGo0

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

我来说两句

日历

« 2022-01-24  
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

数据统计

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

RSS订阅

Open Toolbar