生日快乐小代码

编程知识更新时间:2023-04-04 07:40:35

我在找这类代码，怎么也找不到，最后编了一个，希望有这类需求的可以满足

（这是一个自动画爱心的）

代码如下：

Set Seven = WScript.CreateObject("WScript.Shell")
msgbox"生日快乐！"
seven.Run "notepad",3
WScript.Sleep 1000
seven.SendKeys "+^"
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ** **"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " **** ****"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ****** ******"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ****************"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " **************"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ************"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " **********"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ********"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ******"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " ****"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys " **"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "Happy birthday!"
seven.SendKeys "+1"