谁能帮我做个vbs整人代码
容易！Dim adoa=InputBox("快说“老公我爱你”，一个停顿都不能有，不然我就关机！","老公我爱你")If a="老公我爱你" Then Msgbox"这就对了嘛！",0,"老公我爱你" Exit DoElseif a="老公，我爱你" Then Msgbox"一个停顿也不许有，没看见呀？",16,"老公我爱你"Else Msgbox"还不说？你再不说我就关机了！",16,"老公我爱你"End Ifloop这个脚本会一直重复让你说出“老公我爱你”，不说就还问，但不会真的关机。
标签：vbs,整人,代码
