倚天不出，谁与争锋？--第三度秒杀台湾馆，第一名！

,TX${r3V |+d I0前几天上班没空跑脚本，今天优化了脚本，再破纪录，这次是第一名！51Testing软件测试网V3g}8\\wx3b

都说QTP是倚天剑，哈哈，倚天不出，谁与争锋？！

~!PS'kX3dO0下面是贴图：51Testing软件测试网t4gQ `$aAmPK

Ir,W pt#s$_+k0

-D:r"a0`m0放送核心优化后的代码：51Testing软件测试网 J&e%v| rm5@

7a
h$j l2\0On Error Resume Next51Testing软件测试网"F4ce4G:fC
Do51Testing软件测试网R-{)\K-R+r;I
 SystemUtil.CloseProcessByName "IEXPLORE.EXE"
i-X-rXtru%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:d
qI0 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软件测试网DvVtLOD }
  Browser("Browser").Page("Page").Image("order_bt02_f2").FireEvent "onmouseover"
)h+mP1h#et"j}'l0  Browser("Browser").Page("Page").Image("order_bt02_f2").Click51Testing软件测试网^2NBI4M8r?|h)N o
 Loop
y9O6w,jL_| I x0Loop While Err.Number<>051Testing软件测试网rG[ D'R u\
On Error goto 0

 51Testing软件测试网l3h'_#zr(e]B

Sr
J"kY0|s(N0