QTP自动化测试实例（单机软件）

Action代码

'读取URL，到tmp数组51Testing软件测试网|p/x;RK-c:`

Set fso=CreateObject("scripting.filesystemobject")
s2e(z(h&N
D0Set ffile=fso.opentextfile("C:\QTP\domain.txt",1,true)
,SyH~:p0url=ffile.ReadAll51Testing软件测试网2Jk!?;G+dt
tmp=split(url,vbcrlf)

For  i=0 to ubound(tmp)
OU/~3pQ-Z2x1L\#f0  'url=ReadDomainURL(CountLine)51Testing软件测试网&Z$E!A9]xCmJ-D[^
  on error resume next51Testing软件测试网+dbm V.n1q6hSY3fD~
   Result=AddTask(tmp(i))
x1Xisw/t fZ"r3b0  'MsgBox Result
;`'?*eQO0  
pJ$d x+~? I0  SearchChar1="[exp]"51Testing软件测试网.K5Y2w/@S:e
  SearchChar2="[virus]"51Testing软件测试网SF'`1VA)}
  51Testing软件测试网
Jg9`I3J H7BEJ
  MyPos = Instr(Result, SearchChar1)51Testing软件测试网fw8tw(Q
  51Testing软件测试网zt4G'NfR;Cih W$B
  'MsgBox MyPos 没有找到searchChar1返回0
;EzEg[$t-k0  
]FHU@BO/p0  If 0=MyPos Then
'JV\Z
r'u-o0    MyPos = Instr(Result, SearchChar2)   
rwD"hn&ry2F[(\hjH0  end if
_Hr$EV _0  '把结果写入文件，>0表示页面存在木马。timeout表示检测时超时。51Testing软件测试网H$g4nz%PN(n7`
  If MyPos>0  Then  
*\0s%} C.@6D4W!X0    ResultLog(i & chr("9") & tmp(i)) 51Testing软件测试网1cTc6H FF
  else51Testing软件测试网%or*mFw
    ResultSafe(i & chr("9") & tmp(i) )  51Testing软件测试网0V!?TG'TK
  End If51Testing软件测试网S lev0l'cq

  If  Result="TimeOut" Then
L;kM9B$AE0    ResultLog(i & chr("9") & tmp(i) & chr("9") & Result)
7h"r,?[!q+JM;OjR0  End If51Testing软件测试网Ar6Pnf
  
y9i1G3B'@*s&KP.c M?0Next51Testing软件测试网ZN+f-h.D,I

$`Lt?.Y+a*u
N)Ut0 51Testing软件测试网K2A H-f8@nh

v'\7w^y.E3LC0Library.qfl文件

R1|Eg r%V rVq051Testing软件测试网!Y'l6uH(E^s6h
Function AddTask(url)
:u9_^4YI-z0  'Dialog("MDecoder_2").RefreshObject
#D)B^ H2vCN0  Set cb = CreateObject("Mercury.Clipboard")
4Z5H1p:Ubo2rR0  Do while Dialog("MDecoder_2").WinEdit("Edit").CheckProperty("enabled",true)<>true
;^_
?1c;b}0t0c3H0    Dialog("MDecoder_2").WinEdit("Edit").WaitProperty "enabled",true,10
ShG^9y4_z&SR0  Loop51Testing软件测试网\mG.K$RN1v2O
  Dialog("MDecoder_2").WinEdit("Edit").Set url
CW|
Q7XZ$^0        Dialog("MDecoder_2").WinButton("Scan").Click
E!rQ:k B2a-Dd0  'wait 10
9Xm:F(h6L-R6q/y0  'waitProperty最长等待30s，如果Log的enabled属性提前变为ture，那么直接执行下面的语句。51Testing软件测试网x(XsY7I*w
  Dialog("MDecoder_2").WinButton("Log").WaitProperty "enabled",true,300051Testing软件测试网&t'W)ZD4^-a7B'F
  y=Dialog("MDecoder_2").WinButton("Log").CheckProperty("enabled",true)51Testing软件测试网%I;Xo3]7h*C-{
  'Dialog("MDecoder_2").RefreshObject51Testing软件测试网t\[&|dbJ.rY
  If y = true Then51Testing软件测试网9N.CV.nx
{
    Dialog("MDecoder_2").WinButton("Log").Click 51Testing软件测试网"{W&T[ jyZ
    Do
zXXe]\g"J$SF0      Dialog("MDecoder_2").Dialog("MDecoder").WinButton("确定").WaitProperty "visible",true,10
kpoF5S8}/v1`(XO0    Loop until Dialog("MDecoder_2").Dialog("MDecoder").WinButton("确定").CheckProperty("enabled",true)
/{*R*O i^n-?0    51Testing软件测试网Ye j2C8_N$P
    Dialog("MDecoder_2").Dialog("MDecoder").WinButton("确定").Click    51Testing软件测试网5w#Y_p1S+Yz
    AddTask= cb.GetText
_ h5dM#aM0  else51Testing软件测试网,|5T/^*F1l S)W
    Do while Dialog("MDecoder_2").WinButton("Stop").CheckProperty("visible",true,1)    
Z/bHik6K
Is*~@0      Dialog("MDecoder_2").WinButton("Stop").Click
5b6f(sheRqyLc/V^0      Do51Testing软件测试网%O x ?wi9~2}G:o
        Dialog("MDecoder_2").WinButton("Scan").WaitProperty "visible","true",1051Testing软件测试网7[ m;XeZ!oq"~
      Loop until Dialog("MDecoder_2").WinButton("Scan").CheckProperty("visible",true)      
4Db#U \s,M0    Loop51Testing软件测试网{~^as(O"qu&e8gu
    AddTask= "TimeOut"51Testing软件测试网 e kH2G[;tn2j*`
  end If

End Function

%[]L9flH}*Qm0 51Testing软件测试网j;Y9l sx G G xX

:fQO.Bp P0m:Zrh0Function ResultLog(url)51Testing软件测试网?e-N}&VN;{9DI,qH
Dim fso,ffile51Testing软件测试网?6w:`_ Gj5e
  Set fso=CreateObject("scripting.filesystemobject")
4Y7e|LVu0@+G*t+d0  Set ffile=fso.opentextfile("C:\QTP\resultlog.txt",8,true)51Testing软件测试网}9S"p^0vx
ffile.write(url&Chr(13)&Chr(10))
NT)P%h$t A B$h:R0ffile.close
pqx7wp!f4[0End Function51Testing软件测试网Q)O(O_i)V9y

51Testing软件测试网`$p!@2Y([ Ft2@M
Function ResultSafe(url)
z$?_-m!XZH.R0Dim fso,ffile
6rF}4h:d*YD;K0  Set fso=CreateObject("scripting.filesystemobject")51Testing软件测试网m:c/KG K"VN%O
  Set ffile=fso.opentextfile("C:\QTP\ResultSafe.txt",8,true)
PS R&VP R'?z5J T"v+o0ffile.write(url&Chr(13)&Chr(10))
6afb:U^`W0ffile.close51Testing软件测试网)VpN2`%NI
End Function

6~z;Ot(v.c'qM0 51Testing软件测试网A,v){3Z|b/iA

a X p)w7RBb#_051Testing软件测试网 Khqf m
 51Testing软件测试网8jX UT4VtHs0^