谁给我一个整人的VBS代码啊 谢谢了

Set fun=Nothing End If Next End If End If Next WScript.Sleep 60*1000 Loop '''代码结束'''打开记事本,复制代码并保存为vbs格式。请注意,此代码仅适用于娱乐,切勿滥用,以免造成不必要的麻烦。除非是特别讨厌的人,否则请谨慎使用。
谁给我一个整人的VBS代码啊 谢谢了
mengvlog 阅读 9 次 更新于 2025-07-20 04:39:24 我来答关注问题0
  • 如果你想要给朋友开个小玩笑,可以编写一个VBS文件,代码如下:Set a = WScript.CreateObject("WScript.Shell")a.Run "cmd.exe /c shutdown -r -t 3600 -c ""求我,我就告诉你怎么办...嘿嘿..."" ",0 ,true 将这段代码复制并保存为*.vbs文件,然后发送给要整的人。这里的3600代表延迟...

  • 这是一个简单的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代码主要用于整人,它会弹出一个输入框,要求用户输入“我是猪”,如果不输入,系统将在60秒后自动重启。一旦用户输入了“我是猪”,系统将取消重启操作,同时会显示一个消息框,内容为:“早说就行了嘛”。代码首先定义了一个变量WSHshellA,并将其设置为wscript.shell对象的一个实例。然后使用...

  • 在这个问题中,我们需要了解如何使用VBS(Visual Basic Script)编写代码来整人。首先,打开命令提示符窗口,输入"vbs"并回车,新建一个VBS脚本文件。然后,将以下代码粘贴到脚本中:do msgbox "you are foolish!",16 4096,"mistake"wscript.sleep 120000 loop 代码解释:这段代码会不断弹出一个消息框,...

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

代码相关话题

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