请各位老师帮忙做个网页查询

puresway · 发表于 2011-3-9 16:32

各位老师，小弟今天遇到的网页查询的难题，不了解网页操作，请各位老师帮帮小弟，感激不尽！http://www.taikang.com/tab1206/详细请各位老师看附件，感激不尽！

puresway · 发表于 2011-3-9 17:05

顶一下，不知道狼版在不在？嘿嘿

xmyjk · 发表于 2011-3-9 17:21

你要取的图片的链接地址就是：http://mall.taikang.com/elicai/imageServlet

你搜索一下论坛的其他贴，有从网页取图片的例子，都知道链接了，很容易就可以做了。

[ 本帖最后由 xmyjk 于 2011-3-9 17:47 编辑 ]

puresway · 发表于 2011-3-9 17:29

原帖由 xmyjk 于 2011-3-9 17:21 发表
你要取的图片的网站就是：http://mall.taikang.com/elicai/imageServlet

你搜索一下论坛的其他贴，有从网页取图片的例子，都知道链接了，很容易就可以做了。

不懂网页操作，望前辈指导！谢谢

puresway · 发表于 2011-3-9 17:49

xmyjk老师在吗

xmyjk · 发表于 2011-3-9 19:25

纠正下，下午忙随便看了一眼，那个链接我搞错了。

http://mall.taikang.com/elicai/image.jsp?accountid=118201&fundcode=SZ&period=30
才能返回所需参数的图片

其中参数
accountid是理财险的险别
fundcode是比较品种（上证等）
period是对比期限

      <option value="118201" selected>e理财投连B款</option>
      <option value="506003" >积极成长型账户</option>
      <option value="506001" >稳健收益型账户</option>
      <option value="SZ" selected>上证指数</option>
      <option value="ZS000010" >上证180</option>
      <option value="ZS000016" >上证50</option>
      <option value="ZS000011" >上证基金指数</option>

      <option value="ZS000012" >国债指数</option>
      <option value="ZS000300" >沪深300</option>
      <option value="ZZ" >中债指数</option>

      <option value="ZS399001" >深证成指</option>
      <option value="ZS399005" >中小板指</option>
      <option value="ZS399106" >深证综指</option>
      <option value="ZS399305" >深证基金指数</option>
      <option value="519001" >银华核心价值优选基金</option>
      <option value="000011" >华夏大盘精选基金</option>
      <option value="000031" >华夏复兴基金</option>
      <option value="000001" >华夏成长基金</option>
      <option value="519692" >交银成长基金</option>
      <option value="180013" >银华领先策略基金</option>

<input type="radio" name="period" value="10" />10天
<input type="radio" name="period" value="30" checked/>30天
<input type="radio" name="period" value="90" />90天
<input type="radio" name="period" value="180" />180天
<input type="radio" name="period" value="1" />1年
<input type="radio" name="period" value="3" />3年

[ 本帖最后由 xmyjk 于 2011-3-9 20:40 编辑 ]

puresway · 发表于 2011-3-9 20:52

原帖由 xmyjk 于 2011-3-9 19:25 发表
纠正下，下午忙随便看了一眼，那个链接我搞错了。

http://mall.taikang.com/elicai/i ... de=SZ&period=30
才能返回所需参数的图片

其中参数
accountid是理财险的险别
fundcode ...

不知能不能麻烦前辈帮小弟做个程序，小弟对网页不懂，谢谢前辈！

puresway · 发表于 2011-3-9 21:25

顶一下，望各位老师帮忙！谢谢

puresway · 发表于 2011-3-9 21:41

狼版在吗？嘿嘿

xmyjk · 发表于 2011-3-9 21:54

比较忙，先做了个把图片下载到硬盘的
你再照着改吧

Option Explicit
Sub chaxun()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "get", "http://mall.taikang.com/elicai/image.jsp?accountid=118201&fundcode=SZ&period=30", False
xmlhttp.setRequestHeader "Content-Type", "text/html"
xmlhttp.Send ""
Do Until xmlhttp.ReadyState = 4
DoEvents
Loop
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "get", "http://mall.taikang.com/elicai/imageServlet", False
xmlhttp.setRequestHeader "Content-Type", "text/html"
xmlhttp.Send ""
Do Until xmlhttp.ReadyState = 4
DoEvents
Loop
If xmlhttp.Status = 200 Then
' Debug.Print xmlhttp.responseText
With CreateObject("ADODB.Stream")
.Type = 1
.Open
.write xmlhttp.Responsebody
.savetofile ThisWorkbook.Path & "" & "1" & ".jpg", 2 '另存图片
.Close
End With
Else
reportErr (xmlhttp.Status)
End If
End Sub
Sub reportErr(lStatus As Integer)
Select Case lStatus
Case 400
MsgBox "Bad Request", vbCritical, "连接错误"
Case 401
MsgBox "Unauthorized", vbCritical, "连接错误"
Case 402
MsgBox "Payment Required", vbCritical, "连接错误"
Case 403
MsgBox "Forbidden", vbCritical, "连接错误"
Case 404
MsgBox "Not Found", vbCritical, "连接错误"
Case 407
MsgBox "Proxy Authentication Required", vbCritical, "连接错误"
Case 408
MsgBox "Request Timeout", vbCritical, "连接错误"
Case 503
MsgBox "Service Unavailable", vbCritical, "连接错误"
Case Else
MsgBox "Can not reach by other reason", vbCritical, "连接错误"
End Select
End Sub

复制代码

[ 本帖最后由 xmyjk 于 2011-3-9 21:59 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 请各位老师帮忙做个网页查询