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.
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.
@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
Imagen
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.
Skype: lBlader
Most-Security.net
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.
Responder

Volver a “Fuentes”