Cómo usar vb para crear una herramienta de escaneo de IP

1. La IP de la red interna se puede verificar de acuerdo con el atributo LocalIP de winsock, por ejemplo, dim a as string a = winsock1.localIp 2. Se puede verificar la IP de la red externa. según la página web Utilice un archivo vacío de Internet para abrir www.ip138.com. Luego simplemente interceptelo. Por ejemplo: Private Sub Command1_Click() a = Inet1.OpenURL("www.ip38.com") 'Abra esta página web. obtiene el código fuente b = InStr(a, "Su dirección IP local :") 'Obtiene la posición donde aparece este carácter c = InStr(a, "?") 'Intercepta la posición donde aparece este carácter d = Mid(a, b 9, c - b - 10) 'Intercepta la posición entre estos dos caracteres El carácter es la IP MsgBox d, vbInformation, "La IP de tu red externa actual" End Sub 3. En cuanto a mostrar todos los puertos abiertos... Realmente. ¡No le desees buena suerte al cartel!