(转载)QTP的一些小知识

1.GetCellData函数 

作用:获取单元格的值51Testing软件测试网,@y6l ke2w%`&t8ZbE)Y3K

O
S ~6R m)r6Y242218  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount
$]h4r+x'Z"Be&zxyL242218For counter = 1 To rowCount
I G'f4GB MJj242218  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)
8?6e w1B%Fk7o_'k242218  If (text = "xxx") Then51Testing软件测试网
w+`&sqgeA l
    counter = counter - 1
i'B@j7lj X242218    selectNO = "#" & counter
;j+vn5?+Xle|{242218    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
4}4pN\;N(DH H}epWi,D242218    Exit For51Testing软件测试网 p!At4K3G
  End If
%Oa.s3z(Mi8? u242218Next51Testing软件测试网_`&g/ky

s)X8s(l,yN3p2422182.把值插入datatable里

c&p Ai5_ ~!h8B-h242218  例:   datatable.setcurrentrow(i)51Testing软件测试网s*L(K [~sYrQ PL
        datatable.value("name","Global")="name"51Testing软件测试网 i[%B2~+T:ao3S
        datatable.value("passwd","Global")="passwd"

R!H(J q&s0d Pu2422183.用代码来启动浏览器

  Browser1 = "IE"
R8p$GOW%v242218  StartURL = "www.51testing.com"
q9M$`Q s-} j:Q%HC242218  IF Browser1 = "IE" THEN
-m.\[s r9p`6bh242218     set IE = CreateObject("InternetExplorer.Application")51Testing软件测试网.l5~l1~ By
     IE.Visible = true
T3`epP? _{242218     IE.Navigate StartURL

U,ym'[-A
L(k#f yZ242218  END IF51Testing软件测试网|4u9R![S0H6Y3h
 

/YKo^.Im/|2422184.ExecuteFile函数

  作用:ExecuteFile 可以直接执行vbs文件，而不需要将其导入resource中 51Testing软件测试网6x0I;^sH&s F*wS
       ExecuteFile FileName 
-\.{NQ'N X242218  说明:where FileName is the absolute or relative path of your VBscrīpt file.

  例:ExecuteFile("F:\test.vbs")51Testing软件测试网%m-O-\a1L&]/D

F UB0x1em#X sxn2422185.Strcomp函数 

  作用:比较文本

)iVn%L8@/Ts"N C*VW242218  例:dim strtext1,strtext2,str ,str1,comp151Testing软件测试网9j2T u0S y.t
     strtext1 = "xxx"51Testing软件测试网U6wVv2fF
     strtext2 = "xxx"
4@5y&vH @5b242218     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")51Testing软件测试网u u8`v7}Ox)X
     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")51Testing软件测试网W|%BY7bm
     comp1=strcomp(strtext1,str,0)51Testing软件测试网[OP3U3vUK X
     If  comp=0 Then
5CDUX
o+toi y242218          msgbox “这两个串相等”
x6\3Q&v A242218     else51Testing软件测试网:dT"ggaO
       msgbox str51Testing软件测试网e2Q ~-M]*wM3Y
     End If 

6.CaptureBitmap 

  作用:捕获屏幕

:y#E l6S(iJ/S t2422187. GetROProperty

  作用:取对象属性值

[u+SKk5{ ~&Q2l^242218  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)")　

G.X(D|;f!D"U~2422188.ExitAction - 退出当前操作，无论其循环属性如何。
mmx,K+AK242218  ExitActionIteration - 退出操作的当前循环。
n^O$ZW/e242218  ExitRun - 退出测试，无论其循环属性如何。
.o7Hn0u0V@q242218  ExitGlobalIteration - 退出当前全局循环。

P
})_ ODNp2422189.如何使用Excel对象处理数据？
b5xNp*Q.V,L(] MK242218  Dim xl51Testing软件测试网,?z&I{{ d
  打开excel文件
(d5c)|%y$H ox7D7NW$U242218  Function OpenExcelFile(strFilePath)
6d6e9I Z!J"R']242218  Set xl = CreateObject("Excel.Application")
)G,L4R@"S,h&K G F242218  xl.Workbooks.Open strFilePath
'@!E7i;J0K`242218  End Function51Testing软件测试网aMh,y^4p"sQ gg4o
  获得指定单元格数据
l Z r+C(xU.b%N242218  Function GetCellData(strSheet,rwIndex,colIndex)
"q ?uT@{X242218  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
Wvs2M F5Z5b6V/F242218  End Function
'B;a#} L"IKc1G0T242218  填充单元格数据51Testing软件测试网\ @:z0Lk$d@s)WX
  Function PutCellData(strSheet,rwIndex,colIndex,varData)
9t? VT.~,X}cI!O242218  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData51Testing软件测试网1Cy4D8~ cGF
  End Function
r;Qh%y4_242218  保存并推出
3Z`WI
~r242218  Function SaveAndQuit()
Y&aCW.J#pnh Up242218  xl.Activeworkbook.save51Testing软件测试网c2L M
ogY.l
  xl.Quit
n_%MH(?;i242218  Set xl = nothing
;ER(uB
j242218  End Function
7\2h^5[K242218

L G[!wnV`24221810.连接sql数据库51Testing软件测试网5nR4q'j/r-rd

  例:Dim res,cmd,sql
Q~\5O/t242218     Set Res=createobject("adodb.recordset")51Testing软件测试网*g0L fxt
     Set Cmd=createobject("adodb.command")
~p R2dO Z!r4M242218     Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"　　＇这句话是连接数据库的数据源，要做修改
0Ms2z$xYA.A242218    Cmd.CommandType = 151Testing软件测试网 ZD:l.OB b
    sql="selec t * from 表 where name=username"
%x:~(u*i8q0pR*P$TM(h242218    Cmd.CommandText = sql
4s5ptzPkq242218    Set res = Cmd.Execute()
$H8s r V5{242218    Set res = nothing
E(J1vpFf v{S4_z242218    Set cmd.ActiveConnection = nothing
"l7})D[G)Z242218    Set Cmd= nothing