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

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

代码如下：

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"

更多推荐

生日快乐小代码