(200 puntos) Problemas para obtener IP local y volver a obtener IP en VB

DOS obtiene la IP local (los comentarios entre paréntesis son comentarios, no los copie al ingresar el comando).

Método 1: arp -a (Interfaz: lo que sigue es su propia dirección IP)

Método 2: ipconfig/all (lo que sigue La dirección IP es su propia dirección IP)

DOS vuelve a adquirir IP

cmd /c ipconfig /release (libere la IP, el siguiente comando no será válido si no realiza este paso)

cmd /c ipconfig /renew (recuperar IP)

Cuando no puedas acceder a Internet o haya un conflicto de IP, puedes pegar el siguiente código en el Bloc de notas, guardarlo con el siguiente nombre de archivo y ejecutar:

Recuperar IP.bat

@echo desactivado

@echo está recuperando IP, espere...

cmd /c ipconfig /release gt ; nul

cmd /c ipconfig /renew gt; nul

arp -a

@echo "Interfaz: la siguiente es su propia dirección IP"

@echo "Haga clic en cualquier lugar para crear una conexión de red de prueba (los saltos continuos indican que la red es normal)"

pausa

ping www.baidu.com -t

Este programa está en La prueba pasó bajo mi sistema XP.

No vincule la IP de la tarjeta de red antes de ejecutar este procedimiento; de lo contrario, los dos comandos para volver a obtener la IP no serán válidos.

------------------------------------------- ----- ------------

'VB obtiene la IP local

Private Sub Command1_Click()

Dim winIP como objeto

p>

Establecer winIP = CreateObject("MSWinsock.Winsock")

MsgBox "IP local:" amp; >Fin Sub

---------------------------------------- -------- ------

'VB habilita y deshabilita las conexiones de red

Opción explícita

Private Const NetConnect = amp; H31

Private Sub Command1_Click() 'Deshabilitar la conexión local

Dim blnRelust As Boolean

'Reemplaza la conexión local con el nombre de la conexión local que deseas para controlar

blnRelust = ExcNetLinkMenu("Conexión de área local", "Disable(amp;B)")

'xp

Si blnRelust entonces

Debug.Print "Desactivar éxito"

Else

blnRelust = ExcNetLinkMenu("Conexión de área local", "Desactivar(amp;B)")

Finalizar si

Si blnRelust Entonces

Debug.Print "Desactivación exitosa"

Else

Debug.Print "Error de desactivación"

End If

End Sub

Private Sub command2_Click() 'Habilitar conexión local

'Reemplaza la conexión local con el nombre de la conexión local que desea controlar

Dim blnRelust As Boolean

blnRelust = ExcNetLinkMenu("Conexión de área local", "Enable(amp;A)")

Si blnRelust Entonces

Debug.Print "Activación exitosa"

De lo contrario

Debug.Print "Error de activación"

Finalizar si

End Sub

'Primera cita Automatización y controles de Microsoft Shell

'Primero busque la carpeta virtual "Conexión de red", luego busque el elemento de carpeta correspondiente al local conexión que desea controlar y luego enumere el verbo para encontrar el verbo posterior requerido, llame al método DoIt del verbo

Función privada ExcNetLinkMenu(ByVal AdapterName As String, ByVal MenuName As String)

Como booleano

Atenuar objShell como nuevo Shell32.Shell

Atenuar objFolder como Shell32.Folder

Atenuar objFolderItem como Shell32.FolderItem

Atenuar objShellFolderItem como ShellFolderItem

Dim objFolderItemVerb como Shell32.FolderItemVerb

Dim blnRelust como booleano

En caso de error, reanudar siguiente

Establezca objFolder = objShell. NameSpace(NetConnect)

Si ObjPtr(objFolder) = 0 Entonces

ExcNetLinkMenu = False

Función de salida GoTo

Finalizar si

Para cada objFolderItem en objFolder.Items 'Recorre la colección de carpetas de conexión de red

Si objFolderItem.Name = AdapterName Entonces

Establece objShellFolderItem = objFolderItem

blnRelust = True

Salir para

Finalizar si

Siguiente

Si blnRelust = False Entonces

ExcNetLinkMenu = Falso

Función de salida GoTo

Fin si

Para cada objFolderItemVerb In objShellFolderItem.Verbs 'Recorre el menú contextual de la conexión local

Si objFolderItemVerb. Name = MenuName Entonces

objFolderItemVerb.DoIt

ExcNetLinkMenu = True

Salir para

Finalizar si

Siguiente

Si blnRelust = False Entonces ExcNetLinkMenu = False

Función de salida:

Establecer objShell = Nada

Establecer objFolder = Nada

Establecer objFolderItem = Nada

Establecer objShellFolderItem =

Nada

Establecer objFolderItemVerb = Nada

Finalizar función