心念旧安,夙夜忧叹。
倚天不出,谁与争锋?--第三度秒杀台湾馆,第一名!
上一篇 /
下一篇 2010-10-18 10:17:08
/ 个人分类:原创文章
,TX${r3V
|+d I0前几天上班没空跑脚本,今天优化了脚本,再破纪录,这次是第一名!51Testing软件测试网V3g}8\\wx3b
51Testing软件测试网ENl3g'}.QS都说QTP是倚天剑,哈哈,倚天不出,谁与争锋?!
Sy9\I,H%Y!j;]0~!PS'kX3dO0下面是贴图:51Testing软件测试网t4gQ
`$aAmPK
Ir,W pt#s$_+k0
+EJ
\'ASw0s0-D:r"a0` m0放送核心优化后的代码:51Testing软件测试网
J&e%v| rm5@
7ah$j
l2\0On Error Resume Next51Testing软件测试网"F4ce4G:fC
Do51Testing软件测试网R-{)\K-R+r;I
SystemUtil.CloseProcessByName "IEXPLORE.EXE"
i-X-rX tru%u0 SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
"|4yX#Mo$CR\
j0 Browser("Browser").Page("Page").Sync51Testing软件测试网 ^;|#UZ9G Z
Browser("Browser").Navigate "http://www.expo2010taiwan.com/CN/order/order01.aspx"
^ Lky(O6hq7J%N]0 Browser("Browser").Page("Page").Sync51Testing软件测试网D-I!}6Pl6w,jn
Browser("Browser").Page("Page").Image("order_bt02_f2").FireEvent "onmouseover"51Testing软件测试网$e}/p5lA9rA5v d/~/D!T
Browser("Browser").Page("Page").Image("order_bt02_f2").Click
L"jcm:dqI0 Do While Not Browser("Browser").Page("Page").WebEdit("txtFname1").Exist(0)
I
wCJcf3O%m0 Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click51Testing软件测试网%s-Fm{Ra?2j(]
If Err.Number<>0 Then51Testing软件测试网O7R*X:bGN
Exit Do51Testing软件测试网K"D,V.B8wK
End If51Testing软件测试网D vVtLOD
}
Browser("Browser").Page("Page").Image("order_bt02_f2").FireEvent "onmouseover"
)h+mP1h#et"j}'l0 Browser("Browser").Page("Page").Image("order_bt02_f2").Click51Testing软件测试网^2NBI4M8r? |h)N o
Loop
y9O6w,jL_|
I
x0Loop While Err.Number<>051Testing软件测试网r G[ D'R
u\
On Error goto 0
h)G&zO4tI
`~R051Testing软件测试网GHg2f!Av 51Testing软件测试网l3h'_#zr(e]B
SrJ"kY0|s(N0
Pf
Zrx c0
收藏
举报
TAG: