如何編寫Visual Basic腳本

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

選擇要惡作劇的人：

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

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

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

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

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

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

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

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

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

步驟3 ：等待并笑

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

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

第4步：腳本！

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

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

顯式選項

禁用Random

昏暗計數(shù)

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

theRandom = RandomValue（）

暫停（theRandom * 60）

OpenCDRom

count = count + 1

wend

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

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

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對象以及打開所有cd驅(qū)動器的地方。 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 =無

結(jié)束子

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

Dim Current

當(dāng)前=計時器

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

‘DoEvents

循環(huán)

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