Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo abrir un archivo .url local en el control del navegador web de VB?

¿Cómo abrir un archivo .url local en el control del navegador web de VB?

Mire el siguiente código: 'Método de llamada del programa

'WebBrowser1.Navigate?GetURL (ruta de acceso directo)?

'Obtenga la función vinculada en el URL

¿Pública?Función?GetURL(ByVal?urlPath?As?String)?As?String

Dim?FileNum?As?Integer

Dim?Id ? As?String

Dim?Tem?As?String

Id?=?"[InternetShortcut]"'En el archivo URL, este es un identificador. Debajo de esta oración está el. Dirección URL

FileNum?=?FreeFile()

¿Abrir?urlPath?For?Input?As?#FileNum

Línea?Input?#FileNum,? Tem

Si?Tem?=?Id?Then'Obtener el identificador

Línea?Input?#FileNum,?Tem'La siguiente línea leída es la dirección

GetURL?=?Right(Tem,?Len(Tem)?-?4)'Eliminar la URL= en el encabezado de la dirección, es decir, eliminar 4 caracteres

Cerrar?#FileNum

¿Salir?Función'Salir de la función

¿Fin?Si

Cerrar?#NúmArchivo

'Si no se obtiene la dirección, especifique una el predeterminado aquí

GetURL?=?"about:blank"

Fin?Función