#480348  por Blau
 05 Nov 2015, 01:23
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
 05 Nov 2015, 08:20
Hola Blau
Muchas gracias se agradece tu interés
Te mande un privado también con una duda.
Un saludo.
 #480436  por nikenike4
 06 Nov 2015, 18:46
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
 06 Nov 2015, 19:57
@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
 07 Nov 2015, 01:46
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
 07 Nov 2015, 09:52
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.
 #490784  por davinciomar
 14 Feb 2017, 15:22
esto es interesante lo tendré en mi baul gracias por compartir