vb恶搞小程序

我想要这样的一个程序打开是一个对话框   要桌面锁定不用死循环  但要别人按很久  可以的话能加你QQ吗？

追问：很不错   不过我要的不是死循环

答案：新建一个记事本 输入下面这些内容  把***这些改成你的名字  最后文件保存你就打***.vbe    
for m = 1 to 99
msgbox "呵呵，你知道我是谁吗？",16
msgbox "什么？？不知道？",16
msgbox "那你打开易做图什么？",16
msgbox "你有空没事做吧？！",16
msgbox "我..就是鼎鼎大名的***",16
msgbox "刚刚才学会写的..",16
msgbox "现在你把它打开了觉得后悔了吧？呵呵..",16
msgbox "算了算了，不玩你了",16
msgbox "现在我数3声就闪人,行了吧?",16
msgbox "1.............",16
msgbox "2.............",16
msgbox "3.............",16
msgbox "噔噔噔噔,我又回来了！",16
msgbox "哈哈，是不是很过瘾呢？",16
msgbox "现在我先介绍下自己..",16
msgbox "我叫***..",16
msgbox "性别：男..",16
msgbox "今年16岁..",16
msgbox "不好意思噢，我好像说多了..",16
msgbox "不要这样喇，听我说完先好不？",16
msgbox "来来来，开始喇..",16
msgbox "我叫***..",16
msgbox "家中有屋又有田..",16
msgbox "生活乐无边..",16
msgbox "好像我又说多了...",16
msgbox "不要生气嘛，你认真看下去我就放你走..",16
msgbox "好，开始喇..",16
msgbox "从前有座山..",16
msgbox "山里有个座庙..",16
msgbox "庙里有个和尚..",16
msgbox "哈哈，想哭吗？",16
msgbox "被骗的感觉不爽吧？",16
msgbox "喂喂喂！别别..千万别重启电脑",16
msgbox "我告诉你怎么关吧",16
msgbox "先打开任务管理器",16
msgbox "然后关掉explorer.exe",16
msgbox "对对,就那个你关了就没有了",16
msgbox "相信我吧,你知道我是不会骗人的",16
msgbox "如果你还想继续点的话,你就别听我的",16
msgbox "呵呵,我又没有说这个东西没有",16
msgbox "我只想说桌面没有罢了..",16
msgbox "嘻嘻,爽不爽吖?",16
msgbox "对着电脑屏幕大声说***大好人",16
msgbox "不然,我就没办法的咯",16
msgbox "因为我把循环设置成99了",16
msgbox "想保存电脑数据只有继续点了",16
msgbox "绝对会出到去的",16
msgbox "跟你讲个故事",16
msgbox "三轮车跑得快",16
msgbox "车上坐着个老太太",16
msgbox "说5毛给一块",16
msgbox "你说奇怪不奇怪",16
msgbox "(*^__^*) 嘻嘻……不是这个你上当了吧",16
msgbox "是阿呆的故事",16
msgbox "阿呆从小就有口吃的毛病",16
msgbox "★外出篇⊙有一天，家里有客人要来，阿呆的妈妈叫阿呆去买东西回来。到了商店。老板：“牛肉干一包100元。”阿呆： “我买……买……买……”老板立刻打包起来。阿呆： “买不起！”⊙阿呆又问饼干怎么卖。老板： “一包80元。”阿呆： “好……好……好……”老板立刻把饼干包起来。阿呆： “好贵！”⊙阿呆拿起一瓶汽水。老板： “一瓶30元。”阿呆： “开……开……开……”老板立刻把汽水瓶撬开。阿呆： “开什么玩笑！”⊙随便买了东西，回家途中，有人在卖饮料，可以试喝。老板： “ 要不要喝一小杯？”阿呆： “ 我喝……喝……喝……”老板立刻倒了一杯。阿呆： “ 喝不下。”⊙阿呆继续走，路上遇到了客人。阿呆： “ 我妈请……请……请你到我家吃便……便……便……便饭！”⊙刚过完年，客人拿出红包要给阿呆。阿呆： “ 不……不……不……”客人立刻把红包收起来。阿呆： “ 不好意思！”⊙客人： “ 我有事要找你爸，你爸在不在家？”阿呆： “ 在……在……在……”客人拉着阿呆的手走入家中。阿呆： “ 在外面。”★医院篇⊙有一次阿呆得了重感冒，躺在医院中。医院规定家属只能有一个留下来。阿呆母： “ 阿呆，你要谁陪你？”阿呆： “ 妈……妈……妈……”爸爸听了，起身就走。阿呆： “ 妈，您……您……您回去好了。”⊙医院规定，每六小时吃一次药，六点、十二点。阿呆母： “ 阿呆，现在几点了？”阿呆： “ 六……六……六点……”阿呆母立刻把药灌下去。阿呆： “ 六点还不到！”⊙值大夜班的护士，忘了有没有替阿呆易做图。护士： “ 刚刚易做图了没？”阿呆： “ 打……打……打……”护士立刻把针打下去。阿呆： “ 打过了！”★父亲篇⊙阿呆好不容易出院了，为了付医药费，欠朋友钱，只好同他爸去出摊。阿呆爸爸慢慢地把小东西放在地上。阿呆： “ 快……快……快……”阿呆爸把东西全倒在地上。阿呆： “ 快跑！”（易做图来了）⊙阿呆跑回家中，阿呆母闻讯马上回家。阿呆母： “ 你爸怎么了？”阿呆： “ 死……死……死……”阿呆母放声大哭。阿呆： “ 死不了！”⊙阿呆爸坐牢了。阿呆母带着阿呆要坐计程车到飞机场回高雄娘家住。坐上计程车时，才发现飞机票忘了带，阿呆打开行李。阿呆： “这里……这里……”计程车直奔飞机场。阿呆：“这里没有！”★相亲篇回到乡下，阿呆的外婆觉得阿呆也老大不小了，该结婚了。找了媒人来做媒，好几次快成功，但仍失败，因为……",16  
msgbox "⊙第一次：女方你家有没有钱？”阿呆： “有……有……有……”媒人： “好！不错，可以做少奶奶。”阿呆： “有钱才怪！”⊙第二次：女方： “你喜欢什么？”阿呆： “野……野……野……”女方： “野女人！走了！”阿呆： “野百合。”⊙第三次：女方： “你是骑机车还是开车？”阿呆： “我骑……骑……骑……”媒人： “骑机车也不错，不怕塞车。”阿呆： “骑脚踏车。”⊙第四次：女方： “如果结婚后，你第一胎希望是男孩还是女孩？”阿呆： “男……男……男……”女方： “重男轻女！老古板！走了！”阿呆： “男孩比较皮！”⊙第五次：阿呆母叫阿呆不要讲话了。事后问阿呆刚才那个女孩怎样。阿呆： “不……不……不……”阿呆母： “不好？媒人，那个女孩不要了。”阿呆： “不错！”⊙第六次：好不容易，有个女孩看上阿呆忠厚老实，于是约个时间去看电影。看完电影，女孩情不自禁吻了阿呆。阿呆： “再……再……再……”女孩： “什么？好！再见！”头也不回地走了。阿呆： “再来一次！”⊙第七次：又有女孩看上阿呆，相亲后第二天，女孩主动打电话来。女孩： “你还记得我是谁吗？”阿呆： “我忘……忘……忘……”女孩： “忘记了？算了！再见！”女孩挂上电话。阿呆： “忘不了！”★未婚妻篇⊙天公疼好人，阿呆终于要结婚了。阿呆同他未婚妻去逛百货公司，想买衣服好结婚用。未婚妻： “阿呆，我穿这件好不好看？买下来好不好？”阿呆： “好……好……好……”未婚妻马上去付钱。阿呆： “好丑！”⊙阿呆带着未婚妻，到监狱找他爸爸。阿呆爸： “她是……”阿呆： “她是纪……纪……纪……”阿呆爸： “什么？易做图！”阿呆： “纪易做图！”⊙阿呆爸： “你未婚妻以前是做什么的？”阿呆： “是在易做图……春……春……”阿呆爸： “易做图？还不是易做图！”阿呆： “易做图卷。”",16
msgbox "好了,我都说累了,祝你好运..",16
msgbox "制作者:***",16
msgbox "QQ：**********",16
msgbox "E-mail:不告诉你",16
msgbox "好,继续循环..",16
next 

上一个：VB编程问题1
下一个：vb连sql