Получение цели ярлыков URL (какой код быстрее?)

Option Explicit
 
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpszGuid As Long, pGuid As UUID) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynW" (ByVal lpString1 As Long, ByVal lpString2 As Long, ByVal iMaxLength As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
 
Dim IID_IURLW As UUID
 
Private Sub Form_Load()
    
    IURL_Init
    
    Debug.Print GetUrlTargetW("c:\1\HDTunePro.url")
    Debug.Print GetUrlTargetW("c:\1\010Editor.url")
    
    Unload Me
End Sub
 
Sub IURL_Init()
    Const IIDSTR_IURLW = "{CABB0DA0-DA57-11CF-9974-0020AFD79762}"
    ' Заполняем структуру UUID
    CLSIDFromString StrPtr(IIDSTR_IURLW), IID_IURLW
End Sub
 
' Получить цель из ярлыка URL
Public Function GetUrlTargetW(URLpathW As String) As String
    Dim IURL      As IUniformResourceLocatorW
    Dim IPF_URL   As IPersistFile
    Dim oIS       As InternetShortcut   'IURL CoClass
    Dim strLen    As Long
    Dim ptr       As Long
    Dim URLtarget As String
    
    Set oIS = New InternetShortcut
    ' Получаем указатель на интерфейс IUniformResourceLocatorW
    oIS.QueryInterface IID_IURLW, IURL
    ' Работаем с объектом URL через интерфейс IPersistFile
    Set IPF_URL = IURL
    ' Загружаем ярлык URL
    IPF_URL.Load URLpathW, STGM_READ
    ' Получаем указатель на строку с URL
    ptr = IURL.GetUrl
    strLen = lstrlen(ptr)
    URLtarget = Space(strLen)
    lstrcpyn StrPtr(URLtarget), ptr, strLen + 1
    ' Освобождаем указатель
    GlobalFree ptr
    Set IPF_URL = Nothing
    IURL.Release
    Set IURL = Nothing
    Set oIS = Nothing
    
    GetUrlTargetW = URLtarget
End Function

Option Explicit
 
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpszGuid As Long, pGuid As UUID) As Long
Private Declare Function CoCreateInstance Lib "ole32" (rclsid As Any, ByVal pUnkOuter As Long, ByVal dwClsContext As Long, riid As Any, pvarResult As Object) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynW" (ByVal lpString1 As Long, ByVal lpString2 As Long, ByVal iMaxLength As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
 
Dim IID_IURLW               As UUID
Dim CLSID_InternetShortcut  As UUID
 
Private Sub Form_Load()
    
    IURL_Init
    
    Debug.Print GetUrlTargetW("c:\1\HDTunePro.url")
    Debug.Print GetUrlTargetW("c:\1\010Editor.url")
        
    Unload Me
End Sub
 
Sub IURL_Init()
    Const CLSIDSTR_InternetShortcut As String = "{FBF23B40-E3F0-101B-8488-00AA003E56F8}"
    Const IIDSTR_IURLW              As String = "{CABB0DA0-DA57-11CF-9974-0020AFD79762}"
  
    CLSIDFromString StrPtr(IIDSTR_IURLW), IID_IURLW
    CLSIDFromString StrPtr(CLSIDSTR_InternetShortcut), CLSID_InternetShortcut
End Sub
 
' Получить цель из ярлыка URL
Public Function GetUrlTargetW(URLpathW As String) As String
    Dim IURL        As IUniformResourceLocatorW
    Dim IPF_URL     As IPersistFile
    Dim strLen      As Long
    Dim ptr         As Long
    Dim URLtarget   As String
    
    CoCreateInstance CLSID_InternetShortcut, 0&, CLSCTX_INPROC_SERVER, IID_IURLW, IURL
    Set IPF_URL = IURL
    
    ' Загружаем ярлык URL
    IPF_URL.Load URLpathW, STGM_READ
    ' Получаем указатель на строку с URL
    ptr = IURL.GetUrl
    strLen = lstrlen(ptr)
    URLtarget = Space(strLen)
    lstrcpyn StrPtr(URLtarget), ptr, strLen + 1
    ' Освобождаем ресурсы
    GlobalFree ptr
    Set IPF_URL = Nothing
    IURL.Release
    Set IURL = Nothing
    
    GetUrlTargetW = URLtarget
End Function

Option Explicit
 
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynW" (ByVal lpString1 As Long, ByVal lpString2 As Long, ByVal iMaxLength As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Long)
 
Dim IURL      As IUniformResourceLocatorW
Dim IPF_URL   As IPersistFile
Dim oIS       As InternetShortcut   'IURL CoClass
Dim IM_URL    As IMalloc
 
Private Sub Form_Load()
    IURL_Init
    Debug.Print GetUrlTargetW(App.Path & "\HDTunePro.url")
    Debug.Print GetUrlTargetW(App.Path & "\010Editor.url")
    IURL_Release
    Unload Me
End Sub
 
Sub IURL_Init()
    Set oIS = New InternetShortcut      ' IShellLinkW : IUnknown
    Set IURL = oIS                      ' IShellLinkW -> IUniformResourceLocatorW
    Set IPF_URL = oIS                   ' IShellLinkW -> IPersistFile
End Sub
 
' Получить цель из ярлыка URL
Public Function GetUrlTargetW(URLpathW As String) As String
    Dim strLen    As Long
    Dim ptr       As Long
    Dim URLtarget As String
    
    ' Загружаем ярлык URL
    IPF_URL.Load URLpathW, STGM_READ
    ' Получаем указатель на строку с URL
    ptr = IURL.GetUrl
    strLen = lstrlen(ptr)
    URLtarget = Space(strLen)
    lstrcpyn StrPtr(URLtarget), ptr, strLen + 1
    ' Освобождаем указатель
    GlobalFree ptr
    
    ' DeAlloc memory block
    'IM_URL.Free PV     'pv - ???
    'CoTaskMemFree pv
    
    GetUrlTargetW = URLtarget
End Function
 
Sub IURL_Release()
    Set IPF_URL = Nothing
    Set IURL = Nothing
    Set oIS = Nothing
End Sub

Option Explicit
 
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpszGuid As Long, pGuid As UUID) As Long
Private Declare Function CoCreateInstance Lib "ole32" (rclsid As Any, ByVal pUnkOuter As Long, ByVal dwClsContext As Long, riid As Any, pvarResult As Object) As Long
Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameW" (ByVal lpFileName As Long, ByVal nBufferLength As Long, ByVal lpBuffer As Long, ByVal lpFilePart As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
 
Const MAX_PATH_W As Long = 32767&
 
Dim oPFile          As IPersistFile
Dim oSLink          As IShellLinkW
 
Private Sub Form_Load()
    Dim sLinkName   As String
    Dim sURLName    As String
    Dim Arg         As String
    
    ISL_Init oPFile, oSLink
  
    NameFromLinkW App.Path & "\drweb5.exe.lnk", sLinkName, Arg
    Debug.Print sLinkName; Arg
    
    NameFromLinkW App.Path & "\ie.lnk", sURLName, Arg
    Debug.Print sURLName; Arg
    
    ISL_Release
    Unload Me
End Sub
 
Sub ISL_Init(oPFile As IPersistFile, oSLink As IShellLinkW)
    Dim CLSID_ShellLink As UUID
    Dim IID_IUnknown    As UUID
    Dim oUnknown        As IUnknown
 
    CLSIDFromString StrPtr(CLSIDSTR_ShellLink), CLSID_ShellLink
    CLSIDFromString StrPtr(IIDSTR_IUnknown), IID_IUnknown
    CoCreateInstance CLSID_ShellLink, 0&, CLSCTX_INPROC_SERVER, IID_IUnknown, oUnknown
 
    Set oPFile = oUnknown
    Set oSLink = oUnknown
End Sub
 
Sub ISL_Release()
    Set oPFile = Nothing
    Set oSLink = Nothing
End Sub
 
Private Sub NameFromLinkW(LinkFileName As String, Target As String, Arguments As String)
    On Error GoTo ErrorHandler
    Dim fd              As WIN32_FIND_DATAW
    Dim buf             As String
    
    oPFile.Load LinkFileName, STGM_READ
    
    buf = Space(MAX_PATH_W)
    oSLink.GetPath buf, MAX_PATH_W, fd, SLGP_UNCPRIORITY
    Target = GetFullPath(Left$(buf, lstrlen(StrPtr(buf))))
    
    buf = Space(MAX_PATH_W)
    oSLink.GetArguments buf, MAX_PATH_W
    Arguments = Left$(buf, lstrlen(StrPtr(buf)))
ErrorHandler:
End Sub
 
Function GetFullPath(sFileName As String) As String
    Dim Cnt        As Long
    Dim sFullName  As String
    
    sFullName = Space(MAX_PATH_W)
    Cnt = GetFullPathName(StrPtr(sFileName), MAX_PATH_W, StrPtr(sFullName), 0&)
    If Cnt Then
        GetFullPath = Left$(sFullName, Cnt)
    Else
        Stop
        GetFullPath = sFileName
    End If
End Function