menu FlyingSky's Blog
more_vert

动态

恰饭位

爱发电

热门文章

最新文章

最近回复

标签

网站统计

chevron_right 首页 » 随笔 » 正文
UTAU插件:一键描点 项目笔记
September 30th, 2018 | 随笔 | 暂无评论 | 438 次阅读

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

咋回事啊

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

Five Months Later

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

( ´_ゝ`)…

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

FlyingSky:清风大佬?你要什么程序呐?

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

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

FlyingSky:值得一试

于是乎…你懂得。


utau.png

正片

事实上…我并不知道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。

捕获2.png

尾巴

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

文章目录

标签: UTAU, 一键, 一键描点, 笔记

添加新评论

arrow_back 上一篇
arrow_forward 下一篇
© 2019 FlyingSky. Powered by Typecho & MDr.
博客已上线 .
brightness_4