[VB.NET] ZoneIdentifier Wrapper by fudmario

  • 0 Respuestas
  • 2352 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fudmario

  • *
  • Underc0der
  • Mensajes: 199
  • Actividad:
    0%
  • Reputación 13
    • Ver Perfil
    • fudmario - GitHub

[VB.NET] ZoneIdentifier Wrapper by fudmario

  • en: Diciembre 04, 2016, 05:17:08 pm
Una simple implementacion para obtener el ZONE.IDENTIFIER(Windows Zone Identifier File) del archivos.

Ejemplo de Uso:

Código: (vbnet) You are not allowed to view links. Register or Login
   Using zi As New ZoneIdentifier("D:\Sample.exe")
            If zi.Zone = UrlZone.Internet Then
                zi.Remove
            End If
   End Using


El Proyecto esta disponible para descargar: You are not allowed to view links. Register or Login


Si solo quieren eliminar el ZoneIdentifier, pueden usar la API:

Código: (vbnet) You are not allowed to view links. Register or Login
<DllImport("kernel32.dll", CharSet:=CharSet.Auto, BestFitMapping:=False, ThrowOnUnmappableChar:=True, SetLastError:=True)>
        Public Shared Function DeleteFile(<MarshalAs(UnmanagedType.LPTStr)> ByVal filepath As String
        ) As <MarshalAs(UnmanagedType.Bool)> Boolean
        End Function

Ejemplo de Uso:

Código: (vbnet) You are not allowed to view links. Register or Login
<DllImport("kernel32.dll", CharSet:=CharSet.Auto, BestFitMapping:=False, ThrowOnUnmappableChar:=True, SetLastError:=True)>
        Public Shared Function DeleteFile(<MarshalAs(UnmanagedType.LPTStr)> ByVal filepath As String
        ) As <MarshalAs(UnmanagedType.Bool)> Boolean
        End Function
Public Function DeleteZoneIdentifier(ByVal filePath As String) As Boolean
       Return DeleteFile(filePath + ":Zone.Identifier")
End Function