那个吓人程序的制作方法(mc.exe)

/ns/wz/comp/data/20010129040713.htm

先做准备工作,大家可以找个无聊的恐怖故事,然后找个恐怖图片,要大!拿起你的话筒,打开录音机,对着话筒想象你最恶心的事,然后……(录的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什么的!
呵呵,别笑我傻!