第1步：找到目標(biāo)

選擇要惡作劇的人：

1）如果您愿意對(duì)于IT部門來(lái)說(shuō)，這很容易，因?yàn)槟娴目梢噪S意設(shè)置任何人要按自己的意愿進(jìn)行惡作劇，然后等待電話進(jìn)來(lái)。

2）如果您不在IT部門工作，請(qǐng)選擇一個(gè)不知道會(huì)篡改其計(jì)算機(jī)的人。

3）盡量不要選擇資歷過(guò)高的人，因?yàn)槲也荒鼙ＷC他們不會(huì)為您惹惱他們的計(jì)算機(jī)而生氣。

步驟2：運(yùn)行或安裝腳本

正在運(yùn)行“受害者”計(jì)算機(jī)上的腳本是整個(gè)惡作劇中最難的部分。我將腳本命名為“ cdupdt”，因?yàn)樵诓檎視r(shí)很容易注意到。您可以隨心所欲地命名該腳本，這個(gè)名稱越運(yùn)動(dòng)越好。

如果您甚至可以在幾秒鐘內(nèi)訪問(wèn)他們的計(jì)算機(jī)，則可以運(yùn)行一次腳本，然后腳本就永遠(yuǎn)不會(huì)再次發(fā)生（除非您進(jìn)行更改）代碼中的時(shí)間）。該腳本將不會(huì)運(yùn)行任何窗口，也不會(huì)運(yùn)行任務(wù)欄中的任何內(nèi)容，您唯一可以看到的項(xiàng)目是“流程管理器”中名為“ wscript.exe”的條目。

理想的情況是，如果您有更多時(shí)間而不是起床去復(fù)印機(jī)的人：

1）在大多數(shù)計(jì)算機(jī)上，桌面上都有一個(gè)“我的電腦”圖標(biāo)，右鍵單擊并轉(zhuǎn)到“瀏覽”。

2）如果導(dǎo)航到C：文檔和設(shè)置所有用戶開(kāi)始菜單程序啟動(dòng)，然后將腳本放入該文件夾中，每次將計(jì)算機(jī)加載到Windows中時(shí)，腳本就會(huì)運(yùn)行。

步驟3 ：等待并笑

此步驟可能是有關(guān)此惡作劇的最好部分。

該腳本當(dāng)前設(shè)置為在20分鐘到99分鐘之間的隨機(jī)時(shí)間啟動(dòng)。我可以說(shuō)99分鐘似乎很長(zhǎng)，但是其背后的原因是您希望“受害者”被抓盡可能地驚喜。如果驅(qū)動(dòng)器剛剛打開(kāi)和關(guān)閉3次，他們就會(huì)知道發(fā)生了什么。

第4步：腳本！

現(xiàn)在所有人一直在等待：

請(qǐng)確保將腳本另存為 .vbs ，否則腳本將無(wú)法正常運(yùn)行。

顯式選項(xiàng)

禁用Random

昏暗計(jì)數(shù)

‘將數(shù)字隨機(jī)化，然后將其變成分鐘數(shù)，同時(shí)（count 《3）

theRandom = RandomValue（）

暫停（theRandom * 60）

OpenCDRom

count = count + 1

wend

’如果您想更改腳本的時(shí)間，則ubound是最長(zhǎng)的等待時(shí)間，lbound是最小的等待時(shí)間。

‘每個(gè)數(shù)字都將更改為分鐘，因此請(qǐng)確保您不這樣做。 t轉(zhuǎn)換您的更改，否則您可能需要等待一段時(shí)間。

Function RandomValue（）

dim theRandom

dim ubound

dim lbound

ubound = 99

lbound = 20

隨機(jī)化

’RandomNumber = Int（（上限-下限+ 1）* Rnd +下限）

theRandom = Int（（ubound-上限+ 1）* Rnd + lbou nd）

RandomValue = theRandom End Function

‘這就是發(fā)生魔術(shù)，裝載cd對(duì)象以及打開(kāi)所有cd驅(qū)動(dòng)器的地方。 Sub OpenCDRom

dim oWMP

dim colCDROMs

昏暗i

設(shè)置oWMP = CreateObject（“ WMPlayer.ocx.7”）

如果colCDROMs.Count》 = 1然后為設(shè)置colCDROMs = oWMP.cdromCollection

= 0到colCDROMs.Count-1

colCDROMs.Item（i）.Eject

下一步

結(jié)束If

’稍微停頓一下以獲取“ Hu？”從它們中查找

如果colCDROMs.Count》 = 1，則暫停（2）

，然后將i = 0的

轉(zhuǎn)到colCDROMs.Count-1 colCDROMs.Item（i）.Eject

結(jié)束If

設(shè)置colCDROMs =無(wú)

結(jié)束子

公共子暫停（持續(xù)時(shí)間）

Dim Current

當(dāng)前=計(jì)時(shí)器

直到計(jì)時(shí)器-當(dāng)前》 =持續(xù)時(shí)間

‘DoEvents

循環(huán)

結(jié)束子
責(zé)任編輯：wv