如何编写Visual Basic脚本

第1步：找到目标

选择要恶作剧的人：

1）如果您愿意对于IT部门来说，这很容易，因为您真的可以随意设置任何人要按自己的意愿进行恶作剧，然后等待电话进来。

2）如果您不在IT部门工作，请选择一个不知道会篡改其计算机的人。

3）尽量不要选择资历过高的人，因为我不能保证他们不会为您惹恼他们的计算机而生气。

步骤2：运行或安装脚本

正在运行“受害者”计算机上的脚本是整个恶作剧中最难的部分。我将脚本命名为“ cdupdt”，因为在查找时很容易注意到。您可以随心所欲地命名该脚本，这个名称越运动越好。

如果您甚至可以在几秒钟内访问他们的计算机，则可以运行一次脚本，然后脚本就永远不会再次发生（除非您进行更改）代码中的时间）。该脚本将不会运行任何窗口，也不会运行任务栏中的任何内容，您唯一可以看到的项目是“流程管理器”中名为“ wscript.exe”的条目。

理想的情况是，如果您有更多时间而不是起床去复印机的人：

1）在大多数计算机上，桌面上都有一个“我的电脑”图标，右键单击并转到“浏览”。

2）如果导航到C：文档和设置所有用户开始菜单程序启动，然后将脚本放入该文件夹中，每次将计算机加载到Windows中时，脚本就会运行。

步骤3 ：等待并笑

此步骤可能是有关此恶作剧的最好部分。

该脚本当前设置为在20分钟到99分钟之间的随机时间启动。我可以说99分钟似乎很长，但是其背后的原因是您希望“受害者”被抓尽可能地惊喜。如果驱动器刚刚打开和关闭3次，他们就会知道发生了什么。

第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

‘这就是发生魔术，装载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 =无

结束子

公共子暂停（持续时间）

Dim Current

当前=计时器

直到计时器-当前》 =持续时间

‘DoEvents

循环

结束子
责任编辑：wv