4个回答
展开全部
do:msgbox"爽死你~":loop
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"孟哥无敌"
a=inputbox("说孟哥无敌,就不关机,快撒,说 ""孟哥无敌"" ","说不说","不说")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"孟哥无敌真的无敌吗!",4096+64
msgbox"孟哥无敌!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/82883883/infocenter"
msgbox"哎呀累了!数绵羊哄我睡觉",4096+64
for i=1 to 1000
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64
msgbox"最后问个问题,孟航是不是大好人!",4096+64
if inputbox("是不是","请选择","不是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"孟哥无敌"
a=inputbox("说孟哥无敌,就不关机,快撒,说 ""孟哥无敌"" ","说不说","不说")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"孟哥无敌真的无敌吗!",4096+64
msgbox"孟哥无敌!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/82883883/infocenter"
msgbox"哎呀累了!数绵羊哄我睡觉",4096+64
for i=1 to 1000
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64
msgbox"最后问个问题,孟航是不是大好人!",4096+64
if inputbox("是不是","请选择","不是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
展开全部
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 90 -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) + "哈哈哈哈,早叫老公不就行了"
中文随便改,改一个就是一个,切记"类似的符号不可以动的,另外你整人,让人家说我是猪那么这里do while(a <> "老公")中文一定要跟着变,不然答案不对人家就只有重起了就是说这里是老公,他就得输入老公,是猪就得输入猪这是一种玩法
就本条命令还有一种玩法,将cmd.exe /c shutdown -r -t 90 -c中的-r换成l是注销换成s就是关机了换成F是强制关闭应用程序没有警告,你可以在运行了输入cmd后在输入shutdown查看各种参数用法
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 90 -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) + "哈哈哈哈,早叫老公不就行了"
中文随便改,改一个就是一个,切记"类似的符号不可以动的,另外你整人,让人家说我是猪那么这里do while(a <> "老公")中文一定要跟着变,不然答案不对人家就只有重起了就是说这里是老公,他就得输入老公,是猪就得输入猪这是一种玩法
就本条命令还有一种玩法,将cmd.exe /c shutdown -r -t 90 -c中的-r换成l是注销换成s就是关机了换成F是强制关闭应用程序没有警告,你可以在运行了输入cmd后在输入shutdown查看各种参数用法
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈,还不嗨皮"
msgbox chr(13) + chr(13) + chr(13) +"你这个大傻子"
msgbox chr(13) + chr(13) + chr(13) +"你是不是挫"
msgbox chr(13) + chr(13) + chr(13) +"你是猪"
msgbox chr(13) + chr(13) + chr(13) +"好嗨哦"
msgbox chr(13) + chr(13) + chr(13) +"你是猪不可能给你关掉的"
msgbox chr(13) + chr(13) + chr(13) +"你太傻了,不要想关掉的啦,就欺负你蠢"
do
msgbox chr(13) + chr(13) + chr(13) + "你是猪,大傻子,猪,你太蠢"
loop
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈,还不嗨皮"
msgbox chr(13) + chr(13) + chr(13) +"你这个大傻子"
msgbox chr(13) + chr(13) + chr(13) +"你是不是挫"
msgbox chr(13) + chr(13) + chr(13) +"你是猪"
msgbox chr(13) + chr(13) + chr(13) +"好嗨哦"
msgbox chr(13) + chr(13) + chr(13) +"你是猪不可能给你关掉的"
msgbox chr(13) + chr(13) + chr(13) +"你太傻了,不要想关掉的啦,就欺负你蠢"
do
msgbox chr(13) + chr(13) + chr(13) + "你是猪,大傻子,猪,你太蠢"
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
for i=1 to 1000
msgbox i&"只羊.....",4096+64,"提示"
next
msgbox i&"只羊.....",4096+64,"提示"
next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询