求一個嚇人的小程序？

先做準備工作，大家可以找個無聊的恐怖故事，然后找個恐怖圖片，要大！拿起你的話筒，打開錄音機，對著話筒想象你最惡心的事，然后……（錄的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