asnahu

试试VBS吧：

With CreateObject("InternetExplorer.Application")
  .Visible = true
  .Navigate "http://sports.sina.com.cn/l/2009-10-19/09444643737.shtml"
  Do While .readyState <> 4
  Loop
  str = .document.body.innerText
  str = Split(str, vbCrLf)
  For i = 0 To Ubound(str) - 1
    If Instr(str(i), "欧洲投注火线") > 0 Then
      colLines = colLines & str(i) & vbCrLf
    End If
  Next
  Wscript.Echo colLines
End With
复制代码