如果你想要给朋友开个小玩笑,可以编写一个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代码主要用于整人,它会弹出一个输入框,要求用户输入“我是猪”,如果不输入,系统将在60秒后自动重启。一旦用户输入了“我是猪”,系统将取消重启操作,同时会显示一个消息框,内容为:“早说就行了嘛”。代码首先定义了一个变量WSHshellA,并将其设置为wscript.shell对象的一个实例。然后使用...
在这个问题中,我们需要了解如何使用VBS(Visual Basic Script)编写代码来整人。首先,打开命令提示符窗口,输入"vbs"并回车,新建一个VBS脚本文件。然后,将以下代码粘贴到脚本中:do msgbox "you are foolish!",16 4096,"mistake"wscript.sleep 120000 loop 代码解释:这段代码会不断弹出一个消息框,...