风物之诗琴女主人的叮咛脚本(VBS文件,windows可用,无需额外安装软件)
桌面右键-->新建-->新建文本文档
将分割线下的代码复制进去
改名,将新建文本文档.txt
改成
随便什么名字.vbs
双击,在五秒内切换到原神窗口后享用音乐
---------------------分割线-------------------
Set objShell = CreateObject("Wscript.Shell")
WScript.Sleep 5000
objShell.SendKeys "q"
WScript.Sleep 750
objShell.SendKeys "w"
WScript.Sleep 750
objShell.SendKeys "a"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "e"
WScript.Sleep 1500
objShell.SendKeys "r"
WScript.Sleep 1125
objShell.SendKeys "e"
WScript.Sleep 325
objShell.SendKeys "b"
WScript.Sleep 50
objShell.SendKeys "s"
WScript.Sleep 50
objShell.SendKeys "j"
WScript.Sleep 50
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "w"
WScript.Sleep 2150
objShell.SendKeys "v"
WScript.Sleep 50
objShell.SendKeys "a"
WScript.Sleep 50
objShell.SendKeys "f"
WScript.Sleep 50
objShell.SendKeys "h"
WScript.Sleep 1500
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 325
objShell.SendKeys "a"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 50
objShell.SendKeys "e"
WScript.Sleep 1400
objShell.SendKeys "m"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "j"
WScript.Sleep 50
objShell.SendKeys "w"
WScript.Sleep 1400
objShell.SendKeys "n"
WScript.Sleep 50
objShell.SendKeys "d"
WScript.Sleep 50
objShell.SendKeys "h"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 1400
objShell.SendKeys "h"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 50
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "c"
WScript.Sleep 50
objShell.SendKeys "m"
WScript.Sleep 50
objShell.SendKeys "d"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "j"
WScript.Sleep 1500
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "x"
WScript.Sleep 50
objShell.SendKeys "n"
WScript.Sleep 50
objShell.SendKeys "s"
WScript.Sleep 50
objShell.SendKeys "f"
WScript.Sleep 50
objShell.SendKeys "h"
WScript.Sleep 1750
objShell.SendKeys "q"
WScript.Sleep 750
objShell.SendKeys "bj"
WScript.Sleep 2250
objShell.SendKeys "zbsd"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "e"
WScript.Sleep 1500
objShell.SendKeys "r"
WScript.Sleep 1150
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "bs"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "w"
WScript.Sleep 1500
objShell.SendKeys "g"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "m"
WScript.Sleep 375
objShell.SendKeys "vn"
WScript.Sleep 50
objShell.SendKeys "a"
WScript.Sleep 50
objShell.SendKeys "h"
WScript.Sleep 1750
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 375
objShell.SendKeys "zbad"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "e"
WScript.Sleep 1400
objShell.SendKeys "mg"
WScript.Sleep 50
objShell.SendKeys "j"
WScript.Sleep 50
objShell.SendKeys "w"
WScript.Sleep 562
objShell.SendKeys "q"
WScript.Sleep 562
objShell.SendKeys "j"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 50
objShell.SendKeys "h"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 375
objShell.SendKeys "c"
WScript.Sleep 375
objShell.SendKeys "m"
WScript.Sleep 375
objShell.SendKeys "a"
WScript.Sleep 375
objShell.SendKeys "h"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 50
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "j"
WScript.Sleep 750
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 50
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "a"
WScript.Sleep 50
objShell.SendKeys "h"
WScript.Sleep 50
objShell.SendKeys "q"
WScript.Sleep 375
objShell.SendKeys "z"
WScript.Sleep 375
objShell.SendKeys "n"
WScript.Sleep 750
objShell.SendKeys "b"
WScript.Sleep 50
objShell.SendKeys "m"
WScript.Sleep 50
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "x"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "w"
WScript.Sleep 375
objShell.SendKeys "q"
WScript.Sleep 375
objShell.SendKeys "zd"
WScript.Sleep 50
objShell.SendKeys "g"
WScript.Sleep 50
objShell.SendKeys "w"
WScript.Sleep 375
objShell.SendKeys "bq"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 750
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "a"
WScript.Sleep 375
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "z"
WScript.Sleep 375
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 750
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "at"
WScript.Sleep 750
objShell.SendKeys "vy"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "f"
WScript.Sleep 375
objShell.SendKeys "h"
WScript.Sleep 750
objShell.SendKeys "q"
WScript.Sleep 375
objShell.SendKeys "y"
WScript.Sleep 375
objShell.SendKeys "t"
WScript.Sleep 375
objShell.SendKeys "z"
WScript.Sleep 375
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 750
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "a"
WScript.Sleep 375
objShell.SendKeys "w"
WScript.Sleep 375
objShell.SendKeys "vq"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "f"
WScript.Sleep 375
objShell.SendKeys "h"
WScript.Sleep 750
objShell.SendKeys "h"
WScript.Sleep 375
objShell.SendKeys "r"
WScript.Sleep 375
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "z"
WScript.Sleep 375
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 750
objShell.SendKeys "w"
WScript.Sleep 375
objShell.SendKeys "b"
WScript.Sleep 187
objShell.SendKeys "q"
WScript.Sleep 375
objShell.SendKeys "x"
WScript.Sleep 187
objShell.SendKeys "j"
WScript.Sleep 375
objShell.SendKeys "nq"
WScript.Sleep 375
objShell.SendKeys "c"
WScript.Sleep 375
objShell.SendKeys "h"
WScript.Sleep 375
objShell.SendKeys "j"
WScript.Sleep 375
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "cj"
WScript.Sleep 375
objShell.SendKeys "m"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 375
objShell.SendKeys "g"
WScript.Sleep 375
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "vq"
WScript.Sleep 375
objShell.SendKeys "a"
WScript.Sleep 375
objShell.SendKeys "f"
WScript.Sleep 750
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "gw"
WScript.Sleep 562
objShell.SendKeys "q"
WScript.Sleep 187
objShell.SendKeys "zw"
WScript.Sleep 375
objShell.SendKeys "q"
WScript.Sleep 375
objShell.SendKeys "b"
WScript.Sleep 375
objShell.SendKeys "s"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 750
objShell.SendKeys "j"
WScript.Sleep 750
objShell.SendKeys "ndq"
WScript.Sleep 1400
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "d"
WScript.Sleep 50
objShell.SendKeys "z"
WScript.Sleep 50
objShell.SendKeys "j"
WScript.Sleep 1400
objShell.SendKeys "t"
WScript.Sleep 562
objShell.SendKeys "r"
WScript.Sleep 562
objShell.SendKeys "e"
WScript.Sleep 375
objShell.SendKeys "fq"
WScript.Sleep 1400
objShell.SendKeys "g"
WScript.Sleep 750
objShell.SendKeys "w"
WScript.Sleep 562
objShell.SendKeys "q"
WScript.Sleep 187
objShell.SendKeys "aw"
WScript.Sleep 187
objShell.SendKeys "q"
