注册表加锁解锁工具AU3源码

1. 
   
2. #include <ButtonConstants.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <StaticConstants.au3>
   
5. #include <WindowsConstants.au3>
   
6. #include <GUIConstants.au3>
   
7. Opt("TrayMenuMode",1);
   
8. FileInstall("LOGO.jpg", @TempDir & "")
   
9. #Region ### START Koda GUI section ### Form=
   
10. $Form1 = GUICreate("注册表加解锁", 186, 90, 192, 124)
    
11. $Pic1 = GUICtrlCreatePic(@TempDir & "\LOGO.jpg", 0, 0, 185, 49, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    
12. FileDelete(@TempDir & "\LOGO.jpg")
    
13. $Button1 = GUICtrlCreateButton("加  锁", 11, 57, 75, 25)
    
14. $Button2 = GUICtrlCreateButton("解  锁", 99, 57, 75, 25)
    
15. GUISetState(@SW_SHOW)
    
16. #EndRegion ### END Koda GUI section ###
    
17. While 1
    
18. $nMsg = GUIGetMsg()
    
19. Select
    
20.   Case $nMsg = $GUI_EVENT_CLOSE
    
21.    Exit
    
22.   Case $nmsg = $Button1
    
23.    RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "00000001")
    
24.    MsgBox(4096,"提示","注册表锁定成功!")
    
25.   Case $nmsg = $Button2
    
26.    RegDelete ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    
27.    MsgBox(4096,"提示","注册表解锁成功!")
    
28. endselect
    
29. WEnd
    

复制代码