QTP 常用函数

&ye0y8AP8z^E01.GetCellData函数 51Testing软件测试网6uAu.\!W"f!V*U,h

t'JN!HN0  作用:获取单元格的值

)aZ2Nk*[^:g(Q|'E0  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount51Testing软件测试网"G
azI.tT
O
For counter = 1 To rowCount51Testing软件测试网T*w9R u8ER5J\} i
  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)51Testing软件测试网JF&LN6I?5QM\
  If (text = "xxx") Then
]/mk3bz0    counter = counter - 151Testing软件测试网J@s9c'w a
    selectNO = "#" & counter51Testing软件测试网;DdRHn;T/z
    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO51Testing软件测试网V!u7|`N
    Exit For
9bv
J+sk%B0  End If
4FAU(|1sUA0Next51Testing软件测试网,O
o%}}2g^}1lTl4y$J

tQ(x~,N^02.把值插入datatable里

  例:   datatable.setcurrentrow(i)51Testing软件测试网"Xp:L\3xu J;n
        datatable.value("name","Global")="name"51Testing软件测试网:rF(lT G+J@
        datatable.value("passwd","Global")="passwd"51Testing软件测试网I"V*L%Q%CwnW+AR

3.用代码来启动浏览器

7^(j T%V'b x0  Browser1 = "IE"
R7g%c9UVqg2FH0  StartURL = "www.51testing.com"
Q4~+t{X
uA0  IF Browser1 = "IE" THEN

j!TKy,V)I5A0     set IE = CreateObject("InternetExplorer.Application")
m.{}*I lA C a*v0     IE.Visible = true51Testing软件测试网Q.V!w LK1f'N|6W@
     IE.Navigate StartURL51Testing软件测试网j&syPp
  END IF51Testing软件测试网tJb0jM` px(E;H
 51Testing软件测试网"|}x&Aj6n

wN\-jP2{;{04.ExecuteFile函数

  作用:ExecuteFile 可以直接执行vbs文件，而不需要将其导入resource中 
;\cDC:y0       ExecuteFile FileName 51Testing软件测试网 WP5Jo%}&n3UGk*LG
Xf
  说明:where FileName is the absolute or relative path of your VBscrīpt file.

X$EW0d;d6z!e0  例:ExecuteFile("F:\test.vbs")

O;IkQ$| pE8c%k{1O;i05.Strcomp函数 51Testing软件测试网3A7Hl)C(Kz

  作用:比较文本51Testing软件测试网~ zzJ&L{|A.D&B

E4gysyD-j4KV0  例:dim strtext1,strtext2,str ,str1,comp151Testing软件测试网C2V%Fh0`@"U0_
     strtext1 = "xxx"
5z
E.U8LU0     strtext2 = "xxx"51Testing软件测试网rsJ*v C2yf
     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")51Testing软件测试网)a!ZNc:QK E
     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")
s)LM%_y$Q z0     comp1=strcomp(strtext1,str,0)51Testing软件测试网diU(?U/w;LFP8Vg2u
     If  comp=0 Then

\#GD2~+t0C0          msgbox “这两个串相等”51Testing软件测试网"a7U X4~1h5v'Iyz
     else51Testing软件测试网I1`Q Ml4Vt
       msgbox str51Testing软件测试网'O._;lATf9F F]Wp
     End If 51Testing软件测试网3u"w2mcWr

6.CaptureBitmap 

  作用:捕获屏幕51Testing软件测试网_'p4C4D!v-el3e7A

2Bx,a M1n:`4^3?:X?07. GetROProperty51Testing软件测试网+o%eK;E8s{ sa

  作用:取对象属性值51Testing软件测试网,u~V7mCb?D#w6{

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

V k8q*^it}08.ExitAction - 退出当前操作，无论其循环属性如何。
y+y2H%_o^3I9IX0  ExitActionIteration - 退出操作的当前循环。
a]u2r7VeFsv0  ExitRun - 退出测试，无论其循环属性如何。
)g\)` M w$h0  ExitGlobalIteration - 退出当前全局循环。51Testing软件测试网%O#o\Rpk!}|Y

u7sQ*ACJ&@s"s051Testing软件测试网 |1W9Xa7y-z O'O
9.如何使用Excel对象处理数据？
n'e+}u/Ue?|']0  Dim xl51Testing软件测试网|D Mf$Et }
  打开excel文件51Testing软件测试网)P"M)O&@N[x
  Function OpenExcelFile(strFilePath)
s!MPIJ7f hu0  Set xl = CreateObject("Excel.Application")
f#~KjCWD0  xl.Workbooks.Open strFilePath
ns3s2R)pk0  End Function51Testing软件测试网?9WOk7b
  获得指定单元格数据
MrR ~2GS0Q0  Function GetCellData(strSheet,rwIndex,colIndex)51Testing软件测试网1SE[ m~1~ { wN'HAT
  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
`*UK"|2NKl0  End Function51Testing软件测试网'WrOVsL,^
  填充单元格数据
-~UI5[+q? }7oZ2m0  Function PutCellData(strSheet,rwIndex,colIndex,varData)
u.U1jjy*|Xa9A,B0  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData
\sGB6N0  End Function
N1b'i'p1MO:Vnl8k)Bl:R,X0  保存并推出51Testing软件测试网2C%r v3Z{
  Function SaveAndQuit()
gQ,\?)w0  xl.Activeworkbook.save51Testing软件测试网j6op1V hTI'n7?%L
  xl.Quit
6|9} [/O d$i3m-V]*~0  Set xl = nothing51Testing软件测试网!HT m*|8LA5G3l
  End Function
MF4]O]051Testing软件测试网;X)],sJkI*wz Y']

10.连接sql数据库

U:F
b%Dr#J'Dt0  例:Dim res,cmd,sql
w2Xwwj1[3K;n+Vfm:W0     Set Res=createobject("adodb.recordset")
)N
{K,vNT(N0     Set Cmd=createobject("adodb.command")
4w1RSkZW$_;GN:\0     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
nJ+~8c+u6hm
    Cmd.CommandType = 151Testing软件测试网]4G5k-n(i
    sql="selec t * from 表 where name=username"51Testing软件测试网f0]:qJ*N WXj'@"u#K
    Cmd.CommandText = sql
t$c$C{(q0    Set res = Cmd.Execute()51Testing软件测试网#hmo%xpc:UJ\
    Set res = nothing
Ck$y%I
B_A2_0    Set cmd.ActiveConnection = nothing
-t:\ NF qDd;c2F0A4WoL0    Set Cmd= nothing