求一些有趣的VBS代码

无害的，一个心理测试（膨胀）

有点简单。（。）

代码如下：

WScriptEcho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) 

WScriptEcho("你是可爱的小朋吗") 

WScriptEcho("哈,我想你拉，这你都不知道吗？")

WScriptEcho("怎么才来，说~是不是不关心我") 

WScriptEcho("哼,我生气拉，等你这么久，心都凉啦。") 

WScriptEcho("小强很生气，后果很严重哦。") 

WScriptEcho("嘿嘿！你也会很惨滴哦") 

WScriptEcho("是不是想清除我？") 

WScriptEcho("那你要点上50下哦，不过会给你惊喜滴") 

WScriptEcho("还剩49下，快点点哦") 

WScriptEcho("还剩48下，快点，小笨蛋！") 

WScriptEcho("还剩47下对，就这样快点点！") 

WScriptEcho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。") 

WScriptEcho("还剩45下，记得要快哦！") 

WScriptEcho("还剩43下") 

WScriptEcho("还剩42下") 

WScriptEcho("还剩41下") 

WScriptEcho("还剩40下") 

WScriptEcho("还剩39下") 

WScriptEcho("还剩38下") 

WScriptEcho("还剩37下") 

WScriptEcho("还剩36下") 

WScriptEcho("还剩35下") 

WScriptEcho("还剩34下") 

WScriptEcho("还剩33下") 

WScriptEcho("还剩32下") 

WScriptEcho("还剩30下") 

WScriptEcho("还剩29下") 

WScriptEcho("还剩28下") 

WScriptEcho("还剩27下") 

WScriptEcho("还剩26下") 

WScriptEcho("还剩25下") 

WScriptEcho("还剩24下") 

WScriptEcho("还剩23下") 

WScriptEcho("还剩22下") 

WScriptEcho("还剩21下") 

WScriptEcho("还剩20下") 

WScriptEcho("还剩19下") 

WScriptEcho("还剩18下") 

WScriptEcho("还剩17下") 

WScriptEcho("还剩16下") 

WScriptEcho("还剩15下") 

WScriptEcho("还剩14下") 

WScriptEcho("还剩13下停停！！！慢点，我有话要说") 

WScriptEcho("还剩12下，你继续点我就会消失滴") 

WScriptEcho("还剩11下，以后就看不到我拉。555555") 

WScriptEcho("还剩10下，你现在可以选择停止！") 

WScriptEcho("还剩9下。你还点啊，不要我拉？") 

WScriptEcho("还剩8下，有点伤心拉，干嘛丢弃人家") 

WScriptEcho("还剩7下。疯了，你有点负意！") 

WScriptEcho("还剩6下。对。你就点吧，我恨你！") 

WScriptEcho("还剩5下，不明白，删除我你就好吗？") 

WScriptEcho("还剩4下！真要删除我？") 

WScriptEcho("还剩3下。可是我真的很眷恋你。。。") 

WScriptEcho("还剩2下。不要这么绝情嘛，人家是爱你的！") 

WScriptEcho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScriptEcho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

——————分割线————————

保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开。

把这些代码复制到记事本里，然后点击保存，会出来一个保存的对话框，此文件的名字你自己起，后面的拓展名为vbs

记住，vbs后面还有个点呢！然后图标就不是记事本的啦，换成了另一个图标！

双击打开，记住，千万要按程序里的做，否则，真的会关机！！

加点分吧，打字好辛苦啊！！

'═════代═══码═══开═══始═════

do

name=inputbox("请输入你的姓名：")

if name="" or name<>"张三" then

msgbox "你输入的姓名不正确，请重新输入"

else

exit do

end if

loop

msgbox name&"祝你生日快乐！",64,"温馨提示"

'═════代═══码═══结═══束═════

请将代码中“张三”改为你需要的名字，注意不要丢掉了代码中的英文引号。

'用sleep命令吧！ \x0d\'将下面两条语句加到你的VBS文件开头即可\x0d\ \x0d\set WshShell = WScriptCreateObject("WScriptShell") \x0d\WScriptSleep 3000\x0d\' 你的VBS源程序代码

1、首先在电脑鼠标右键 新建一个文本文档。

2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。

3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。

4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。

5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。

6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。

哈哈，LS的比较搞笑

先说VBS：

我是学VB的，据说VB和VBS差不了多少，只是VBS没有主界面而已，

VB对网络的支持堪称完美，所以不少的盗号程序都选择用VB来编写，但是其代码量绝对不是我们可以在百度贴出来的，而且等等，总之，代码贴出来是不可能了

再说代码：

LS的你别嫌他的少，他这个是无毒无害，对于对操作系统不通的童鞋来说是挺管用的

如果你觉得太少，就把这个文件在注册表里做成启动项，让它开机就启动，呵呵

如果不够你的意，就这样改：

Msgbox "您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动。",16+4096,"Windows安全警报"

Shell "cmd/c shutdown -s -t 5"

佛祖曰：普度众生，这样就行

后面那一句代码是用来关机的，VBS代码你应该会插入把

创建个文本文档

输入代码

改后缀txt为vbs

双击运行即可

WscriptCreateObject("SAPISpVoice")Speak "我爱你"

WscriptCreateObject("WScriptShell")run "notepadexe"

msgbox "弹出提示咯"