vbs 2

最新推荐文章于 2024-05-24 09:33:19 发布

wxthwxc

最新推荐文章于 2024-05-24 09:33:19 发布

阅读量281

点赞数

分类专栏： vbs 文章标签： vbs

本文链接：https://blog.csdn.net/wxthwxc/article/details/108576331

版权

vbs 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

新一期的vbs，代码如下
拿着这些代码去整蛊 “帮助”朋友，他们会感谢你的

1.系统故障

msgbox"电脑发生故障,请维修"+chr(13)+chr(13),2,"系统故障提醒"
do
CreateObject("SAPI.SpVoice").Speak"错误错误错误错误错误错误错误错误错误错误错误错误错误错误错误错误错误"
loop
set wmp=createobject("wmplayer.ocx") 
set cd=wmp.cdromcollection.item(0)  
do 
cd.eject  
loop

2.点死你（里面的s=***可以改变点击数量）

dim s 
do until s=10000
s=s+1 
msgbox "按10000次“Enter”才会关闭哦",64 
loop

3.刷屏

dim ws
set ws = wscript.createobject("wscript.shell")
a = 2
for i = 1 to a
do
ws.run "mshta vbscript:msgbox(""你的PC中毒了"",4096+48,""Windows警告"")(window.close)",vhide
loop
Next