黑客整人代码

1、我是猪

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试???"" ",0 ,true

dim a

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""","说不说","不说",8000,7000)

do while(a <> "我是猪")

msgbox "快点说！马上就要关机了啊，你看着办吧！"

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""","说不说","不说",8000,7000)

loop

msgbox "早说就行了嘛，真是的！"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox "哈哈哈哈，你很乖噢，我就喜欢你这样！"

2、爱情测试

const yourname = "张三"

const title = "爱情测试"

const question = "你最喜欢的人是谁？请在下面的方框中输入他的名字"

const info = "你在说谎！不要逃避嘛，实话实说，快点说啦！"

const scend = "你终于说出你的心扉了，赶紧向他表白吧，赶紧啰！哈哈！"

dim youranswer

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation + vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation + vbokonly, title

3、关不掉的窗口

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小笨蛋！")

WScript.Echo("还剩47下对，就这样快点点！")

WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩45下，记得要快哦！")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("