有趣的VBS整人脚本（vbs整人脚本）

admin 2022-07-15 11 浏览 0 评论

VBS也可以用来整人？对，可以啊。不爽时用代码做成一个小程序，让对方运行。

经本人亲自测试不会出问题的， 如果想要中断进程：打开任务管理器——找到wscript.exe——结束进程就可以啦。

很简单，首先在新建一个文本文档，粘贴以下代码（一个字符也不能漏喔）；

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

Set ws=WScript.CreateObject("WScript.Shell")

ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10

ws.popup"正在下载windows更新……",12

wscript.sleep 5000

ws.popup"windows更新已下载完毕，正在安装更新……",12

wscript.sleep 1000

ws.popup"windows更新安装成功！",vbinfmation,20

msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation

ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64

ws.popup"不信？我用你的电脑打开我的网站给你看看",10

ws.run"http://user.qzone.qq.com/958006654/"

ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30

ws.popup"下机可不能忘了关QQ 我吧你QQ关了哈",8

ws.run "taskkill /f /im qq.exe"

ws.popup"你还要上吧 慢慢玩哦",27

dim WSHshell

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

for d=0 to 4

WSHshell.SendKeys "%{F4}"

next

ws.run"shutdown -s -t 50000"

wscript.sleep 2000

dim a

do

a=inputbox("请输入解除关机密码")

if a="我爱你广哥" then

ws.run"shutdown -a"

msgbox"密码验证成功，enjoy the best!"

exit do

else

msgbox"密码验证失败，请输入解除关机密码：我爱你广哥 ",vbretrycancel

end if

loop

ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57

ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62

wscript.sleep 8900

do until i=10

i=i+1

msgbox "广哥还在偷偷看着你呢，他想跟你成为朋友！",16+4096,"系统提示："

wscript.sleep 1000*45

loop

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

保存记事本文档，把文件的后缀名txt改成vbs。

点击运行，试下效果吧！

想要学习更多电脑小知识，欢迎关注微信公众号 vbs_edit（VBS脚本之家），很炫酷哦~！