none
Como tener permisos de administrador RRS feed

  • Pregunta

  • Hola, queria saber como puedo hacer que tenga permisos de administrador. Tengo un programa que cuando se ejecuta auto genera un archivo

     

            Dim file As String = Application.StartupPath & "/version.txt"
            Dim MyVer As String = My.Application.Info.Version.ToString
    


    Pero hay un problema, los que usan windows 7 les tira error porque al parecer no genera el archivo.

     

    Dejo el código completo para que vean y me ayuden

     

    '// Chequea
            CheckForUpdates()
        End Sub
    
        Public Sub CheckForUpdates() '// Chequea
    
            Dim file As String = Application.StartupPath & "/version.txt"
            Dim MyVer As String = My.Application.Info.Version.ToString
    
            If My.Computer.FileSystem.FileExists(file) Then
                My.Computer.FileSystem.DeleteFile(file)
            End If
    
            My.Computer.Network.DownloadFile("http://miweb.com/version.txt", file)
            Dim LastVer As String = My.Computer.FileSystem.ReadAllText(file)
    
            If Not MyVer = LastVer Then
                'MsgBox("¡Nueva actualización disponible!: Para descargar dirigite aquí.")
                ACT.Show()
                'My.Computer.Network.DownloadFile("http://miweb.com/programa.ee", "")
    
            Else
                MsgBox("Ya se encuentra actualizado")
    
            End If
    

    Queria saber como poner permisos de administrador para que no salte la ventanita de error. Gracias!

    martes, 20 de diciembre de 2011 23:07

Respuestas

Todas las respuestas

  • hola

    deberias investigar por el lado de trabjar el manifest asociado al desarrollo para alli cambiar los provilegios de acceso

    aqui se trata un tema similar

    http://social.msdn.microsoft.com/Forums/es/vcses/thread/f801a03e-59fc-485b-90e7-65bb18d42d1f

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    miércoles, 21 de diciembre de 2011 1:35
  • hola

    deberias investigar por el lado de trabjar el manifest asociado al desarrollo para alli cambiar los provilegios de acceso

    aqui se trata un tema similar

    http://social.msdn.microsoft.com/Forums/es/vcses/thread/f801a03e-59fc-485b-90e7-65bb18d42d1f

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    Hola Leandro,

     

    He intentado hacer algo pero se me da algo inutil, está en C# y ya hace más de 1 año que no toco ni C++ ni C# porque me venia mas practico visual basic. No entiendo ni papa y no hay algo creado para esto en vb net?

     

    Gracias un saludo

    miércoles, 21 de diciembre de 2011 9:33
  • Hola nuevamente Leandro.

     

    Encontré esto por internet, http://ricardopons.wordpress.com/2010/04/23/crear-aplicacion-con-derechos-de-administrador-uac-en-net/

    pero al generar abajo me salta un error de ClickOnce no admite el nivel de ejecución de solicitudes 'requireAdministrator'

    miércoles, 21 de diciembre de 2011 9:47
  • ¿Qué puedo hacer al respecto?
    miércoles, 21 de diciembre de 2011 16:45
  • Eh intentado de todo pero me sale nada más errores de ClickOnce no admite el nivel de ejecución de solicitudes
    jueves, 22 de diciembre de 2011 0:48
  • ya lo resolví...
    • Marcado como respuesta Symantecc jueves, 22 de diciembre de 2011 1:03
    jueves, 22 de diciembre de 2011 1:03
  • Oye Symantec

    como resolviste esto ?

    estoy utilizando vb.net pero no puedo aun insertar un archivo a otro directorio tengo este codigo

    If EditadoOrden = True Then
                Try
                    Dim VisorDeImagenes As New OpenFileDialog()
                    Dim NombreDeArchivo As String
                    Dim RutaDeArchivo As String

                    VisorDeImagenes.FileName = "Visor de Archivos"
                    VisorDeImagenes.DefaultExt = ".pdf"
                    VisorDeImagenes.Filter = "Todos(*.*)|*.*"
                    Dim result? As Boolean = VisorDeImagenes.ShowDialog()
                    If result = True Then
                        ' Open document
                        NombreDeArchivo = VisorDeImagenes.SafeFileName
                        RutaDeArchivo = VisorDeImagenes.FileName
                       
                        DescripcionDelTrabajoTextBox.Focus()
                        DescripcionDelTrabajoTextBox.Text = RutaDePrograma & "\Archivos Temporales\" & NombreDeArchivo
                        AnexoITextBox.Focus()
                        AnexoITextBox.Text = VisorDeImagenes.FileName
                        AnexoIITextBox.Focus()
                        AnexoIITextBox.Text = VisorDeImagenes.SafeFileName
                        'My.Computer.FileSystem.CopyFile(RutaDeArchivo, RutaDePrograma & "\Archivos Temporales\" & NombreDeArchivo)
                        ' File.Copy(RutaDeArchivo, RutaDePrograma & "\Archivos Temporales\" & NombreDeArchivo)
                        MessageBox.Show("Su Archivo ha sido registrado", "Rastreador")
                    End If
                Catch ex As Exception

                End Try
                

            End If

    'Dividi las rutas para verlas con string y al parecer todo esta bien pero nunca se copea el archivo que en este

    caso es un PDF

    el string general queda asi

     'C:\Program Files\Torres Castañeda Co\Gestor KeyTronicEMS\Archivos Temporales\WD-40_Granel.pdf

    pero no se genera. utilice dos formas para tratar de hacerlo filecopy y la otra de arriba.

    gracias de antemano si me puedes dar alguna indicacion te lo agradeceria mucho.

    estoy en windows 7
    • Editado RefugioT jueves, 7 de noviembre de 2013 4:22
    jueves, 7 de noviembre de 2013 4:19