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