把下面的代码输到文本文档里，然后保存为后缀名为“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好友了（嘻嘻，我就是这样整的）
有很多著名的VBS病毒，你可以百度看看他们的源码，或许能从中得到启发。
这个啊，很多人都在研究呢
邮箱 群发，总有人中招的
对别人说是游戏，让别人打开
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024