如何編寫Visual Basic腳本

第1步：找到目標

選擇要惡作劇的人：

1）如果您愿意對于IT部門來說，這很容易，因為您真的可以隨意設置任何人要按自己的意愿進行惡作劇，然后等待電話進來。

2）如果您不在IT部門工作，請選擇一個不知道會篡改其計算機的人。

3）盡量不要選擇資歷過高的人，因為我不能保證他們不會為您惹惱他們的計算機而生氣。

步驟2：運行或安裝腳本

正在運行“受害者”計算機上的腳本是整個惡作劇中最難的部分。我將腳本命名為“ cdupdt”，因為在查找時很容易注意到。您可以隨心所欲地命名該腳本，這個名稱越運動越好。

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

理想的情況是，如果您有更多時間而不是起床去復印機的人：

1）在大多數計算機上，桌面上都有一個“我的電腦”圖標，右鍵單擊并轉到“瀏覽”。

2）如果導航到C：文檔和設置所有用戶開始菜單程序啟動，然后將腳本放入該文件夾中，每次將計算機加載到Windows中時，腳本就會運行。

步驟3 ：等待并笑

此步驟可能是有關此惡作劇的最好部分。

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

第4步：腳本！

現在所有人一直在等待：

請確保將腳本另存為 .vbs ，否則腳本將無法正常運行。

顯式選項

禁用Random

昏暗計數

‘將數字隨機化，然后將其變成分鐘數，同時（count 《3）

theRandom = RandomValue（）

暫停（theRandom * 60）

OpenCDRom

count = count + 1

wend

’如果您想更改腳本的時間，則ubound是最長的等待時間，lbound是最小的等待時間。

‘每個數字都將更改為分鐘，因此請確保您不這樣做。 t轉換您的更改，否則您可能需要等待一段時間。

Function RandomValue（）

dim theRandom

dim ubound

dim lbound

ubound = 99

lbound = 20

隨機化

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

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

RandomValue = theRandom End Function

‘這就是發(fā)生魔術，裝載cd對象以及打開所有cd驅動器的地方。 Sub OpenCDRom

dim oWMP

dim colCDROMs

昏暗i

設置oWMP = CreateObject（“ WMPlayer.ocx.7”）

如果colCDROMs.Count》 = 1然后為設置colCDROMs = oWMP.cdromCollection

= 0到colCDROMs.Count-1

colCDROMs.Item（i）.Eject

下一步

結束If

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

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

，然后將i = 0的

轉到colCDROMs.Count-1 colCDROMs.Item（i）.Eject

結束If

設置colCDROMs =無

結束子

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

Dim Current

當前=計時器

直到計時器-當前》 =持續(xù)時間

‘DoEvents

循環(huán)

結束子
責任編輯：wv