ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
13:31:48 17/10/2019
¿No estas registrado?
Login: Clave:
4 Usuarios en línea: 0 registrados, 4 invitados.
Conéctate y verás los usuarios en línea
Tema: Me falta dar privilejios al programa
    Responder
Todos Los Foros -> Visual Basic -> Problemas generales -> Me falta dar privilejios al programa
Autor Mensaje (Ver Versión para Imprimir)
comandosoft
Usuario novato
Arreglando las imágenes

Mensajes: 4
Registrad@:
24/07/2006
Estado: Desconectad@
Ver último Post
Me falta dar privilejios al programa

Hola! soy yo otra vez...

Tengo el siguiente codigo para que se inicie el programa con windows:

CÓDIGO
Private Sub Form_Load()

FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Ejemplo.exe"
Dim RegistroCochino As Object
                  Dim RutaCochina As String
                  Dim CadenaNueva As String
                  Dim ContenidoCadena As String
                  
                  ContenidoCadena = "c:\Ejemplo.exe"
                  CadenaNueva = "\Ejemplo"
                  RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
                                    "\CurrentVersion\Run" & CadenaNueva
                  
                  Set RegistroCochino = CreateObject("WScript.Shell")
                  
                  RegistroCochino.RegWrite RutaCochina, ContenidoCadena
End Sub


El problema es que al arrancar windows me sale un aviso [Runtime error 70> [Permission Denied> Que sera por que no tengo privilejios, mi pregunta es:
¿Que le falta alcodigo para dar privilegios?
21/06/2009 21:31:17 
Drayfe
Aprendiz nivel 3
Arreglando las imágenes

Mensajes: 81
Registrad@:
19/08/2005
Estado: Desconectad@
Ir Arriba
RE: Me falta dar privilejios al programa

Supongo ke tendras ke hacerlo desde la carpeta. Boton derecho >> propiedades >> seguridad

Salu2.


Colabora en mi web de musica Roseinheaven
22/06/2009 09:53:27 
StellaS
Usuario aficionado
Sin Imagen

Mensajes: 11
Registrad@:
03/05/2009
Estado: Desconectad@
Ir Arriba
RE: Me falta dar privilejios al programa

Al iniciar de nuevo ese archivo estás copiando de nuevo el archivo en un sitio donde ya está copiado.

solucionalo así:

Private Sub Form_Load()
On error goto yasecopio


FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Ejemplo.exe"
Dim RegistroCochino As Object
                           Dim RutaCochina As String
                           Dim CadenaNueva As String
                           Dim ContenidoCadena As String
                           
                           ContenidoCadena = "c:\Ejemplo.exe"
                           CadenaNueva = "\Ejemplo"
                           RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
                                                      "\CurrentVersion\Run" & CadenaNueva
                           
                           Set RegistroCochino = CreateObject("WScript.Shell")
                           
                           RegistroCochino.RegWrite RutaCochina, ContenidoCadena
yasecopio:

End Sub
22/06/2009 16:06:12 
comandosoft
Usuario novato
Arreglando las imágenes

Mensajes: 4
Registrad@:
24/07/2006
Estado: Desconectad@
Ir Arriba
RE: Me falta dar privilejios al programa

Gracias!!   

[Solucionado>
25/06/2009 16:40:15 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com