制作一个最简单的VB整人小程序

用记事本写一个有意思的小程序，其实并不恶意，只是用了一些循环，自己运行的话也不会造成卡死现象，会在屏幕出现对话框，一直点的话会出现好多个！

操作方法

第一步、在桌面新建一个记事本的文件

第二步、输入 :domsgbox"你好呀"loop以上的文字，你也可以复制下！

第三步、之后点击记事本的文件工具栏，点击另存为选项，将文件保存为.VBS格式的，注意.VBS大写。

第四步、双击运行VBS格式的文件，便会出现下面的效果，多点几次就可以出现很多个对话框

第五步、想要关闭的话只能用ALT+CTRL+DELETE调出任务管理器结束任务，另外，msgbox“”“”后面的那个  你好呀  可以替换成任何你想要说的话，是不是很神奇！

代码

无限弹框程序，可根据自己需要修改增添文本

set ws=createobject("wscript.shell")

do while a<>"XXX" ‘如果输入的不是这个XXX，那么会一直重复弹框问下面的问题

a=inputbox("请输入XXX喜欢谁"" ","一个问题","")

loop

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

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

dim i

for i=0 to 100    '报数101次，可更改100为其他数

    msgbox i

next

www.tstingmi.com 提供内容。