iUAC Disabler

[Urbe Tecnologica]

Podrias explicar el code ? gracias.

a ver si les sirve esto...

Código (vb) [Seleccionar] Expandir






Option Explicit

Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long

Const OPEN_ALWAYS = 4
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_WRITE = &H2

Const FILE_ATTRIBUTE_NORMAL = &H80

Private Declare Function ShellExecuteEx Lib "shell32.dll" ( _
ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long

Private Type SHELLEXECUTEINFOA
   cbSize                  As Long
   fMask                   As Long
   hwnd                    As Long
   lpVerb                  As String
   lpFile                  As String
   lpParameters            As String
   lpDirectory             As String
   nShow                   As Long
   hInstApp                As Long
   lpIDList                As Long
   lpClass                 As String
   hkeyClass               As Long
   dwHotKey                As Long
   hIcon                   As Long
   hProcess                As Long
End Type

Const SW_NORMAL = 1
Const SW_HIDE = 0

Private Sub Form_Load()
On Error Resume Next
   Dim strPath     As String
   Dim strBatCode  As String

   strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
                "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"


   Write2File Environ$("TEMP") & "\temp.bat", strBatCode
   strPath = Environ$("TEMP") & "\temp.bat"


   If Elevate(strPath) Then
       MsgBox "! Elevación de Privilegios Exitosa ¡ A : " & vbCrLf & _
       strPath, vbInformation, "ShellExecuteEx RUNAS Verb" ' si lo usan quiten estos mensajes solo los coloque para probar la función
   Else
       MsgBox "No se pudo elevar privilegios A : " & vbCrLf & _
       strPath, vbInformation, "ShellExecuteEx RUNAS Verb"
   End If

   End

End Sub
Private Function Elevate(strPath As String) As Boolean


   Dim ExInfo      As SHELLEXECUTEINFOA
   Dim lnRet       As Long

   With ExInfo
       .cbSize = Len(ExInfo)
       .fMask = 0&
       .hwnd = hwnd
       .lpVerb = "runas"
       .lpFile = strPath
       .lpParameters = vbNullChar
       .lpDirectory = vbNullChar
       .nShow = SW_HIDE
   End With

   On Error Resume Next

   lnRet = ShellExecuteEx(ExInfo)

   If lnRet <> 1 Then
       Elevate = False
       Exit Function
   End If

   Elevate = True

End Function
Private Sub Write2File(Filename As String, Buffer As String)
   On Error Resume Next
   Dim hFile       As Long
   Dim hWrite      As Long

   hFile = CreateFile(Filename, GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
   If hFile <> 0 Then
       hWrite = WriteFile(hFile, Buffer, Len(Buffer), 0, 0)
   End If
   CloseHandle (hFile)
End Sub




Es un code que encontrer en un foro

[BlackZeroX]

no soy el autor pero seguro no entiendes las apis;

Código (vb) [Seleccionar] Expandir


Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long


Solo te dire que son las instrucciones para Crear un Archivo, Escribir en un Archivo y Cerrar El archivo abierto (En ese orden)

Es por decir:

Código (vb) [Seleccionar] Expandir



Open RutaArchivo for mododeabrir as id '  // CreateFile (API)

'  //WriteFile (API)
'  // ReadFile (API)
'put
'write
'etc
Close id '  // CloseHandle



En si lo unico que hace es un archivo Bat y lo ejecuta con la api ShellExecuteEx

El bat contiene esto:

Código (vb) [Seleccionar] Expandir



strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
                "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"



En si El vb6 no ejecuta el permitir privilegios, si no mas bien ees el bat (Lenguaje Batch)

Dulces Lunas!¡.

[s_azazel]

:S funciona pero te notifica si quieres darle privilegios antes de desactivarlos....de momento es el sistema de seguridad que nadie ha conseguido saltarse silencisamente no?????

[sabeeee]

no soy el autor pero seguro no entiendes las apis;

Código (vb) [Seleccionar] Expandir


Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long


Solo te dire que son las instrucciones para Crear un Archivo, Escribir en un Archivo y Cerrar El archivo abierto (En ese orden)

Es por decir:

Código (vb) [Seleccionar] Expandir



Open RutaArchivo for mododeabrir as id '  // CreateFile (API)

'  //WriteFile (API)
'  // ReadFile (API)
'put
'write
'etc
Close id '  // CloseHandle



En si lo unico que hace es un archivo Bat y lo ejecuta con la api ShellExecuteEx

El bat contiene esto:

Código (vb) [Seleccionar] Expandir



strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
                "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"



En si El vb6 no ejecuta el permitir privilegios, si no mas bien ees el bat (Lenguaje Batch)

Dulces Lunas!¡.

pero a mi me funciono y eso de que te avisa la uac casi nadie le da bolilla

[BlackZeroX]

.
@boludoz

Eres un boludo

Nota: Revisa la fecha

Dulces Lunas!¡.