网上预约台湾馆攻略：教你用QTP秒杀台湾馆的网上预约--总耗时9秒！！！排名前三！！！

国庆期间逛了世博，听说台湾馆不错，所以打算去看看。但是台湾馆只能预约，而且网上预约只提供300张，我看了新闻，据说台湾馆这两天的网上预约都是20秒内秒杀售罄，我的天啊。。。

我去查了官网的订票记录发现有些人用时6秒，真是太可怕了，心想人的手哪能那么快呢？复制黏贴也来不及啊，看来一定用了一些自动填表的自动完成的功能，我忽然想起我有QTP，那岂不是也能做？手再快哪里有机器快呢？呵呵~51Testing软件测试网6J-@h;j;x7]V6v7l

:\b;kr6o#E0于是，开始动手做脚本，……

于是，就有了今天创纪录的排进了前三名的记录（以下截图记录在官网可查10月9日订票记录），而且在定完以后居然还剩下两百多张，可以再定一次，呵呵：

c$y!\"d ~z0看来学测试尤其是自动化测试还真有用，哈哈……51Testing软件测试网`*VN{~6U#zyF!k

c8x@5]nL0以下是QTP脚本（节选，为保护隐私，脚本中身份证号已修改）：

&j1o\5L7yL4s@$u0SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
zor
f$U0Browser("Browser").Page("Page").Sync
|qim!}-X`5SV0Browser("Browser").Navigate "http://www.expo2010taiwan.com/CN/order/order01.aspx"51Testing软件测试网MH U"}x
Browser("Browser").Page("Page").Sync
[6u_@-p0Browser("Browser").Page("Page").Image("order_bt02_f2").FireEvent "onmouseover"51Testing软件测试网EJ
S:nCh [U&kP
Browser("Browser").Page("Page").Image("order_bt02_f2").Click
X$Gg{;f(z'{.t)bo While Not Browser("Browser").Page("Page").WebEdit("txtFname1").Exist(0)51Testing软件测试网5Cf DnhT+a%j
 Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click51Testing软件测试网;m_/Ll-e-@#W
 Browser("Browser").Page("Page").Image("order_bt02_f2").FireEvent "onmouseover"51Testing软件测试网`6\CW1M
 Browser("Browser").Page("Page").Image("order_bt02_f2").Click 51Testing软件测试网 |AQ^O3Y v(l/V
Loop51Testing软件测试网sy*[4`-M
Browser("Browser").Page("Page").WebEdit("txtFname1").Set "谢"
\Vw~%| })m(Vd0Browser("Browser").Page("Page").WebEdit("txtLname1").Set "谢"51Testing软件测试网5M*J1P cy$|9s
Browser("Browser").Page("Page").WebRadioGroup("rdoType1").Select "I"
P)PJP!N8~qi0Browser("Browser").Page("Page").WebEdit("txtIno1").Set "123456789012345"51Testing软件测试网-KD-ADo/ZR&_;soz
Browser("Browser").Page("Page").WebEdit("txtFname2").Set "王"51Testing软件测试网*]_%hz9A
Browser("Browser").Page("Page").WebEdit("txtLname2").Set "谢"51Testing软件测试网#HU-c9DIC8V;?%o
Browser("Browser").Page("Page").WebRadioGroup("rdoType2").Select "I"51Testing软件测试网 H%z/@H-d7G3L qk4LS
Browser("Browser").Page("Page").WebEdit("txtIno2").Set "123456789012345"
@0t f5S%O.cr0Browser("Browser").Page("Page").WebList("drpTime").Select 1
,A4qtK:p:G&R
E0Browser("Browser").Page("Page").Image("btnNext").FireEvent "onmouseover"
\Wgg0Z*l\[h!L,k;bT0Browser("Browser").Page("Page").Image("btnNext").Click 19,11

:D BR)s/[9^[o0'.....................