windows制作定时关机脚本_整人、撩妹、表白vbs脚本语言代码合集，快来学学

VBS是基于Visual Basic的脚本语言，简单方便，不需要下载编译器，更不需要配置环境，只用windows自带的记事本就可以进行开发，简单粗暴。

右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->双击运行。

接下来就是代码了：

1.最简单的一行代码

msgbox "你个猪头！"

当然你还可以多写几行其他有趣的文字，程序将会一行一行运行。

2.死循环恶搞

上个代码点完“确定”就运行结束了，想要整人还是不够，那我们可以加一个死循环，点击确定和关闭按钮之后，会再一次弹出窗口，如此循环，无法正常关闭。

domsgbox "你个猪头！"loop

那怎么才能关闭呢？只有打开任务管理器(快捷键Ctrl+Alt+Delete)找到wscript.exe进程冰右键结束任务。windows7系统wscript.exe在”进程“中，windows10系统wscript.exe在”详细信息“中。

结束wscript.exe进程

3.无限英文报数从1到无穷大，关闭方法同上

Set s = CreateObject("sapi.spvoice")i=0do s.speak i i=i+1loop

4.无限刷新(慎用！！！)刷新难以打开任务管理器，只能强行关机

set ws=createobject("wscript.shell")do ws.sendkeys "{f5}"loop

5.QQ连续发送信息骚扰好友

打开QQ，准确记下好友的备注，代码里的”菜鸡“替换为你的好友备注，数字”30“替换为你想要发送的次数，复制好你准备发送的消息，双击运行vbs。

On Error Goto 0 Dim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 30wscript.sleep 100 wsh.AppActivate("菜鸡") wsh.sendKeys "^v"wsh.sendKeys "%s" next wscript.quit

QQ骚扰好友

6.表白代码

其中用到了定时关机，但是后面会取消的。

Set Seven = WScript.CreateObject("WScript.Shell")strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "Seven.url") oShellLink.Savese_key = (MsgBox("我喜欢你很久了，你可以做我女朋友吗 是=同意 否=拒绝