Поиск нескольких IP-адресов

Мне было интересно, есть ли API, который позволит мне вставить 100 или более IP-адресов, разделенных новой строкой, отследить их и получить всю информацию одним нажатием кнопки? На данный момент я использую бесплатный API, но не могу понять, может ли он отслеживать несколько IP-адресов, и если да, то как?

Вот URL-адрес API: http://www.ipaddressapi.com/

и вот URL-адрес, в конце которого я ввожу IP-адрес:

http://www.ipaddressapi.com/l/55ffa3e1bb4f123a2e0e21bf30a6731fec615a69b682?h=45.0.0.0

Я пытался сделать это так

http://www.ipaddressapi.com/l/55ffa3e1bb4f123a2e0e21bf30a6731fec615a69b682?h=45.0.0.0&47.0.0.0 (добавление второго IP-адреса), но это тоже не сработало. Любые предложения или мысли?


asp.net ip vb.net ip-geolocation
person HShbib    schedule 29.11.2012    source источник
comment
Приобретите лицензию API и/или базу данных.   -  person EdSF    schedule 29.11.2012
comment
Просто сделать поиск в цикле?   -  person Matt Wilko    schedule 29.11.2012
comment
@MattWilko Думая об этом, я мог бы прочитать файл с этими адресами, а затем в цикле найти их все. Любая идея о том, как будет достигнута петля? Я написал код для чтения файла, IP-адреса которого разделены новой строкой. Цикл будет считывать каждый IP-адрес отдельно и добавлять его в качестве аргумента к упомянутой выше ссылке, запускаемой нажатием кнопки. Затем результаты будут отображаться, например, на этикетке. Есть мысли по поводу такой петли?   -  person HShbib    schedule 29.11.2012

Ответы (1)


arrow_upward
0
arrow_downward

Просто сделайте что-то вроде следующего:

Прокрутите ваши IP-адреса:

For Each s as String in MyAddresses
    'Add the ip address on the end of the url you wish to get the data for:
    Dim result as string = GetWebPageAsString(New Uri("http://someaddress.com?" + s))
    'parse result however you need to here
Next

Функция для получения веб-страницы в виде строки

Public Shared Function GetWebPageString(ByVal address As Uri) As String
    Try
        Using client As New Net.WebClient()
            Return client.DownloadString(address)
        End Using
    Catch ex As System.Exception
        Return ""
    End Try
End Function
person Matt Wilko    schedule 29.11.2012