高端表白vbs

article/2025/9/22 0:41:00

高端表白VBS

这个表白vbs可以生成心形，没有套路可以放心使用。
代码如下：

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 "I love you"
seven.SendKeys "+1"

效果总是出错。这里放张图就OK了：
效果图
代码使用方法：
把上面那段代码复制到一个txt文本文档里面，想要加什么随便加，就是不要在这段代码的中间插入代码，操作不慎会出错。
保存完毕后把后缀名从txt修改为vbs或者vbe，你说你的电脑没有显示后缀名？不用问我自己百度去。
好了，这期教程就是这样，再见！