elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ShellElevated [snippet]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ShellElevated [snippet]  (Leído 1,198 veces)
cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
ShellElevated [snippet]
« en: 15 Julio 2008, 12:37 pm »

Bueno aca les dejo un mini codigo para ejecutar una aplicacion requiriendo permisos de administrador.
Para verlo en funcionamiento usen Vista con el UAC activado.

Código
  1. '---------------------------------------------------------------------------------------
  2. ' Module      : mShellElevated
  3. ' DateTime    : 15/07/2008 07:32
  4. ' Author      : Cobein
  5. ' Mail        : cobein27@hotmail.com
  6. ' WebPage     : http://cobein27.googlepages.com/vb6
  7. ' Purpose     : Execute an app requesting admin rights
  8. ' Usage       : At your own risk
  9. ' Requirements: None
  10. ' Distribution: You can freely use this code in your own
  11. '               applications, but you may not reproduce
  12. '               or publish this code on any web site,
  13. '               online service, or distribute as source
  14. '               on any media without express permission.
  15. '
  16. ' History     : 15/07/2008 First Cut....................................................
  17. '---------------------------------------------------------------------------------------
  18. Option Explicit
  19.  
  20. Private Type SHELLEXECUTEINFO
  21.    cbSize          As Long
  22.    fMask           As Long
  23.    hwnd            As Long
  24.    lpVerb          As String
  25.    lpFile          As String
  26.    lpParameters    As String
  27.    lpDirectory     As String
  28.    nShow           As Long
  29.    hInstApp        As Long
  30.    lpIDList        As Long
  31.    lpClass         As String
  32.    hkeyClass       As Long
  33.    dwHotKey        As Long
  34.    hIcon           As Long
  35.    hProcess        As Long
  36. End Type
  37.  
  38. Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
  39.  
  40. Public Function ShellElevated( _
  41.       ByVal sPath As String, _
  42.       Optional ByVal sParameters As String, _
  43.       Optional ByVal sDirectory As String, _
  44.       Optional ByVal eWindowstyle As VbAppWinStyle = vbNormalFocus) As Long
  45.  
  46.    Dim tSHELLEXECUTEINFO As SHELLEXECUTEINFO
  47.  
  48.    With tSHELLEXECUTEINFO
  49.        .cbSize = Len(tSHELLEXECUTEINFO)
  50.        .lpVerb = "runas"
  51.        .lpFile = sPath
  52.        .lpParameters = sParameters
  53.        .lpDirectory = sDirectory
  54.        .nShow = eWindowstyle
  55.        .hInstApp = App.hInstance
  56.    End With
  57.  
  58.    ShellElevated = ShellExecuteEx(tSHELLEXECUTEINFO)
  59. End Function
  60.  
  61.  


En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[m][SNIPPET] IsUserAnAdmin?
Programación Visual Basic
Karcrack 5 3,164 Último mensaje 30 Julio 2010, 17:38 pm
por Karcrack
[SNIPPET] Decimal a Romano
Programación Visual Basic
Karcrack 4 2,369 Último mensaje 17 Diciembre 2010, 14:41 pm
por 79137913
[SNIPPET-VB6] DrawGraph - Dibujar sobre controles.
Programación Visual Basic
F3B14N 0 1,605 Último mensaje 12 Marzo 2011, 14:48 pm
por F3B14N
[SNIPPET][VB6] WhereAmI, thisexe, GetMyPath...
Programación Visual Basic
Karcrack 4 3,099 Último mensaje 11 Marzo 2014, 03:42 am
por LeandroA
Ayuda .cpp Snippet
Programación C/C++
alexlopezcifuentes 1 1,692 Último mensaje 6 Marzo 2015, 11:11 am
por eferion
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines