Module is iNet
Your computer can have multiple network cards and cards can be activate/deactivated on the fly. For example if you connect to WiFi networks or you activate a VPN over a network.
Uses "inet"Uses "Console"
Long lCount
While %true
PrintL "Number of interfaces present:", INET_GetInterfaces
PrintL "------------------------------------------"
PrintL "-##-[IP ] [SubNet ] [Type]"
PrintL "------------------------------------------"
For lCount = 1 To INET_GetInterfaces
PrintL Format$(lCount, " 00"), _
Using$("\ \", INET_GetIp(lCount)), _
Using$("\ \", INET_GetSubNet(lCount)), _
Format$(INet_GetIpType(lCount), "0000")
Next
PrintL "------------------------------------------"
PrintL
PrintL " Press [ESC] to finish"
PrintL " 4 seconds for the next auto refresh "
PrintL " any key to refresh "
PrintL "------------------------------------------"
If WaitKey(4) = "[ESC]" Then Exit While
Cls
Wend
Bookmarks