Simonevbs整人代码谁有 有多少发多少 常见的那几个就别发了 附上功能及解除方法 特别危险的要注明 一定
的有关信息介绍如下：
dim a,b,c
const pass="123456"
a=inputbox("输入密码：123456，这是考验")
if a=pass then
b=msgbox ("不错，很乖嘛，那么你能接受后面的考验吗？注：不接受也得接受",vbyesno,"面对现实吧！")
msgbox "倒数50秒，哈哈"
msgbox "49"
msgbox "48"
msgbox "47"
msgbox "46"
msgbox "45"
msgbox "44"
msgbox "43"
msgbox "42"
msgbox "41"
msgbox "40"
msgbox "39"
msgbox "38"
msgbox "37"
msgbox "36"
msgbox "35"
msgbox "34"
msgbox "33"
msgbox "32"
msgbox "31"
msgbox "30"
msgbox "29"
msgbox "28"
msgbox "27"
msgbox "26"
msgbox "25"
msgbox "24"
msgbox "23"
msgbox "22"
msgbox "21"
msgbox "20"
msgbox "19"
msgbox "18"
msgbox "17"
msgbox "16"
msgbox "15"
msgbox "14"
msgbox "13"
msgbox "12"
msgbox "11"
msgbox "10"
end if
do
c=msgbox ("停，选yes，选no你试试，别怨我",vbyesno,"哈哈哈")
if c=VBno then
msgbox ("考验结束")
exit do
else
msgbox "恭喜，再来一次，哈哈"
msgbox "49"
msgbox "48"
msgbox "47"
msgbox "46"
msgbox "45"
msgbox "44"
msgbox "43"
msgbox "42"
msgbox "41"
msgbox "40"
msgbox "39"
msgbox "38"
msgbox "37"
msgbox "36"
msgbox "35"
msgbox "34"
msgbox "33"
msgbox "32"
msgbox "31"
msgbox "30"
msgbox "29"
msgbox "28"
msgbox "27"
msgbox "26"
msgbox "25"
msgbox "24"
msgbox "23"
msgbox "22"
msgbox "21"
msgbox "20"
msgbox "19"
msgbox "18"
msgbox "17"
msgbox "16"
msgbox "15"
msgbox "14"
msgbox "13"
msgbox "12"
msgbox "11"
msgbox "10"
msgbox "9"
msgbox "8"
msgbox "7"
msgbox "6"
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox "1"
msgbox "从新选吧"
end if
loop
rem 点框很爽，一直点一直爽
rem 点框慢点到最后选no就行了，或者在任务管理器找wscript.exe删掉就行了
