Khóa và mở khóa REGISTRY bằng Excel (1 người xem)

[anhtuan1066]

Đây là đoạn code dùng để khóa và mở khóa REGISTRY

Private Sub Cmd_Click()
  Dim WSHShell As Object, n As Boolean, p As String
  Set WSHShell = CreateObject("WScript.Shell")
  p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
  On Error Resume Next
  n = WSHShell.RegRead(p)
  n = (n = 0)
  WSHShell.RegWrite p, -n, "REG_DWORD"
  Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate(Choose(1 - n, "Mo", "Khoa")) & """,2)")
  Cmd.Caption = Choose(1 - n, "Lock Registry", "Unlock Registry")
End Sub

Xem file đính kèm và chạy thử nhé!

 

[Kiều Mạnh]

sao hay vậy ??? đã thử thấy ok đấy