QTP版"12306订票助手"
12306把订票助手封杀了，闲来无事用QTP写了个简单的刷票脚本。
登录以及设置始发、终点 、日期部分未做；一是简单，二是没有做的必要！（因为订票时，可能随时修改始、终站及购票日期，由QTP来控制不合理）
目前已实现的功能：
0、至少5秒自动查询一次（可设定查询间隔）
1、支持车次白名单，
2、支持席位选择，目前支持“仅卧铺”或“仅座票”或“全部”，一旦设定席位有票根据白名单自动预定车次
3、支持自动选择订票人员（暂未做验证码识别，不能自动提交订单）
使用方法：
1、先打开QTP,粘帖代码到IDE中，而后打开IE
2、登录帐号，设置好始发及终点站；出行日期。
3、修改NameList;WhiteList;FirstSelect三个变量
4、运行脚本即可
PS:
0 完全描述性编程，代码粘贴到QTP中即可使用。
1 仅个人娱乐之作，勿喷；欢迎指点。 测试交流群：288793120
2 在IE7 IE9，QTP9.2 QTP11 下测试通过
3 计划用JAVA+WebDriver重写
'**********************************
'Written by @以轩-之名
'Date : 2013年1月21日
'仅供娱乐和学习使用
'QQ：85645204
'请提前登录，设置好始发及终点站；出行日期。
'修改NameList;WhiteList;FirstSelect三个变量
'**********************************
Dim CheCi,i,j,WhiteList,NameList
'白名单；即想要预定的车次名单；车次之间以“,”隔开
WhiteList = "K110,T119,G315,D120,SB12306"
NameList="张三,李四" '订票人员名单
Dim hasTickt '标记是否已找到有票的车次
hasTickt = False
Dim FirstSelect '定义卧铺优先还是座票优先 值只能为 "卧铺"或"座票"或"全部"
FirstSelect = "卧铺"
Dim RowCountofTable '临时变量，保存当前车次及查询结果数
myArr = Split(WhiteList,",")
nameArr = Split(NameList,",")
Dim waitTime '查询间隔，至少为5秒；（12306规定每次间隔不低于5秒）
waitTime = 5
'检查是否是查到票，没有则循环刷新
While not hasTickt
Browser("micclass:=Browser").Page("micclass:=Page").WebButton("class:=search_u").Click
For i=0 To Ubound(myArr)
CheCi = myArr(i)
RowCountofTable = Browser("micclass:=Browser").Page("micclass:=Page").webTable("class:=obj row20px").RowCount
For j = 2 to RowCountofTable
'检查每一行车次名与白名单中车次是否一致，一致则检查对应车次的车票情况
If Browser("micclass:=Browser").Page("micclass:=Page").webTable("class:=obj row20px").ChildItem(j,1,"WebElement",0).GetROProperty("outertext")=CheCi Then
'检查该车次是否有卧铺或硬座或全部
If CheckTickt (j,FirstSelect) Then
hasTickt = true
Exit for
End If
End If
Next
'如果有票，则执行订票过程
If hasTickt Then
BookTickts(j)
Exit For
End If
Wait waitTime
Next
Wend
'根据名单列表选择相应的购票人员
For i = 0 to UBound(NameArr)
If Browser("micclass:=Browser").Page("micclass:=Page").WebCheckBox("html id:=" &NameArr(i) & ".*" ).Exist(1) Then
Browser("micclass:=Browser").Page("micclass:=Page").WebCheckBox("html id:=" &NameArr(i) & ".*" ).Set "on"
End If
Next
Function CheckTickt(i , XiWei)
With Browser("micclass:=Browser").Page("micclass:=Page").webTable("class:=obj row20px")
YingWo = .GetCellData(i,11)
RuanWo = .GetCellData(i,10)
GaoRuan = .GetCellData(i,9)
ShangWuZuo = .GetCellData(i,5)
TeDengZuo = .GetCellData(i,6)
YiDengZuo = .GetCellData(i,7)
ErDengZuo = .GetCellData(i,8)
RuanZuo = .GetCellData(i,12)
YingZuo = .GetCellData(i,13)
WuZuo = .GetCellData(i,14)
End with
If XiWei="卧铺" then
'检查所有卧铺票是否有票（包括软卧及高软）
If (NOT YingWo = "--" AND not YingWo = "无" AND not YingWo="*" ) OR _
( NOT RuanWo = "--" AND not RuanWo = "无" AND not RuanWo="*") OR _
(NOT GaoRuan = "--" AND not GaoRuan = "无" AND not GaoRuan="*") Then
CheckTickt = True
Exit Function
End If
ElseIF XiWei="座票" Then
'检查所有座票是否有座（包括站票）
If (NOT ShangWuZuo = "--" AND not ShangWuZuo = "无" AND not ShangWuZuo="*" ) OR _
( NOT TeDengZuo = "--" AND not TeDengZuo = "无" AND not TeDengZuo="*") OR _
(NOT YiDengZuo = "--" AND not YiDengZuo = "无" AND not YiDengZuo="*") _
OR (NOT ErDengZuo = "--" AND not ErDengZuo = "无" AND not ErDengZuo="*" ) OR _
(NOT RuanZuo = "--" AND not RuanZuo = "无" AND not RuanZuo="*" )OR _
(NOT YingZuo = "--" AND not YingZuo = "无" AND not YingZuo="*" )OR _
(NOT WuZuo = "--" AND not WuZuo = "无" AND not WuZuo="*" ) Then
CheckTickt = True
Exit Function
End If
ElseIF XiWei="全部" then
'检查按钮是否为灰色不可用，如果是，则无票；否则为有票。
If not Browser("micclass:=Browser").Page("micclass:=Page").webTable("class:=obj row20px").ChildItem(i,16,"WebElement",0).GetRoProperty("class")="btn130" then
'msgbox "有票:" &i
CheckTickt = True
End if
' class btn130
end if
End Function
Function BookTickts(j)
'点击对应车次后的“预定”按钮
Browser("micclass:=Browser").Page("micclass:=Page").webTable("class:=obj row20px").ChildItem(j,16,"WebElement",0).click
End Function
PS：转载注明出处
