那个吓人程序的制作方法(mc.exe)
先做准备事情，各人可以找个无聊的恐怖故事，然后找个恐怖图片，要大！拿起你的发话器，翻开录音机，对着发话器想象你最恶心的事，然后……（录的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什么的！
呵呵，别笑我傻！
- 文章作者: 福州军威计算机技术有限公司
军威网络是福州最专业的电脑维修公司,专业承接福州电脑维修、上门维修、IT外包、企业电脑包年维护、局域网网络布线、网吧承包等相关维修服务。
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处 、作者信息和声明。否则将追究法律责任。
TAG:
|
评论加载中...
|
