Crear Autorun desde VB6 (no funciona)

[samue118]

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:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Open "J:\autorun.inf" For Output As #1
Print #1, "[AUTORUN]"
Print #1, "open = 5.exe"
Close #1
MsgBox "OK"

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

[BenRu]

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 

[samue118]

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

[Lambda]

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

windows trae una opcion para activar/desactivar el autorun.

si usas windows ue lo tendras desactivado 

[samue118]

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 ??

[ricardovinzo]

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

[samue118]

no se si te refieres a este ricardovinzo, es lo que he encontrado del T2W(que no se ni lo que es XD):

Código [Seleccionar] Expandir

[Autorun]
Open= 5.exe
Icon=%SystemRoot%\system32\SHELL32.dll,7
UseAutoPlay=1
Action=Abrir USB
Action= @ 5.exe
shell\open=Abrir
shell\open\Command=5.exe
shell\open\Default=1

A y se me olvidaba... Sigue sin funcionar
Sera de mi PC o del Pendrive (que en realidad es un mp4) ???

[samue118]

¡¡¡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

[krackwar]

¡¡¡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

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

[‭‭‭‭jackl007]

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

Código (vb) [Seleccionar] Expandir

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