电脑
在桌面空白处：单击鼠标右键-----新建-----文本文档；新建好的文件如图；进行第2步
双击打开刚刚新建的文本文档，把下面的代码复制到文档中去，并保存在关闭：set ws=createobject('wscript.shell') call shutdown(1) do while a<>' ' a=inputbox('感谢你的来访，正在努力转接中、、、、请稍等 ','朱科技正在教小伙伴们学习VBE',' ')loop call shutdown(2) msgbox '客服：请问有什么需要帮助的吗',4096+64 msgbox'顾客：你好，麻烦帮我查个件，单号是XXXXXX',4096+64msgbox'客服：好的，先生，请您稍等、、、!',4096+64 MsgBox'客服：先生您好！你的快件正在陕西省商洛市',4096+64 MsgBox'顾客：哦，谢谢你了，',4096+64 MsgBox'客服：不客气！感谢您的来电，请您对我们的服务进行评价！',4096+64 MsgBox'宝剑锋从磨砺出，梅花香自苦寒来!',4096+64 MsgBox'业精于勤，而荒于嬉； 行成于思，而毁于随.',4096+64 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
保存好后修改文件名（文件名随意修改，任何文件名都可以），后缀名修改为VBE；进行第4步
双击文件就会提示弹出对话框，如图显示，一直点击确定即可结束。