..
MsgBox "IP = " & Winsock1.LocalIP
..
Как можно проверить АйПи адрес компа...
[COLOR="Blue"]Как можно проверить АйПи адрес компа, если это тот Ай Пи то запускается програмка а если нет то нет:confused: [/COLOR]
Вот так. Если я правильно понял:
Winsock1 - компонент на форме.
Код:
Winsock1 - компонент на форме.
Если использование Winsock почему-либо невозможно или нежелательно (например, в проекте нет ни одной формы), то для определения IP-адреса можно воспользоваться средствами WMI:
Код:
Function Read_IPAddr()
Dim ojWMI As Object, colectLANAdap As Object, curLA As Object
Dim numLANAdap As Integer
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colectLANAdap = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=True")
numLANAdap = colectLANAdap.Count
If numLANAdap > 0 Then
For Each curLA In colectLANAdap
MsgBox curLA.Description & vbCr & curLA.IPAddress(0)
Next
Else
MsgBox "Не найдено ни одного сетевого адаптера."
End If
Set colectLANAdap = Nothing
Set objWMI = Nothing
End Function
Dim ojWMI As Object, colectLANAdap As Object, curLA As Object
Dim numLANAdap As Integer
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colectLANAdap = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=True")
numLANAdap = colectLANAdap.Count
If numLANAdap > 0 Then
For Each curLA In colectLANAdap
MsgBox curLA.Description & vbCr & curLA.IPAddress(0)
Next
Else
MsgBox "Не найдено ни одного сетевого адаптера."
End If
Set colectLANAdap = Nothing
Set objWMI = Nothing
End Function
Не ребята подожди, Я хотел спросить о том компьютере в котором находится программа! Koltaviy по моему твоя версия как я понял для моего случая!
Народ спасибо за все, кажется сейчас получится!
Народ спасибо за все, кажется сейчас получится!