批处理之家 - Powered by Discuz! Board

标题: [网络连接] [已解决]请问如何实现通过网页查询IP提取所在的IP段？ [打印本页]

作者: super1129 时间: 2011-9-27 14:37 标题: [已解决]请问如何实现通过网页查询IP提取所在的IP段？

本帖最后由 super1129 于 2011-9-29 08:39 编辑

请问大家：
我有一个1.txt文本，里面是IP列表：
134.148.132.225
193.188.135.22
………………

我想通过调用浏览器查询所在IP段，如下所示：
http://whois.cooleasy.com/134.148.132.225
网页会出来NetRange: 134.148.0.0 - 134.148.255.255
提取134.148.0.0 - 134.148.255.255 保存即可。

该如何编程呢？（包含从txt导入，并导出至txt） O(∩_∩)O谢谢

据说curl, wget, VBS都能解决，这三者效率相比如何？哪个更好？

如果IP列表比较大的话，是不是受网络的影响？

http://www.bathome.net/thread-5867-1-1.html 中说

因数百个链接的页面用浏览器打开太慢，从而想到用 wget 下载页面到时本地再从文本中提取出链接地址

是不是可以借鉴？
可惜偶没看懂，请大家帮忙啊！

作者: ArdentMan 时间: 2011-9-28 23:19

另存为.vbs，代码懒得优化了

Dim FSO, IpList
Set FSO = CreateObject("Scripting.FileSystemObject")
IpList = Split(FSO.OpenTextFile("1.txt").ReadAll(), vbCrLf)
For Each str In IpList
  If str <> vbNullString Then 
    GetWeb "http://whois.cooleasy.com/" & str
    GetTxt 
  End If
Next
FSO.DeleteFile "temp.txt"
Set FSO = Nothing
CreateObject("Wscript.Shell").Run "IpList.txt"

Function GetWeb(Url) 
  Dim XMLHTTP, STREAM
  Set XMLHTTP = CreateObject("MsXml2.XmlHttp")
  XMLHTTP.open "Get", Url, False
  XMLHTTP.send()
  Do Until XMLHTTP.readyState = 4 : WScript.Sleep 200 : Loop
  Set STREAM = CreateObject("Adodb.Stream")
  STREAM.Mode = 3
  STREAM.Type = 1
  STREAM.Open()
  STREAM.Write(XMLHTTP.responseBody)
  STREAM.SaveToFile "temp.txt", 2
  STREAM.Close
  Set STREAM = Nothing
  XMLHTTP.abort
  Set XMLHTTP = Nothing
End Function

Function GetTxt
  Dim vbStr, Arr
  vbStr = Replace(FSO.OpenTextFile("temp.txt").ReadAll(), vbLf, vbCrLf)
  Arr = Split(vbStr, vbCrLf)
  For Each str In Arr
    If InStr(str, "NetRange:") Then FSO.OpenTextFile("IpList.txt", 8, True).Write Left(GetUrl(str), Len(GetUrl(str))-8) & vbCrLf
  Next
End Function

Function GetUrl(Str)
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Global = True
  RegEx.IgnoreCase = True
  RegEx.Pattern = ".*?>([^<>]+)<.*?"
  GetUrl = RegEx.Replace(Str, "$1")
End Function
复制代码

作者: super1129 时间: 2011-9-29 08:41

回复 2# ArdentMan

非常感谢！
请问下保存后，小红伞提示有病毒 [DETECTION] Contains recognition pattern of the HTML/ADODB.Exploit.Gen HTML script virus

请问是正常的吗？

作者: ArdentMan 时间: 2011-9-29 09:03

回复 3# super1129
你也看得出上面的VBS代码是不可能存在病毒和木马行为滴~~~

作者: hfg1977 时间: 2011-9-29 10:38

curl -s http://whois.cooleasy.com/134.148.132.225|sed -n "/NetRange/ {s/\(<[^>]*>\)//g;p}"
复制代码

作者: super1129 时间: 2011-9-29 14:42

回复 4# ArdentMan

应该是误报，O(∩_∩)O谢谢

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2