(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) p>
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" p>
@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