vbs获取网页信息实例

batman

1. '提取bathome主页中的会员数信息
   
2. Set Http = CreateObject("Microsoft.XMLHTTP")
   
3. Http.Open "get","http://www.bathome.net",False
   
4. Http.Send
   
5. MsgBox "批处理之家论坛目前会员人数为："&vbCRLF&Mid((RegExpTest("会员: <em>[0-9]+",Zhuanhuan(Http.responsebody))),9,100)
   
6. Set Http = Nothing
   
7. 
   
8. '创建正则用以搜索关键字符串
   
9. Function RegExpTest(Patrn, String)
   
10.   Dim RegEx, Match, Matches   
    
11.   Set RegEx = New RegExp        
    
12.   RegEx.Pattern = patrn         
    
13.   RegEx.IgnoreCase = True      
    
14.   RegEx.Global = True        
    
15.   Set Matches = RegEx.Execute(String)
    
16.   For Each Match in Matches
    
17.     RetStr = RetStr&Match.Value
    
18.   Next
    
19.   RegExpTest = RetStr
    
20. End Function
    
21. 
    
22. '创建转换函数用以转换编码
    
23. Function Zhuanhuan(vIn)
    
24.   strReturn = ""
    
25.     For i = 1 To LenB(vIn)
    
26.       ThisCharCode = AscB(MidB(vIn,i,1))
    
27.       If ThisCharCode < &H80 Then
    
28.         strReturn = strReturn & Chr(ThisCharCode)
    
29.         Else
    
30.         NextCharCode = AscB(MidB(vIn,i+1,1))
    
31.         strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    
32.         i = i + 1
    
33.       End If
    
34.     Next
    
35.    Zhuanhuan = strReturn
    
36. End Function

复制代码

[ 本帖最后由 batman 于 2011-3-11 23:09 编辑 ]

Batcher

凑个热闹

1. wget -q http://bbs.bathome.net -O - | gawk -F "[<>]+" "/在线会员/{getline; print $3}"

复制代码