求助如何获取该网页的查询内容
请问下下面这个网页中的机票查询结果包含在哪个页面呢直接在该页查看源文件没有查询结果。
麻烦熟悉网页的高手们帮帮忙,多谢啦!!!!
http://flight.qunar.com/site/oneway_list.htm?searchDepartureAirport=%E6%B7%B1%E5%9C%B3&searchArrivalAirport=%E5%8C%97%E4%BA%AC&searchDepartureTime=2012-02-14&searchArrivalTime=2012-02-17&nextNDays=0&startSearch=true&from=fi_ont_search 网页开发高手出来帮帮忙啊!!! 直接找到页面不会,读到数据估计可以。具体要什么字符串? 恩恩,能获取到 机型,价格,时间等等搜索内容就行了。。。 不管用什么方式获取源文件都是提示:
请稍等您查询的结果正在实时搜索..
麻烦afan大了!!! #include <IE.au3>
Local $sURL = "http://flight.qunar.com/site/oneway_list.htm?searchDepartureAirport=%E6%B7%B1%E5%9C%B3&searchArrivalAirport=%E5%8C%97%E4%BA%AC&searchDepartureTime=2012-02-14&searchArrivalTime=2012-02-17&nextNDays=0&startSearch=true&from=fi_ont_search"
Local $File = 'test.txt'
Local $str = _GetJsHTML($sURL, 'CLEAR: both')
If Not @error Then
FileDelete($File)
FileWrite($File, $str)
ShellExecute($File)
Else
MsgBox(48, '错误', '超时')
EndIf
Func _GetJsHTML($sURL, $sKey, $Wait = 5)
;afan提示: $sKey 最好为包含字符串的唯一特征字符
; $Wait 超时参数,单位秒
Local $ts = TimerInit()
Local $hGui = GUICreate('')
Local $oIE = _IECreateEmbedded(), $sHtm = '', $Flag, $Error, $GUIActiveX
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0)
$oIE.navigate($sURL)
_IELoadWait($oIE) ;注:这里的等待加载完毕并不准确
While TimerDiff($ts) / 1000 < $Wait
$sHtm = _IEDocReadHTML($oIE)
If StringInStr($sHtm, $sKey) Then
$Flag = 1
ExitLoop
EndIf
Sleep(10)
WEnd
If Not $Flag Then
$sHtm = ''
$Error = 1
EndIf
$oIE = 0
GUIDelete($hGui)
Return SetError($Error, 0, $sHtm)
EndFunc ;==>_GetJsHTML
感谢afan大了!!!
不过在我这里似乎还是不大好用,而且调用IE不理想。。。
页:
[1]