Board logo

标题: 获取天气预报的VBS [打印本页]

作者: youxi01    时间: 2007-11-5 19:58     标题: 获取天气预报的VBS

  1. '////code by youxi01@bbs.bathome.net
  2. '////初期作品;
  3. '////这里获取的天气预报是本人所在的城市的天气预报;
  4. '////原理:小偷程序,分析当地气象部门网页,然后截取相关内容
  5. dim http,length,fso, f
  6. function connect()
  7. dim info(4)
  8. url="http://www.qyqx.cn/zyyh.asp?class=fenxian"
  9. set http=wscript.createobject("Microsoft.XMLHttp")
  10. '-------连接、处理超时------------
  11. http.open "GET",url,true
  12. http.send
  13. for i=1 to 10
  14. if http.readystate=4 then            '11
  15. exit for
  16. end if
  17. wscript.sleep 500
  18. next
  19. '------------5秒都过去了,还不行,去死!---------
  20. if not http.readystate=4 then
  21. wscript.echo "连接服务器超时!请稍后连接..."
  22. exit function
  23. end if
  24. vIn=http.ResponseBody
  25. strReturn = ""
  26. For i = 1 To LenB(vIn)
  27. ThisCharCode = AscB(MidB(vIn,i,1))
  28. If ThisCharCode < &H80 Then
  29. strReturn = strReturn & Chr(ThisCharCode)
  30. Else
  31. NextCharCode = AscB(MidB(vIn,i+1,1))
  32. strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))
  33. i = i + 1
  34. End If
  35. Next
  36. '---------------取得英德段的信息---------------
  37. pos=instr(strReturn,"英德")             '36
  38. pos1=instr(strReturn,"阳山")
  39. length=pos1-pos
  40. getinfo=mid(strReturn,pos-75,length)
  41. '----------------分割信息----------------------
  42. for i=0 to 4   
  43. mypos=instr(getinfo,"<")
  44. mypos1=instr(getinfo,"td>")
  45. length1=mypos1-mypos
  46. info(i)=mid(getinfo,mypos,length1)
  47. info(i)=right(info(i),len(info(i))-74)   
  48. info(i)=left(info(i),len(info(i))-2)
  49. getinfo=right(getinfo,len(getinfo)-mypos1)
  50. next
  51. wscript.echo "城市:   "&info(0)&vbcrlf&"白天现象: " & info(1)&vbcrlf&"夜晚现象: " & info(2)&vbcrlf&"最
  52. 低温度: " & info(3)&vbcrlf& "最高温度: " & info(4)
  53. end function
  54. connect()
复制代码

作者: somebody    时间: 2007-11-14 00:58

呵呵,人家不知道你哪城市吖,还是我那个比较猛
作者: athinko    时间: 2009-10-6 10:59



怎么打不开啊。。。?
作者: Randy    时间: 2009-10-30 14:37

同二楼所言:


怎么打不开啊。。。?
作者: chaoxuanhacker    时间: 2010-9-6 14:38

不能用啊。 怎么办。 你要改进 啊。 嘿嘿·!
作者: ipqfhvk    时间: 2010-12-12 14:18

你取的那个网站不好,建议你换个网址
下载数据可以用、
On Error Resume Next
Set oDOM = WScript.GetObject(url)
do until oDOM.readyState = "complete"
WScript.sleep 100
Loop




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2