微信小程序 > 微信公开课 > vb有趣小程序
微信小程序，微信公开课，vb有趣小程序

vb有趣小程序

2019-03-12 17:01:43

微信公开课小程序热门讨论「vb有趣小程序」最新回复-PrivateWithEventsTimer1AsTimerDimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b#PrivateSubForm_Load()Me.Width=4500:Me.Height=4500Me.Move(Screen.WidthMe.Width)\2,(Screen.HeightMe.Height)\2Me.AutoRedraw=TrueMe.Caption=CBM666的万花筒SetTimer1=Controls.Add(vb.timer,Timer1)Timer1.Interval=10EndSubPrivateSubTimer1_Timer()Randomizer=340*RndIfr0Thenr1=500s=r*Rndb=RGB(256*Rnd,256*Rnd,256*Rnd)Fort=1To10000a1=t*3.1415926/180a2=(r1/r)*a1xb=500+((r1r)*Cos(a1)s*Cos(a2a1)+420)*4yb=500+((r1r)*Sin(a1)s*Sin(a2a1)+380)*4Me.PSet(xb,yb),bNexttEndIfEndSub
整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改)，经测试肯定可以使用。onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject(wscript.shell)WSHshellA.runcmd.exe/cshutdown-r-t60-c说[我是猪]，不说[我是猪]，不信，试试···,0,true  dimadowhile(a我是猪)a=inputbox(说[我是猪],就不关机，快撒，说[我是猪],说不说,不说,8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,MsgBoxloopmsgboxchr(13)+chr(13)+chr(13)+早说就行了嘛dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd.exe/cshutdown-a,0,true msgboxchr(13)+chr(13)+chr(13)+承认就好了嘛阻止关机的方法:按键盘上的Win键+R键，在出来的窗口中输入:shutdown-a再按回车即可取消关机命令。 更多有关「vb有趣小程序」的疑问请扫码关注微信公开课+小程序！
标签：微信公开课,小程序
微信小程序，微信公开课，vb有趣小程序

「vb有趣小程序」热议话题订阅

方法1：微信扫描微信公开课小程序码即可订阅热议话题「vb有趣小程序」

方法2：微信搜索微信公开课小程序名称进入，即可订阅热议话题「vb有趣小程序」

方法3：微信网页访问即速商店，长按识别微信公开课小程序码即可订阅热议话题「vb有趣小程序」

微信公开课小程序热议话题「vb有趣小程序」由微信公开课原创摘录于微信小程序商店shop.jisuapp.cn，转载请注明出处。

微信公开课热议话题「vb有趣小程序」由微信公开课开发者向微信用户提供，并对本服务内容、数据资料及其运营行为等真实性、合法性及有效性承担全部责任。

微信公开课小程序

更新时间：2019-03-12 17:01:43

一键制作小程序 全国代理小程序 订阅微信公开课