
UTAU插件:一键描点 项目笔记
September 30th, 2018
随笔
暂无评论
又是咋回事啊,前端程序猿跑去玩上古神物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。
尾巴
嗯,差不多就是这样了,使用帮助什么的过会儿再写。
本篇文章采用 CC BY-NC-SA 4.0 许可协议进行许可。
转载或引用本文时请遵守许可协议,注明出处。