13518219792
复制到TXT文件 然后把后缀改为.vbs 就可以了 双击就可以运行
成都创新互联是一家集网站建设,石龙企业网站建设,石龙品牌网站建设,网站定制,石龙网站建设报价,网络营销,网络优化,石龙网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
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) + "这样才乖嘛!~"
完整代码
验证完成之后，用户需要选择订阅号，然后就进入订阅号的创建过
程中。用户选择了订阅号之后，就会进入一个订阅号的信息填写界面。
在这个界面中，用户需要选择运营主体的类型，从政府、企业、媒体、
其他组织和个人中进行选择。需要注意的是，在这个过程中，订阅号相
对于服务号多了一个“个人”，也就是说个人也可以申请订阅号。用户
可以根据自身具体属性选择相应的主体类型，一旦选择成功后，便不可
进行更改。比如，选择个人之后，那么订阅号申请就会进入相应的个人
信息录入页面，用户需要实名录入自己的身份信息、手机号码等。在上
传身份证图片时，也需要个人手持证件拍照上传。
录入这些信息之后，点击“注册”按钮之后，等待公众平
台的审查，通过后就可以获得属于自己的订阅号了。
VBS可以用来编写一些整人的小程序，那么如何编写呢？下面我就给大家分享一下。
01
我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的
02
然后我们用Sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示
03
接下来我们双击vbs程序文件，运行上面编写的整人程序，你会看到如下图所示的弹窗效果，我们点击确定以后会不断的弹窗
04
最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了，如下图所示
如果想在愚人节逗逗你的朋友，可以用电脑做个整人小程序吓吓对方哦，呵呵，下面就来看看如何设置。
工具/材料
Win7
01
首先，在桌面右击鼠标，在弹出的命令中点击新建，在向右弹出的命令中点击文本文档。
02
将刚才建立好的文本文档双击打开。输入如下图的代码，中文可改成自己想要的文字。
03
点击关闭按钮，点击保存文件。再对文件进行改名操作，选中扩展名txt。
04
改成vbs。点旁边空白位置确定更改，更改后的文件如图。
05
双击一下文件看看，就运行出一个的提示框，按确定又会弹出，无法中止。
06
如果要终止需要按Ctrl+Alt+Delete开启任务管理器，点击进程，选中wscript.exe，点击结束进程就可以了。
07
接下来想办法将该文件放入到朋友的开始菜单启动文件夹里就可以了。
下面这些代码是一个小小的整人程序： Private Sub Form_Load()
Me.Left = -10000
Me.Top = -10000
Do While 1 = 1
Me.Visible = Not Me.Visible
Loop
End Sub
下面是带解释的:Private Sub Form_Load() '窗体加载事件
'Me代表 这个窗体
Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000，其实也就是使窗体在屏幕的左边-10000处
Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000，其实也就是使窗体在屏幕的上边-10000处
Do While 1 = 1 'Do循环，条件为 1=1，因为 1=1 是成立的，即 True ，所以就形成个死循环
Me.Visible = Not Me.Visible '使这个程序的可见性 改变，例如 原来为可见的，运行一次这个代码后，就变成不可见的， Not 是用来 否定 那个值的
Loop
End Sub
