VBS
无限弹窗
do
msgbox(“此处文字可以随便改”)
loop
右键任务栏呼出任务管理器关闭
恶搞“调查问卷”
do
a =msgbox(“你怕不是个zz吧”,vbYesNoCancel,“一份很认真的问卷调查”)
if a =vbYes then
msgbox “承认就好”,“无”
exit do
elseif a =vbNo then
b =msgbox(“还不承认?”,vbYesNo,“无”)
if b =vbYes then
msgbox “还是赶紧承认”,“无”
else
msgbox “点否一点用都没有”,“标题呢?”
end if
else
d =msgbox(“取消你*呢”,vbYesNo,“还想点取消?”)
if d =vbYes then
msgbox “取消也没用”,“这是一个轮回”
else
msgbox “不取消就赶紧承认”,“额”
end if
end if
loop
还是一样,中文部分可以自己改
以上所有文件后缀改成vbs
bat
闪瞎你的眼
echo off
:123
color a
echo 你好
color b
echo 你好
color c
echo 你好
color d
echo 你好
goto 123
中文自改,下次不用我说了
表白代码
@echo off