vb的webbroswer控件怎么打开本地的.url文件？

请看下面的代码:

'程序调用方法
'WebBrowser1Navigate GetURL(快捷方式路径)  
'取得URL里链接的函数
Public Function GetURL(ByVal urlPath As String) As String
    Dim FileNum As Integer
    Dim Id As String
    Dim Tem As String
    Id = "[InternetShortcut]"   '在URL文件中，这是一个标识，在这一句下面就是URL地址
    FileNum = FreeFile()
    Open urlPath For Input As #FileNum
        Line Input #FileNum, Tem
        If Tem = Id Then    '得到标识
            Line Input #FileNum, Tem    '再读入的一行就是地址
            GetURL = Right(Tem, Len(Tem) - 4)   '把地址头部的URL=去掉，即去掉4个字
            Close #FileNum
            Exit Function   '退出函数
        End If
    Close #FileNum
    '如果没有得到地址，这里指定一个默认的
    GetURL = "about:blank"
End Function

URL是网址，如果该URL是文件地址，那么打开这个URL会提示下载该文件。
文件下载完成后，根据文件的不同类型，使用相关联的应用软件即打开（编辑）该文件。
如果已经安装有关联应用软件，直接双击即可打开（浏览、编辑）文件；未安装有关联应用软件则无法打开（浏览、编辑）该文件，需安装关联应用软件。比如后缀为rar、zip等文件需要安装有压缩解压软件。

01

安卓手机打开url文件首先需要在文件管理器中找到需要打开的url文件，再用“文本”方式打开，点击使用HTML查看器打开。最底下一行是网络地址，从“＝”号后面开始选择，直接复制，打开浏览器在浏览器搜索栏中粘贴url，点击进入即可看到相关内容。

安卓手机打开url文件需要一个带有浏览器以及正常上网能力的手机，打开方式如下：

1、在文件管理器中找到需要打开的url文件，并选择打开方式为“文本”。

2、用“文本”方式打开后，会d出查看工具，点击使用HTML查看器打开。

3、最底下一行是网络地址，从“＝”号后面开始选择，直接复制。

4、打开浏览器在浏览器搜索栏中粘贴url，点击进入

URL：统一资源定位符是对可以从互联网上得到的资源的位置和访问方法的一种简洁的表示，是互联网上标准资源的地址。互联网上的每个文件都有一个唯一的URL，它包含的信息指出文件的位置以及浏览器应该怎么处理它。

首先需要一台安装有浏览器且能够正常上网的手机。

一、在文件管理器中找到需要打开的url文件，并选择打开为文本。

二、使用HTML查看器打开。

三、最下面一行即为网址，直接复制。

四、在浏览器中粘贴网址。

五、直接搜索转到目标网站。

---