Bật và tắt User Account Control (UAC) trong Windows7 Bằng Code (1 người xem)

[Kiều Mạnh]

Mình rất khó chịu Với User Account Control (UAC) trong Windows7
Mỗi lần cài đặt cái gì vào máy là nó la lên và mình viết một vài ứng dụng VBA Và VB6 cho người khác sử dụng họ mang về máy chạy nó cũng báo vậy.... với mình cái đó ko thành vấn đề còn với người khác chưa rành máy tính là cả một vấn đề....Vì vậy mình làm hai File *.reg là bật và Tắt User Account Control thấy cũng chạy tốt nhưng phải qua mấy cái chon Yes mới xong vì vậy mình úp lên nhờ các bạn xem có cách nào khác Bằng Code bấm Cái rẹt là xong xin trợ giúp

File ON User Account Control.reg

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000001

File OFFUser Account Control.reg

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000

 

[ndu96081631]

Mình rất khó chịu Với User Account Control (UAC) trong Windows7
Mỗi lần cài đặt cái gì vào máy là nó la lên và mình viết một vài ứng dụng VBA Và VB6 cho người khác sử dụng họ mang về máy chạy nó cũng báo vậy.... với mình cái đó ko thành vấn đề còn với người khác chưa rành máy tính là cả một vấn đề....Vì vậy mình làm hai File *.reg là bật và Tắt User Account Control thấy cũng chạy tốt nhưng phải qua mấy cái chon Yes mới xong vì vậy mình úp lên nhờ các bạn xem có cách nào khác Bằng Code bấm Cái rẹt là xong xin trợ giúp

File ON User Account Control.reg

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"ConsentPromptBehaviorAdmin"=dword:00000005"
EnableLUA"=dword:00000001

File OFFUser Account Control.reg

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"ConsentPromptBehaviorAdmin"=dword:00000000"
EnableLUA"=dword:00000000

Lúc trước tôi cũng từng nghiên cứu vụ này nhưng thấy không ăn thua. Bởi cho dù registry đã thay đổi nhưng Windows cũng sẽ không chịu update lập tức nhưng thay đổi này mà phải khởi động lại máy tính mới thấy có tác dụng
Cuối cùng cũng chẳng làm được gì
Để ý các phần mềm người ta không không can thiệp vào UAC mà chỉ thông báo hướng dẫn ta làm.. gì đó.. gì đó (chẳng hạn đăng nhập quyền Admin) trước khi Setup (nếu không biết thiết lập UAC trước thì nghỉ xài phần mềm vậy!)

 

[Quang_Hải]

To Kieu Manh:

Liên quan đến UAC thì bắt buộc phải khởi động lại máy tính mới có ép phê. Thôi thì tìm cách khác coi sao.

 

[Kiều Mạnh]

To Kieu Manh:

Liên quan đến UAC thì bắt buộc phải khởi động lại máy tính mới có ép phê. Thôi thì tìm cách khác coi sao.

Thay vi khởi động thì Chạy Code sau cũng Ok Anh

Public Sub OFF_Explorer()
    Shell "Taskkill /F /IM explorer.exe"
End Sub

xong chạy sub sau để khỏi động lại

Sub ON_Explorer()
    Shell "explorer.exe"
End Sub

 

[ndu96081631]

Tôi có cách này chạy bằng CMD kết hợp với hàm API

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UAC_Control(ByVal value As Boolean)
  Dim sComm As String, sRegKey As String
  sRegKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
  sComm = "%windir%\System32\reg.exe ADD " & sRegKey & " /v EnableLUA /t REG_DWORD /d " & -value & " /f"
  ShellExecute 0&, "runas", "cmd.exe", "/c " & sComm, "", 0
End Sub
Sub Main()
  UAC_Control True 'Bat UAC
  'UAC_Control False 'Tat UAC
End Sub

Thử xem thế nào nhé!
Chỉ có một khuyết điểm nhỏ là mỗi lần chạy code, hộp UAC sẽ xuất hiện bắt ta phải xác nhận Yes, No
--------------------------------

Thay vi khởi động thì Chạy Code sau cũng Ok Anh

Public Sub OFF_Explorer()
    Shell "Taskkill /F /IM explorer.exe"
End Sub

xong chạy sub sau để khỏi động lại

Sub ON_Explorer()
    Shell "explorer.exe"
End Sub

Cách này dở ẹc chứ ngon lành gì! Bởi sau khi tắt Explorer rồi khởi động lại, tất cả các chương trình chạy khi StartUp sẽ tiêu đời ---> Người dùng người ta không thích đâu!

 

[Kiều Mạnh]

Tôi có cách này chạy bằng CMD kết hợp với hàm API

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UAC_Control(ByVal value As Boolean)
  Dim sComm As String, sRegKey As String
  sRegKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
  sComm = "%windir%\System32\reg.exe ADD " & sRegKey & " /v EnableLUA /t REG_DWORD /d " & -value & " /f"
  ShellExecute 0&, "runas", "cmd.exe", "/c " & sComm, "", 0
End Sub
Sub Main()
  UAC_Control True 'Bat UAC
  'UAC_Control False 'Tat UAC
End Sub

Thử xem thế nào nhé!
Chỉ có một khuyết điểm nhỏ là mỗi lần chạy code, hộp UAC sẽ xuất hiện bắt ta phải xác nhận Yes, No
--------------------------------

Cách này dở ẹc chứ ngon lành gì! Bởi sau khi tắt Explorer rồi khởi động lại, tất cả các chương trình chạy khi StartUp sẽ tiêu đời ---> Người dùng người ta không thích đâu!

Em mới check xong đúng như anh nói phải xác nhận Yes ...tuyệt vời ...nếu không phải xác nhận Yes nữa thì trên cả tuyệt vời
Em cảm ơn Anh

 

[ndu96081631]

Em mới check xong đúng như anh nói phải xác nhận Yes ...tuyệt vời ...nếu không phải xác nhận Yes nữa thì trên cả tuyệt vời
Em cảm ơn Anh

Nhưng bạn đã kiểm tra kỹ lại trong hộp UAC thật sự nó có thay đổi sau khi code chạy không?

 

[Kiều Mạnh]

Nhưng bạn đã kiểm tra kỹ lại trong hộp UAC thật sự nó có thay đổi sau khi code chạy không?

nếu bật Off thì có hiệu lực liền đồng thời ở thanh start dưới báo có lá cờ dấu x đỏ đòi restart lại máy
Nếu bật ON thì lá cờ mất ....kiểm tra trong User Account control settings thấy kéo lên liền