admin 管理员组

文章数量: 1184232


2024年4月30日发(作者：gis)

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 -


本文标签： 代码 使用 任务

版权声明：本文标题：vbs好玩的代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714446858a680555.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。