Board logo

标题: vbs获取网页信息实例 [打印本页]

作者: batman    时间: 2011-3-11 23:07     标题: vbs获取网页信息实例

  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. Function RegExpTest(Patrn, String)
  9.   Dim RegEx, Match, Matches   
  10.   Set RegEx = New RegExp        
  11.   RegEx.Pattern = patrn         
  12.   RegEx.IgnoreCase = True      
  13.   RegEx.Global = True        
  14.   Set Matches = RegEx.Execute(String)
  15.   For Each Match in Matches
  16.     RetStr = RetStr&Match.Value
  17.   Next
  18.   RegExpTest = RetStr
  19. End Function
  20. '创建转换函数用以转换编码
  21. Function Zhuanhuan(vIn)
  22.   strReturn = ""
  23.     For i = 1 To LenB(vIn)
  24.       ThisCharCode = AscB(MidB(vIn,i,1))
  25.       If ThisCharCode < &H80 Then
  26.         strReturn = strReturn & Chr(ThisCharCode)
  27.         Else
  28.         NextCharCode = AscB(MidB(vIn,i+1,1))
  29.         strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
  30.         i = i + 1
  31.       End If
  32.     Next
  33.    Zhuanhuan = strReturn
  34. End Function
复制代码

[ 本帖最后由 batman 于 2011-3-11 23:09 编辑 ]
作者: Batcher    时间: 2011-3-11 23:24

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





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