QTP版"12306订票助手"－－支持刷票及自动预定

mmsw450

回复 20# 四季草堂


    QTP自带的IDE为主，辅之以VBSEdit、NotePad++等；

  推荐VBSEdit.蛮好用。

  Notepad++  用来格式化和阅读代码；很好使。

xajhuang

楼主说的“输入始发，终点 及 日期；然后点击查询按钮；因为12306作了一点小手段，
'导致QTP自动输入后查不出来车次！此步骤建议手动输入！！”其实是可以自动化实现的：输入值之前先使“WebEdit”获得焦点，然后输入值，再模拟键盘{Enter}一下，即可查询了，代码如下：

Set wshShell = CreateObject("Wscript.Shell")
With Browser("micclass:=Browser").Page("micclass:=Page")
'点击“车票预定”链接
.Link("name:=车票预订","class:=text_yellow").Click
'输入始发，终点 及 日期；然后点击查询按钮；加了几个Hidden的input，根据输入的车站值自动变化)

.WebEdit("name:=orderRequest.from_station_name").Click 1,1
.WebEdit("name:=orderRequest.from_station_name").Object.classname="input_20txt"
.WebEdit("name:=orderRequest.from_station_name").Object.value=  "杭州"
wshShell.SendKeys "{ENTER}"  

.WebEdit("name:=orderRequest.to_station_name").Click 1,1
.WebEdit("name:=orderRequest.to_station_name").Object.classname="input_20txt"
.WebEdit("name:=orderRequest.to_station_name").Object.value= "上海"
wshShell.SendKeys "{ENTER}"  

.WebEdit("name:=orderRequest.train_date").Object.value = "2013-2-13"
wshShell.SendKeys "{ENTER}"  
.WebButton("class:=search_u").Click

End With

mmsw450

回复 22# xajhuang
感谢 xajhuang兄 提供的方法；坛子里果然藏龙卧虎。

     我在之间曾试过，用QTP但无论输入值是什么，模拟回车时，都会变成“北京北”，如附图。
这让我略微郁闷了一把。所以才有附件代码中的注释。
不知道您那里为何能够正常，希望能加阁下QQ，交流一二。我Q：85645204

   手动输入的时候，是需要鼠标点一下悬浮提示站点，或者回车一下的。就会正常查询。
这时 ，它会把车站的站名和车站编号分别赋值给下面的FORM表单中。附图如下。
如果不执行回车过程，在FORM表单中，就没有这个编号值。查询的时候，结果也就为空。

xajhuang

我也是QTP的学习者之一，正好自己也在用QTP写小助手订票。看到贵兄的帖子，想学习一下，才有了上述不成熟的建议，“藏龙卧虎”实在不敢当。
   你说的那两种现象我都碰到了：1、直接赋值后查询，12306会提示“您选择的日期不在预售期内”；2、赋值后回车，出发地和目的地都是“北京北”。
   后来参考了一下手工操作，发现要在赋值之前使文本框获得焦点，然后赋值，再回车，这样就可以查询了。不过这样做有个问题：回车后会默认选择下拉框的第一个值。比如出发地，输入“北京”，回车后，会把下拉框第一个值“北京北”赋值给“出发地”，虽然不影响最后的查询结果。但是这也终归是个问题，呵呵。

想你的美

支持哈

xiaoshi_2011

顶一个

xiaoyouer

回复 1# mmsw450


    我对qtp只到了录制回放和简单设置参数级别，而且浏览器装了多个，要命的是装了360急速，所以ie一直不好用，现在又录制不了了。

泰然

呵呵,我也来做一个,对象名称有调整.另外脚本从完成登录,点开车票预订界面后开始执行.解决了输入的问题

1. Dim strFrom, strTo, strDate
   
2. strFrom = inputBox("出发地")
   
3. strTo = inputBox("目的地")
   
4. strDate = inputBox("出发日期，格式如2013-01-01")
   
5. 'strFrom = "上海"
   
6. 'strTo = "北京"
   
7. 'strDate = "2013-02-02"
   
8. Browser("12306").Page("NewOrder").Frame("main").WebEdit("FromCity").Set ""
   
9. Browser("12306").Page("NewOrder").Frame("main").WebEdit("FromCity").Click 1,1
   
10. Set oClp = CreateObject("Mercury.Clipboard")
    
11. oClp.Clear
    
12. oClp.SetText strFrom
    
13. Set oWsh = CreateObject("Wscript.shell")
    
14. oWsh.SendKeys "^v"
    
15. Set oCityList = Browser("12306").Page("NewOrder").Frame("main").Object.getElementById("panel_cities").ChildNodes
    
16. For i = 0 to oCityList.length -1
    
17.         If oCityList(i).ChildNodes(0).innertext=strFrom then
    
18.                 For j = 0 to i-1
    
19.                         oWsh.SendKeys "{DOWN}"
    
20.                 Next
    
21.                 oWsh.SendKeys "{ENTER}"
    
22.                 Exit for
    
23.         end if
    
24. Next
    
25. Set oCityList = Nothing
    
26. 
    
27. Browser("12306").Page("NewOrder").Frame("main").WebEdit("ToCity").Set ""
    
28. Browser("12306").Page("NewOrder").Frame("main").WebEdit("ToCity").Click 1,1
    
29. oClp.Clear
    
30. oClp.SetText strTo
    
31. oWsh.SendKeys "^v"
    
32. wait 1
    
33. Set oCityList = Browser("12306").Page("NewOrder").Frame("main").Object.getElementById("panel_cities").ChildNodes
    
34. For i = 0 to oCityList.length -1
    
35.         print oCityList(i).ChildNodes(0).innerhtml
    
36.         If oCityList(i).ChildNodes(0).innertext=strTo then
    
37.                 print i
    
38.                 For j = 0 to i-1
    
39.                         oWsh.SendKeys "{DOWN}"
    
40.                 Next
    
41.                 wait 1
    
42.                 oWsh.SendKeys "{ENTER}"
    
43.                 Exit for
    
44.         end if
    
45. Next
    
46. Set oCityList = Nothing
    
47. Set oWsh = Nothing
    
48. Set oClp = Nothing
    
49. 
    
50. Browser("12306").Page("NewOrder").Frame("main").WebEdit("TrainDate").Object.innerText = strDate
    
51. Browser("12306").Page("NewOrder").Frame("main").WebButton("Select").Click
    

复制代码

liurenhui

学以致用，，哈哈哈

104509426

楼上全是高手，能否请教如何提交订单呢，提交订单前必须要输入验证码？那些抢票软件是如何做到啊，求解啊

mmsw450

回复 28# 泰然


    泰然兄居然利用了剪贴版；呵呵；有想法。

   呆会试试你这部分代码。

mmsw450

回复 27# xiaoyouer


    QTP是利用BHOmanager插件驱动IE的、建议你把防火墙、杀软、助手啊，一些不常用IE插件都关闭或停用。

coolwind09

1. 
   
2. 绝对是人才。百分之百的是人才啊···

复制代码

hnhellen

楼主学以致用，受教了

hnhellen

不过我用QTP 到入不了文件 我用的是QTP 9.2 不知道是不是版本问题？

黑羽祭

有点意思啊~

pl80601983

学习与时俱进，真好．

seven_1987

牛逼人物！

mmsw450

回复 36# 黑羽祭


    谢  黑羽祭  彭Sir 两位版主捧场指导。  

咖啡猫来啦

来学习一下