谁有vbe整人代码越多越好

谁有vbe整人代码越多越好要安全无毒的哦... 谁有vbe整人代码越多越好 要安全无毒的哦 展开
 我来答
我不火星啊
推荐于2016-04-08 · TA获得超过210个赞
知道答主
回答量:39
采纳率:25%
帮助的人:18.2万
展开全部
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
ljh3a
2008-10-26 · TA获得超过211个赞
知道答主
回答量:61
采纳率:0%
帮助的人:73.2万
展开全部
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查看各种参数用法
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
帛凝丹08a
2020-02-26
知道答主
回答量:2
采纳率:0%
帮助的人:1252
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
落vs寂
2008-10-25 · TA获得超过886个赞
知道小有建树答主
回答量:458
采纳率:0%
帮助的人:749万
展开全部
for i=1 to 1000
msgbox i&"只羊.....",4096+64,"提示"
next
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式