又是咋回事啊,前端程序猿跑去玩上古神物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

尾巴

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

文章目录