AU3锁屏源代码

锁屏源码

1. ; ----------------------------------------------------------------------------
   
2. ;
   
3. ; AutoIt Version: 3.1.1 (beta)
   
4. ; Language:       English
   
5. ; Platform:       WinXP
   
6. ; Author:         Cybie
   
7. ;
   
8. ; Script Function:
   
9. ;    Fake the "computer locked" dialog so that AutoIt may run in the background.
   
10. ;
    
11. ; ----------------------------------------------------------------------------
    
12. #include <GuiConstants.au3>
    
13. HotKeySet("{F2}","KillSwitch")
    
14. 
    
15. $LockImage = @TempDir & "/" & "locked.jpg"
    
16. FileInstall("locked.jpg", $LockImage, 1)
    
17. $SecurityImage = @TempDir & "/" & "security.jpg"
    
18. FileInstall("security.gif", $SecurityImage, 1)
    
19. 
    
20. $username = "MKTNG\yourname (Your Name)"
    
21. 
    
22. ; GUI looks like background.
    
23. GuiCreate("x", @DesktopWidth, @DesktopHeight, -1, -1, 0x80000000)
    
24. GUISetBkColor (0x6E8ADE)
    
25. GuiSetState()
    
26. 
    
27. GUICreate("Computer Locked", 400, 200, -1, -1, 0x00000000)
    
28. GUISetBkColor (0xE0E0C0)
    
29. GUICtrlCreatePic ($LockImage, 0, 0, 400, 75)
    
30. GUICtrlCreatePic ($SecurityImage, 10, 85, 32, 25)
    
31. GUICtrlCreateLabel("This computer is in use and has been locked.",52,85,325,20)
    
32. GUICtrlCreateLabel("Only " & $username & " or an administrator can unlock this computer.",52,105,325,40)
    
33. GUICtrlCreateLabel("Press Ctrl-Alt-Del to unlock this computer.",52,145,325,20)
    
34. GUISetState()
    
35. 
    
36. $msg = 0
    
37. While $msg <> $GUI_EVENT_CLOSE
    
38.     $msg = GUIGetMsg()
    
39. ;Keeps the computer from actually locking due to inactivity.
    
40.     $RandomMoveX = Random (1, @DesktopWidth)
    
41.     MouseMove ($RandomMoveX, @DesktopHeight)
    
42.     $RandomTime = Random (5000, 10000)
    
43.     Sleep($RandomTime)
    
44.     WinActivate("x")
    
45.     WinActivate("Computer Locked")
    
46. Wend
    
47. 
    
48. ;FUNCTIONS
    
49. ;---------
    
50. Func KillSwitch()
    
51.     Exit 0
    
52. EndFunc

复制代码

把任务栏也锁住就更好了

先收藏看看功能怎么样