¿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