Crear Autorun desde VB6 (no funciona)

[cobein]

esto es mas que suficiente

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

[samue118]

ok, solucionado... ahora me surge otra duda ... 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??

[‭‭‭‭jackl007]

Esto es lo mejor:

Código [Seleccionar] Expandir

SetAttr "file", vbHidden Or vbSystem 'oculta incluso asi este la opcion "mostrar oculto" activado :)

Hoy ha sido tu dia de suerte

[samue118]

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

[HK]

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"

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  y asi no te preocuparias de si cambias de unidad xD osea de j: a x:

saludos

[krackwar]

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

[.:UND3R:.]

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

[krackwar]

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.