Indetectables

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 Blau
Muchas gracias se agradece tu interés
Te mande un privado también con una duda.
Un saludo.

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

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.

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.

os funciona esta funcion yo la estoy provando y lo me va?

Como seria en C#?

esto es interesante lo tendré en mi baul gracias por compartir