Сообщение IPM_GETADDRESS

Сообщение IPM_GETADDRESS получает IP-адрес в IP address control. Данный адрес хранится в сетевом порядке байтов. Для извлечения компонентов IP-адреса используйте макросы FIRST_IPADDRESS, SECOND_IPADDRESS, THIRD_IPADDRESS и FOURTH_IPADDRESS

Возвращаемое значение

Сообщение возвращает число пустых полей в IP address control

Параметры

wParam

Не используется, установите в 0

lParam

Получает IP-адрес

Пример

' Воспользуйтесь примером сообщения IPM_SETFOCUS для создания элемента
' Введите сами любые значения в этот созданный элемент
' и добавьте в нужное место код получения IP-адреса

Dim lRet As Long
Dim ipAddress As Long

lRet = SendMessage(hIPControl, IPM_GETADDRESS, ByVal CLng(0), ipAddress)
If lRet < 4 Then
     Debug.Print "Заполните все поля!"
     Exit Sub
End If
' Получим IP-адрес из IP address control
MsgBox FIRST_IPADDRESS(ipAddress) _
& "." & SECOND_IPADDRESS(ipAddress) _
& "." & THIRD_IPADDRESS(ipAddress) _
& "." & FOURTH_IPADDRESS(ipAddress)

Категория