获取天气预报的VBS

youxi01

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. 
   
10. set http=wscript.createobject("Microsoft.XMLHttp")
    
11. '-------连接、处理超时------------
    
12. http.open "GET",url,true
    
13. http.send
    
14. for i=1 to 10
    
15. if http.readystate=4 then            '11
    
16. exit for
    
17. end if
    
18. wscript.sleep 500
    
19. next
    
20. '------------5秒都过去了，还不行，去死!---------
    
21. if not http.readystate=4 then
    
22. wscript.echo "连接服务器超时!请稍后连接..."
    
23. exit function
    
24. end if
    
25. 
    
26. vIn=http.ResponseBody
    
27. strReturn = ""
    
28. For i = 1 To LenB(vIn)
    
29. ThisCharCode = AscB(MidB(vIn,i,1))
    
30. If ThisCharCode < &H80 Then
    
31. strReturn = strReturn & Chr(ThisCharCode)
    
32. Else
    
33. NextCharCode = AscB(MidB(vIn,i+1,1))
    
34. strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))
    
35. i = i + 1
    
36. End If
    
37. Next
    
38. 
    
39. '---------------取得英德段的信息---------------
    
40. pos=instr(strReturn,"英德")             '36
    
41. pos1=instr(strReturn,"阳山")
    
42. length=pos1-pos
    
43. getinfo=mid(strReturn,pos-75,length)
    
44. '----------------分割信息----------------------
    
45. for i=0 to 4   
    
46. mypos=instr(getinfo,"<")
    
47. mypos1=instr(getinfo,"td>")
    
48. length1=mypos1-mypos
    
49. info(i)=mid(getinfo,mypos,length1)
    
50. info(i)=right(info(i),len(info(i))-74)   
    
51. info(i)=left(info(i),len(info(i))-2)
    
52. getinfo=right(getinfo,len(getinfo)-mypos1)
    
53. next
    
54. wscript.echo "城市：   "&info(0)&vbcrlf&"白天现象： " & info(1)&vbcrlf&"夜晚现象： " & info(2)&vbcrlf&"最
    
55. 
    
56. 低温度： " & info(3)&vbcrlf& "最高温度： " & info(4)
    
57. end function
    
58. connect()

复制代码

somebody

呵呵，人家不知道你哪城市吖，还是我那个比较猛

athinko

一

怎么打不开啊。。。？

Randy

同二楼所言：
一

怎么打不开啊。。。？

chaoxuanhacker

不能用啊。 怎么办。 你要改进 啊。 嘿嘿·！

ipqfhvk

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