2024年3月18日发(作者：)

vbs好玩的代码

VBS（VisualBasicScripting）是一种脚本语言，常用于Windows

操作系统上的系统管理、自动化任务和网页制作等方面。以下是一些

好玩的VBS代码：

1. 在屏幕上写字

可以使用以下代码在屏幕上写字：

```

MsgBox 'Hello World!'

```

2. 使电脑说话

可以使用以下代码让电脑说话：

```

Dim speech

Set speech=CreateObject('e')

'Hello World'

```

3. 改变鼠标光标的位置

可以使用以下代码改变鼠标光标的位置：

```

Set WshShell = Object('')

''

1000

- 1 -

ys 'mode con: cols=18 lines=1{ENTER}'

ys 'echo 0 50{ENTER}'

ys 'exit{ENTER}'

1000

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

- 2 -

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

ys '{UP}'

```

4. 打开CD/DVD驱动器

可以使用以下代码打开CD/DVD驱动器：

```

Set oWMP = CreateObject('.7')

Set colCDROMs = ollection

do

if >= 1 then

For i = 0 to -1

(i).Eject

Next

For i = 0 to -1

(i).Eject

Next

End If

15000

loop

- 3 -

```

5. 自动输入用户名和密码

可以使用以下代码自动输入用户名和密码：

```

Set WshShell = Object('')

''

1000

ys 'Userna MyUsername{ENTER}'

ys 'Password: MyPassword{ENTER}'

1000

ys '%{F4}'

```

这些代码只是VBS的冰山一角，VBS还能做很多其他有趣的事情，

希望你会喜欢上它！

- 4 -