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

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


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


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



先建一个文本文档,复制粘贴以下内容,等编辑完毕后将后缀名改为.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,棉花糖”的。

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




猜你喜欢

转载自blog.csdn.net/zuzhiang/article/details/80794966