• Fuentes

 #480348  por Blau
 
Hola,
he portado la función para quitar el ZoneId que hice en AutoIt a VB6 a petición de un usuario.
'Autor: Blau
'Arreglado y Mejorado por: Blader
'Ejemplo de uso:
'RemoveZoneID ("C:\Users\PCNEW\Downloads\avira_es_av_560ce95476d95__ws.EXE")
 
Private Declare Function DeleteFileA Lib "kernel32" (ByVal lpFileName As String) As Boolean
  
Function RemoveZoneID(sFileName As String)
    DeleteFileA (sFileName & ":Zone.Identifier")
End Function
EDIT:
Gracias a Blader por la correción.
 #480350  por nikenike4
 
Hola Blau
Muchas gracias se agradece tu interés
Te mande un privado también con una duda.
Un saludo.
 #480436  por nikenike4
 
Hola a todos:
Alguien sabe como poner esta función a el crypter por que me estoy volviendo loco jejeje...
Algún tutorial o algo de eso
Gracias.
 #480440  por Pink
 
@nikenike4 me vas a hacer llorar con esa pregunta...

@Blau
Retorna algo para saber si funcionó
Function RemoveZoneID(sFileName As String) as bool (si existe bool ya ni me acuerdo :S)

RemoveZoneID=DeleteFileW (sFileName & ":Zone.Identifier")

Saludos
 #480465  por Blader
 
Hola me di un tiempo para ver tu codigo y me dio errores al menos en mi win7 x64bits y decidi arreglarlo , aqui te va mi version:
'Autor: Blau
'Arreglado y Mejorado por: Blader
'Ejemplo de uso:
'RemoveZoneID ("C:\Users\PCNEW\Downloads\avira_es_av_560ce95476d95__ws.EXE")

Private Declare Function DeleteFileA Lib "kernel32" (ByVal lpFileName As String) As Boolean
 
Function RemoveZoneID(sFileName As String)
    DeleteFileA (sFileName & ":Zone.Identifier")
End Function
Siendo DeleteFileW para Unicode y DeleteFileA para ANSI
Lo unico malo que requiere elevacion de privilegios
Salu2.
 #480475  por nikenike4
 
Bueno parece que ya se como usarlo
Pero saben hacerlo si tener que dar privilegios.
Lo que yo decía es que lo descarge de Internet le de doble clic y se abra sin preguntar nada.
Es esto posible o dejo ya el tema.
PD:Gracias a todos por su interés se agradece.