高端表白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,你说你的电脑没有显示后缀名?不用问我自己百度去。
好了,这期教程就是这样,再见!