这个代码不会对电脑造成任何伤害，可以拿去整朋友。

直接上代码：

text()
function text
dim a
a=InputBox("叫爸爸！")
if a="爸爸"then
Msgbox"儿子真乖！",0,""
else
Msgbox"调皮，不叫爸爸还想跑?",0,""
text()
end if
end function

要是你朋友不输入“爸爸”，就会关不掉，可以把文字改成其他的也是可以照样运行(代码格式必须是ANSI格式，还有后缀必须是vbs。)

代码意思：

第四行的文字是做到下图的效果：

第五行的文字是做到下图的效果：

 

 

第七行的文字是下图的效果：

 

 

代码其实很简单。

本文就到这里，新人涨粉不容易，希望点个关注或赞，谢谢！