qtp笔记

1ha@G%P3G0'加载WIN API51Testing软件测试网N"V9J9`1n+G Q
extern.Declare micVoid,"PostMessageA","user32.dll","PostMessage",micHwnd,micDWord  ,micWParam ,micLParam51Testing软件测试网S`0^e{S)lL
C
extern.Declare micLong,"SendMessageA","user32.dll","SendMessage",micHwnd,micDWord  ,micWParam,micLParam51Testing软件测试网ds4|4j-T
extern.Declare micVoid,"CopyMemoryS2H","kernel32","RtlMoveMemory",micLong,micString,micLong
7Tt/RoA"{'g{0extern.Declare micVoid,"CopyMemoryH2S","kernel32","RtlMoveMemory",micString,micLong,micLong
`gf8K to0

o)B&{T3J0'加载自定义DLL的API,该DLL用VC编写,实现下拉列表指定行是否匹配该字符的功能,如果返回为0则代表指定行与所查找字符匹配

5n \v/SP[]g0extern.Declare micLong,"LB_getText","C:\DllTest.dll","LB_getText",micHwnd,micInteger,micString51Testing软件测试网o1N%K|*\Lg3N `hA1j

Window("FBMP").WinObject("TCeImageButton").Click 5,11
BV s1pcrM)|W0Window("FBMP").WinObject("TbsSkinPanel").Click 47,651Testing软件测试网2O*_q lg%q?F(a6@
Window("FBMP").WinObject("**资料设置").Click 70,1151Testing软件测试网BO Bf)pI/R
Window("FBMP").WinObject("添   加").Click 49,1951Testing软件测试网p4p)b/R,a%e!r-?
Window("FBMP").Window(">> 新 增").WinObject("TbsSkinEdit").Click 52,13
ro.? OBp:a0Window("FBMP").Window(">> 新 增").WinObject("TbsSkinEdit").Type "1233"51Testing软件测试网9V-O^ C~
Window("FBMP").Window(">> 新 增").WinObject("TbsSkinEdit_2").Click 31,651Testing软件测试网+JnE-a"L(ci8B
Window("FBMP").Window(">> 新 增").WinObject("TbsSkinEdit_2").Type "1233"
]4M_5]jUB6u0Window("FBMP").Window(">> 新 增").WinObject("TbsSkinMemo").Click 31,1951Testing软件测试网4H]Tn3l6Z
Window("FBMP").Window(">> 新 增").WinObject("TbsSkinMemo").Type "1233"

Set ComboBox =  Window("FBMP").Window(">> 新 增").WinObject("[无]")51Testing软件测试网.qE)Q0i/Ak0B"sj
Set ListBox = Window("FBMP").Window(">> 新 增").Window("Window").WinObject("TbsListBox")51Testing软件测试网#D-L)jo$O4r1} wm o8h
Call CtrTbsComboBox(ComboBox,ListBox,"2")

Window("FBMP").Window(">> 新 增").WinObject("确  定").Click51Testing软件测试网(tW ucep(t&ys8l
If Window("FBMP").Window(">> 错 误").Exist Then
+WcCg}3T6J
}0  Dim ErrText51Testing软件测试网T5k4g5Jm
ts k
  ErrText = Window("FBMP").Window(">> 错 误").GetVisibleText(-1,-1,-1,-1)51Testing软件测试网2ykO'}1I%IE
  Services.LogMessage "Error"&ErrText51Testing软件测试网/s4CttQ_K&L+_
  Window("FBMP").Window(">> 错 误").WinObject("OK").Click
Pa3NVjE0  Window("FBMP").Window(">> 新 增").WinObject("取  消").Click51Testing软件测试网
E |RtxwWG.Lk,@6R
End If51Testing软件测试网'u.?9KMH
Window("FBMP").WinObject("**类型设置").Click
9Kl N_@`0wait(1)51Testing软件测试网R%Ob'[/O&by

Set ōbj = Window("FBMP").WinObject("TcxGridSite")51Testing软件测试网#Ei0F h@2]
Call Click_ON_Text(obj,"123")51Testing软件测试网X1K;V(N2@
wait(1)

gwCO5Xry)y0T0'CLICK ON TEXT 查找并点击指定文本51Testing软件测试网+mJ0J9IF;^
Function Click_ON_Text(ByVal obj,ByVal findText)
0W3W!QPX"}R8Z J0  Dim Text_area,x,y,a,b,c,d
G5Y5B1`5E$?/XzJ0  x = obj.GetROProperty("abs_x")51Testing软件测试网/@K1g,W)|ib3[
  y = obj.GetROProperty("abs_y")51Testing软件测试网L4nd#?XPZ aU
  Text_area = obj.GetTextLocation(findText,a,b,c,d)51Testing软件测试网/A1oM'g%`
  x = x + b51Testing软件测试网#qYI#X1g
  y = y + d
\V8EV]m+J+@ OZ*S2s0  Call Anolog_MSCtr(x,y,0)
{~:d!X+Lt.F0End Function51Testing软件测试网 INV0E5w9Y5RJ

@#`g`5z:\K7cCd0
,byO"h G*J0'鼠标操作函数51Testing软件测试网N%Zq F9Wj0pKy
Function  Anolog_MSCtr(ByVal x,ByVal y,ByVal types)
9[Y/nww6b0       Set dr = CreateObject("Mercury.DeviceReplay")51Testing软件测试网]m6s-_Z G
       dr.MouseClick x, y, types51Testing软件测试网if;Bj1E3mU
  Set ōbj = nothing

L@2j1_5w%RN0End Function

Y%w _}/AJ0l'E1P#s0'键盘操作函数51Testing软件测试网4I&a?[%q-n{\
Function  Anolog_KEYCtr(ByVal KeyWord)
(BP(C ?T3u"@9C0  Set WshShell = CreateObject("Wscrīpt.Shell")51Testing软件测试网Ly5MqV*Fm.s
  WshShell.sendkeys KeyWord
ixn't*k0  Set WshSEll = nothing51Testing软件测试网n`j nP2shh/s Z;a
End Function51Testing软件测试网1G`!_],k6gn

'Comobox下拉操作函数51Testing软件测试网*@5?Q#}H^/\N
Function CtrTbsComboBox(ByVal ComboBox,ByVal ListBox,ByVal ItemName)
\US[J Q c0  ComboBox.Click
Pnc^@$s%t%NTk0  Dim hwnd_2
F5n;n|r ~ua0  hwnd_2 = ListBox.GetROProperty("hwnd")51Testing软件测试网3\N%v-UZ9~
  Dim i,j,tag
7K3e1R](ji0  i = extern.SendMessageA (hwnd_2,&H018B,0,0)
k&Q4_.nT)NeBd M0  For  j=0 to i51Testing软件测试网xA)D {pno
       tag=extern.LB_getText(hwnd_2,j,ItemName)'查找索引j上的ITEM是否为"2"
4uP
c8{z$Q*B0   If tag = 0 Then51Testing软件测试网n3tA4A.x}&@H hn
    '选择指定索引的ITEM.51Testing软件测试网)XkK:uN]&h
    extern.PostMessageA hwnd_2,&H0186,j,0
-W8|9Z;c$G P D0eK)w7M*^0    ComboBox.Type  micReturn

I)qK^2E4pT`3S1}0    Wait (1)51Testing软件测试网|Qz*Z @I,~pa
   End If
_~l T%\%i)`S0  Next
5P)G&ES+at0End Function