求一个吓人的小程序

先做准备工作，大家可以找个无聊的恐怖故事，然后找个恐怖图片，要大！拿起你的话筒，打开录音机，对着话筒想象你最恶心的事，然后……（录的wav不要太长）。 打开你的vb。 先做个mainfrom然后背景黑点，弄个无聊的恐怖故事放在text中给大家看，如果喜欢还可以用timer修改text的top来移动文字。在部件中把microsoft multimedia contral6.0加上,然后在主窗体上画个mmcontrol（当然vidible要为false)。文件名不要写路径（到时把wav,copy到同一路径下就可以了）。然后在通用里，dim time as long '作为计时器,public as kaiguan (做一个开关），在form_load中time=0 kaiguan=1 主窗口里加上一个timer，interval为1000，enabled为true。 然后每次把time自加一，然后用 if time =“自己定义的‘虚假退出’时间” and kaiguan=1 then 调用子窗口1‘这是一个虚假的子窗口，别人会以为这个无聊的程序结束了，其实他关掉的是一个子窗口。 kaiguan=0 '关上开关 form1.visible=false’隐藏主窗口。 endif if (time mod “自己想让恐怖画面出现的时间”）=0 then MMControl1.Command = "sound" ’你播放录的声音 调用子窗口2'子窗口2当然是恐怖的东东了 time=0 '很重要的一步，否则你的程序也许会溢出错 endif 两个自窗口，第一个是一个虚假退出窗口，用来蒙骗人家，让人家以为程序结束了。第二个是用来吓人的，可以做抖动效果……，自己发挥想象吧！不要忘记用时间控件让它定时消失！ 关于如何隐藏，可以修改注册表或者让自己不出现在ctrl+alt+ del或者改个名字叫sysctrl什么的！ 呵呵，别笑我傻！ 本篇文章来源于 黑基网-中国最大的网络安全站点 原文链接： http://www.hackbase.com/tech/2004-09-29/27107.html

最著名的就是女鬼程序了,在半夜夜深人静时,你一个人在电脑上上网,突然一个女鬼的头跳上你的屏幕,一边双眼流着鲜血一边还叫着"还我命来",最可怕的是你还关不掉它!

注意:关掉电灯开启音箱效果最好

---