Autor
|
Tema: Crear Autorun desde VB6 (no funciona) (Leído 6,504 veces)
|
samue118
Desconectado
Mensajes: 12
|
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??
|
|
|
En línea
|
|
|
|
BenRu
The Prodigy
Desconectado
Mensajes: 4.006
|
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
|
|
« Última modificación: 27 Julio 2008, 16:01 pm por BenRu »
|
En línea
|
|
|
|
samue118
Desconectado
Mensajes: 12
|
No lo piyo BenRu ... a que te refieres con activarlo ???
|
|
|
En línea
|
|
|
|
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
|
|
|
En línea
|
|
|
|
samue118
Desconectado
Mensajes: 12
|
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 ??
|
|
|
En línea
|
|
|
|
ricardovinzo
Desconectado
Mensajes: 135
P.T.C
|
tu autorun esta incompleto buscate uno que sea mejor como el del T2W.. ese que tienes no servira asi
|
|
|
En línea
|
3# Convocacion de Moderadores en Code Makers, entra!
|
|
|
samue118
Desconectado
Mensajes: 12
|
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) ???
|
|
|
En línea
|
|
|
|
samue118
Desconectado
Mensajes: 12
|
¡¡¡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
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
¡¡¡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.
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
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
|
|
|
En línea
|
|
|
|
|
|