QTP的一些小知识

1.GetCellData函数 51Testing软件测试网Xa+N2b8ZO

  作用:获取单元格的值51Testing软件测试网u3h;HL;HF:]$J

  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount51Testing软件测试网WS%S5w8IB jy4fw
For counter = 1 To rowCount
(k`lxl;a5AC0  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)51Testing软件测试网@b[1B)C,aBU%t
  If (text = "xxx") Then
J+|%a:?)QY-~Ao9j0    counter = counter - 151Testing软件测试网.G-r-D3c b,Z9Y#U
    selectNO = "#" & counter51Testing软件测试网C/T cpa+iD2a
    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
R'@vm3N {5N0    Exit For51Testing软件测试网3l G-ql&^pj8w
  End If51Testing软件测试网&cc7|4U-Y9u X
Next

*F h3|9Fx3x1E@02.把值插入datatable里

  例:   datatable.setcurrentrow(i)
)Od%b\?"?JW e)N+A0        datatable.value("name","Global")="name"
I ~Vj0F'^F0        datatable.value("passwd","Global")="passwd"

tZ1F yFcra:e lE03.用代码来启动浏览器51Testing软件测试网s D,h.w6]3dUj:k

  Browser1 = "IE"
Sz)C,P%K0  StartURL = "www.51testing.com"51Testing软件测试网4R2@ES&W"yzM(~
  IF Browser1 = "IE" THEN
};m'a[8b.{*u0     set IE = CreateObject("InternetExplorer.Application")51Testing软件测试网+l&}:D^ _uD
     IE.Visible = true51Testing软件测试网e]/A.]QF\A
     IE.Navigate StartURL51Testing软件测试网Ag1F}4`]V!{
  END IF

_0ZN;F'sqp}0 51Testing软件测试网4Q#ji Zd
Y
w~7J

cwW3DqM%E04.ExecuteFile函数51Testing软件测试网Iiq$f @J1Bqk

/d;bp$J` D0  作用:ExecuteFile 可以直接执行vbs文件，而不需要将其导入resource中 
u]"f(L+Z$K&h su8w3R0       ExecuteFile FileName 
8H$x/O`1atl(Z0  说明:where FileName is the absolute or relative path of your VBscrīpt file.

%i,[.W3sSP0  例:ExecuteFile("F:\test.vbs")

5.Strcomp函数 51Testing软件测试网Q'm
w z"aL;\%W

  作用:比较文本

5HMJ0e~K ~ f#P0  例:dim strtext1,strtext2,str ,str1,comp1
+wm9~-Sx4kj0     strtext1 = "xxx"51Testing软件测试网}*D5Z4kxd;\(Nt
     strtext2 = "xxx"51Testing软件测试网V\+~?xv8nU3]3e'g
     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")
n+V+s^+}:@4~ @0     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")51Testing软件测试网!F,? F ~&w
     comp1=strcomp(strtext1,str,0)
i oX/LO#tJh0     If  comp=0 Then51Testing软件测试网p3i;^q c8Fha
          msgbox “这两个串相等”
!i'SVL/X \.i Ye0     else
$p0Y(my:o,Qn2WTw0       msgbox str
AO/kER |)r0     End If 51Testing软件测试网\i:eWe&V~4\H

%O;PZaGc06.CaptureBitmap 

  作用:捕获屏幕

7. GetROProperty51Testing软件测试网:FX[0xJN

  作用:取对象属性值51Testing软件测试网{"tn X@{

4[MBX`aA8m0  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)")　51Testing软件测试网Zw7Rru7?g

8.ExitAction - 退出当前操作，无论其循环属性如何。
NQ$Cd4s9?0i_ I0  ExitActionIteration - 退出操作的当前循环。51Testing软件测试网tqx@f'^?-pj
  ExitRun - 退出测试，无论其循环属性如何。51Testing软件测试网{5Sns*dv$t{
  ExitGlobalIteration - 退出当前全局循环。

51Testing软件测试网SFD^gZ _6h.s
9.如何使用Excel对象处理数据？
Yva4U4`E0  Dim xl51Testing软件测试网6O2t_e2zy0U`
  打开excel文件51Testing软件测试网 C/\0p&vzp
  Function OpenExcelFile(strFilePath)
7fKW$_ i.q0  Set xl = CreateObject("Excel.Application")51Testing软件测试网 tX7\zy8Kc)N
  xl.Workbooks.Open strFilePath
L3h2M3IHd"S3R0  End Function
v#DMc1P0  获得指定单元格数据51Testing软件测试网Ug%LJ'Ik.anm
  Function GetCellData(strSheet,rwIndex,colIndex)51Testing软件测试网fim8t8Tc
  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
jztc-c{*l0  End Function
\`+det r"z"j0q:y z0  填充单元格数据51Testing软件测试网$|;V+U RE_F:V*z)V
  Function PutCellData(strSheet,rwIndex,colIndex,varData)
W K~,p1R4A M%wO0  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData
2\M Bm|7W8\o5|0  End Function
1m1z#{E,bm0  保存并推出
K~9J%FCKU^0  Function SaveAndQuit()51Testing软件测试网O7G7d(?S
ZS5B!y A
  xl.Activeworkbook.save51Testing软件测试网+jI3N*Zfi9L$?
  xl.Quit
a;Sn@@;`7kN0  Set xl = nothing51Testing软件测试网}aR{*QS8`
  End Function
N4P0G/zaO:f#s!y051Testing软件测试网+i0Hw&}FI.m'M&n"y

10.连接sql数据库51Testing软件测试网BMj0QWVJ#_

o1uSJA,O3ofm*Jg0  例:Dim res,cmd,sql51Testing软件测试网:HD1nO"q.v-Q
     Set Res=createobject("adodb.recordset")51Testing软件测试网#ygg^ hC"V-}7d
     Set Cmd=createobject("adodb.command")
6B[Y Jb$VH|(b~R0     Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"　　＇这句话是连接数据库的数据源，要做修改51Testing软件测试网)e{\$Rt2II ft"|
    Cmd.CommandType = 151Testing软件测试网L6x\8Y@ SH
    sql="selec t * from 表 where name=username"51Testing软件测试网x3LL&r|'l l%t vb
    Cmd.CommandText = sql51Testing软件测试网 ~l3khl#YPd"n
    Set res = Cmd.Execute()51Testing软件测试网'Uz9p5pA)u-p
    Set res = nothing51Testing软件测试网 yFa)@0]dYXcO1z*b
    Set cmd.ActiveConnection = nothing51Testing软件测试网#?5|1y+y@.M
z2_
    Set Cmd= nothing