教你做一个可以自定义的电子生日礼物（放屁熊猫生日礼物+VBS）

欢迎关注我的个人博客：www.zuzhiang.cn

 

先给出下载地址：电子生日礼物下载

 

这个电子生日礼物实现的功能有：点击后自动弹窗，每次弹窗的内容可以自定义，可以写上你对对方想要说的话哦~还可以让电脑发出声音，比如说句“生日快乐”之类的。弹窗结束后自动打开“放屁熊猫”程序，点击右下角的图标所有的熊猫就会以放屁的形式给他/她演奏一首生日快乐歌，是不是有点贱贱感觉呢……

 

话不多说，下面就来介绍一下这个程序怎么设计。主要有下面的文件构成。

 

先建一个文本文档，复制粘贴以下内容，等编辑完毕后将后缀名改为.vbs 。这个文件对应着上图的第三个文件，功能如文件名所示：点击之后，它会自动打开 1.vbs 文件，即弹窗文件，等弹窗文件运行结束后再自动打开 1.exe 文件，即“放屁熊猫”程序。所以下面代码中的 1.vbs 和 1.exe 要和文件名对应起来。

Set objectshell=CreateObject("wscript.shell")
objectshell.Run "1.vbs",,true
objectshell.Run "1.exe"

 

 

 

接下来写 1.vbs 即弹窗的文件，比如你想让系统弹窗提示“祝你生日快乐”，则就在文本文档里写入 msgbox"祝你生日快乐" ，注意引号是英文状态下的，如果有多个弹窗，就复制该 msgbox"" 语句，多写几次就可以了。而 CreateObject("SAPI.SpVoice").speak "Happy birthday，棉花糖" 这个语句则是让电脑发出声音“Happy birthday，棉花糖”的。

然后就是最重要的程序——“放屁熊猫”程序了。鼠标移到每个熊猫身上都会放一个音调不同的屁，点击右下角的按钮它们会以放屁的形式给你演奏一首生日快乐歌。它张下面这样：