又是咋回事啊，前端程序猿跑去玩上古神物VBS了？

咋回事啊

时间回到今年4月14日，清风大佬在B博发了条动态，我就随手回了一句，因为清风回复说是JS我就没在意（我不会JS啊噗叽叽）。

Five Months Later

今年9月23日，清风又发了一条动态，我就又回了一句…这次清风还是没直说是写什么东西。

( ´_ゝ｀)…

然后我想起来我和清风有同在一个QQ群里的，啊哈…

FlyingSky：清风大佬？你要什么程序呐？

清风最梦：一个小插件  utau知道吗

清风最梦：我想做一份一键给所有音符添加描点的工具

FlyingSky：值得一试

于是乎…你懂得。

正片

事实上…我并不知道utau是啥子东西，然后百度百科…然后向清风要了他用的utau…熟悉完这个程序后网上冲浪了半天也没找到类似开发文档的东西，比较有用的只找到了 UTAU插件的制作基础-OOO 。根据清风的要求，模拟20个键盘输入就差不多了，嗯…模拟键盘输入。

能实现这类功能的编程语言很多，C系语言、Java、Python…当然我不是很喜欢这类（编程、运行环境方面）。至于VBS嘛…是Win系统并且有wscript.exe（Win自带，精简版除外）就可以运行，而且一个Notepad++就可以编写。

因为utau在运行插件的时候还会弹出一个对话框，又加了两个键盘操作。清风有说最好可以自定义描几个点，就加了个输入框。

最终代码是这样的：

Set WshShell = WScript.CreateObject("WScript.Shell")  
num=Inputbox("InputNumber")
WshShell.SendKeys "%{F4}"
WshShell.SendKeys "^N"
WshShell.SendKeys "^a"
WshShell.SendKeys "^t"
WshShell.SendKeys " "
WshShell.SendKeys " "
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys num
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys " "
WshShell.SendKeys "~"

然后清风有说能不能用快捷键…EMMM…VBS实现热键貌似有点不现实，也没人写过（没现成的代码），所以我...就用了第三方的软件——WinHotKey。

尾巴

嗯，差不多就是这样了，使用帮助什么的过会儿再写。