Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Alex193
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Определить IP по MAC-адресу, Определить IP по MAC-адресу
 
#
25.07.2024 17:40:09
Доброго времени суток!

Прошу помощи, может кто сталкивался или просто знает как реализовать следующую задачу.
Допустим в столбце А имеется список MAC-адресов. Можно ли прошерстить этот список и через cmd или wmic найти соответствующие им IP-адреса?
Затруднение именно в части запроса через командную строку - как и какой запрос надо отправлять? или это невозможно и надо только сканером (отдельной программой) собирать и потом ВПРом выбирать?

Предполагается что это будет функция примерно такого вида:
A1B1
00-11-22-33-44-55 =GetIpByMac(A1)
 
Перейти    
Парсинг данных из таблицы на сайте, парсинг
 
#
13.07.2023 12:07:14
Добрый день коллеги! Прошу помощи, не могу понять почему парсинг в приведенном коде дает пустые значения.
Задача: собрать результаты склонений суммы из таблицы результатов запроса.

Тестил данный код на сайте https://numeralonline.ru/ - здесь все работает, разница лишь в том что собирать из тега div, а не из table как здесь
Код
Sub SumPropPadej()

Dim url As String
url = "https://summa-propisyu-online.ru/?sum=36%2C56&cur=RUB&nds=20&nds=20#main_form" 'запрос пока фиксированный = 36,56

' Creating and sending the request:
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP") '??XML??

xmlhttp.Open "GET", url, False '?GET ????
xmlhttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.send ""


' Getting the response:
Dim objHTML As Object
Set objHTML = CreateObject("htmlFile")

' Note: this objHTML.write will not work with early binding!
' In that case you have to use the .body.innerHTML
' like in the code sample above.
With objHTML
    .Open
    .write xmlhttp.responseText
    .Close
End With

' Parsing the response
Dim objDivs As Object, objDiv As Object
Dim objLis As Object, objLi As Object
Dim retText As String

Set objDivs = objHTML.getElementsByTagName("table")

For Each objDiv In objDivs
    If objDiv.ClassName = "table  table-bordered table-hover adaptive-table" Then
        Set objLis = objDiv.getElementsByTagName("td")
        For Each objLi In objLis
            retText = retText & objLi.innerText & vbNewLine
        Next objLi
    End If
Next objDiv

Debug.Print retText


End Sub
 
Перейти    
Страницы: 1
Наверх