Simone
把下面的代码输到文本文档里，然后保存为后缀名为“vbs”的文件
dim a,ctr
ctr=0
const pass="是"
do while ctr<100
a=inputbox("你是猪吗？")
if a=pass then
msgbox "good"
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox "错，你是猪！"
end if
loop
注：千万不要一下子复制，要一行一行地复制
接下来你新建一个文件夹，再弄一个快捷方式把原来的文件隐藏，现在的快捷方式点击鼠标右键-属性-更改图标，然后找一个容易让人上当的图标，再把文件夹压缩就可以发给qq好友了（嘻嘻，我就是这样整的）
