VBScript恶搞代码:自动输入与计算机关机

"VBS整人代码集合,包括模拟键盘输入、弹窗整蛊、无限制启动计算器以及执行关机命令的脚本示例。"
VBS(Visual Basic Script)是一种基于Visual Basic的脚本语言,常用于自动化任务、系统管理以及网页交互。在上述资源中,我们看到几种不同的VBS代码段,主要用于整人或恶作剧目的。下面将对这些代码进行详细解释:
1. **模拟键盘输入**:
这段代码创建了一个`WScript.Shell`对象,通过`AppActivate`激活指定的窗口(在这个例子中是"xx"),然后模拟按下Ctrl+V、数字i、Shift+S的组合键,连续执行10次。这可能会在目标用户的电脑上粘贴一些预先设定的文字。
```vbs
Dim wsh, ye
Set wsh = CreateObject("WScript.Shell")
For i = 1 To 10
WScript.Sleep 700
wsh.AppActivate("xx")
wsh.SendKeys "^v"
wsh.SendKeys "i"
wsh.SendKeys "%s"
Next
WScript.Quit
```
2. **弹出消息框**:
这段代码会无限次地弹出一个带有文本"You are foolish!"的消息框,直到用户手动关闭它。
```vbs
Do
MsgBox "You are foolish!"
Loop
```
3. **无限制启动计算器**:
这个脚本创建了一个`WScript.Shell`对象,并在一个循环中无限次地启动计算器程序,直到用户停止执行。
```vbs
Dim wsh
Set wsh = CreateObject("WScript.Shell")
Do
wsh.Run "calc"
Loop
```
4. **执行关机命令**:
最后,这段代码会在执行时立即关闭计算机,没有提供任何取消选项,使用了`shutdown -f -s -t 00`命令,其中 `-f` 强制关闭应用程序,`-s` 表示关机,`-t 00` 设置延迟时间为0秒。
```vbs
Dim WSHshell
Set WSHshell = WScript.CreateObject("WScript.Shell")
WSHshell.Run "shutdown -f -s -t 00", 0, True
```
需要注意的是,这些整人代码可能会影响他人正常使用计算机,甚至可能引起数据丢失或安全问题。因此,在实际操作时,请确保获得了对方的同意,或者仅用于教育和学习目的。不要在未经授权的情况下对他人电脑使用这些代码。
1735 浏览量
233 浏览量
3439 浏览量
706 浏览量
2310 浏览量

HKQYTT
- 粉丝: 0
最新资源
- VB实现Excel数据导入到ListView控件技术
- 触屏版wap购物网站模板及多技术源码大全
- ZOJ1027求串相似度解题策略与代码分析
- Excel表格数据合并工具:高效整合多个数据源
- MFC列表控件:实现下拉选择与编辑功能
- Tinymce4集成Powerpaste插件即用版使用教程
- 探索QMLVncViewer:Qt Quick打造的VNC查看器
- Mybatis生成器:快速自定义实体类与Mapper文件
- Dota 2插件开发:TrollsAndElves自定义魔兽3地图攻略
- C语言编写单片机控制蜂鸣器唱歌教程
- Ansible自动化脚本简化Ubuntu本地配置流程
- 探索ListView扩展:BlurStickyHeaderListView源码解析
- 探索traces.vim插件:Vim的范围选择与模式高亮预览
- 快速掌握Ruby编译与安装的神器:ruby-build
- C语言实现P1口灯花样控制源代码及使用指南
- 会员管理系统:消费激励方案及其源代码