江苏龙网

  1. 主页 > 生活百科 > >

三十二个vbs整蛊代码 整人代码大全( 二 )

复制代码代码如下:
set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 关闭当前打开的多个窗口复制代码代码如下:
dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next复制代码代码如下:
dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名","芮洲提醒：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："&a&" ",vbYesNo + vbExclamation,"芮洲提醒：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名","芮洲提醒：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊重的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"请填写一下你的喜好 。(只需填一个哦！)","芮洲提醒：","请在此输入你的喜好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出身[年 月 日]电脑将主动算出到目前为止你已经在地球上存活了多少时光！"&vbcrlf&""&vbcrlf&"下面以我为例 不同可以修正"&vbcrlf&""&Chr(10)&"格局为：1987-06-02","芮洲提醒：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小时 "&n&"分钟.....",vbOKCancel+63,"芮洲提醒：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All 资源网;Users\桌面\"&a&"的机密.vbs",true) auto.WriteLine "MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的喜好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已经活了:"&age&"天 "&h&"小时 "&n&"分钟 "&""""&",64,"&""""&""&a&"的自我介绍：""" auto.WriteLine "msgbox"&""""&"亲爱的 "&a& " 再见了！"&""""&",48,"&""""&"芮洲提醒："&""""&"" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"诞辰快活.TXT",true) auto.WriteLine "本人芮洲祝: "&a&" 诞辰快活、心想事成、敢于勇敢尝试、早日飞黄腾达......." auto.WriteLine "你已在地球上生涯了:"&age&"天 "&h&"小时 "&n&"分钟了" auto.WriteLine "时光是依据你的出身年月日算的，可能不是很准确，但目标只是想让知道时光过的很快，请珍爱时光!!! 。"


推荐阅读


上一篇：猫眼电影余额在哪里查 猫眼电影怎么退票退款?

下一篇：全球面积排名前三的城市 世界城市面积排名