分享一个乐师自动弹琴的按键精灵脚本
1.支持升调降调自动切换
2.支持调整弹琴速度
3.可以写好多个简谱，自动弹琴
下面是操作步骤：
把曲谱的音调数字写在红色方框里就可以了
其中有PGD三种字母，表示接下来要切换使用的音调，默认音调为P、升调为G、降调为D
下面的字符串对应下面的简谱
G355653111233212 355653111233211 4 4 466 5 53 2 35565311233221
下面是代码：
Delay 3000
Dim k
//花海
//k = "P133 321223 1334351 144431D55P3 132 132 132 133 321225 133 4351 144 431553G1 P5441171 12355 32123 1237G1 1P76566 12355 32121 12355443G1P33 12355 32123 1237G1 1P76566 12355 32121 12351 1D767P1"
//神话
//k = "D6P3D7 P61213 D6P65652433 D6P6523431 D6P32D76 6P3D7 6P1213 D6P65652433 D6P652334321 D6P32D76 67P1231D75 6P1233 D67P1231D75 6P12D7P1D67 P1231D75 6P12D7P1 D67P1231D75 6P12D7P1 11231D75 P1D7576"
//简单爱
//k = "P66G1P66G1 P66G11P6G1 P66G11P6G1P66 G1P6G12 211 P5G1232345554322 P5G1232345556523 11P6G2233 151P5G1P7G1 1P6G2233444321"
//富士山下
//k = "D56P1212333332123 333321211612233D56P121211 5532321133321 2222211D6P2 D56P121233553212336632121 D6P12235D56P121211 6653321 333212222211 D6P11G1P7G1P6G1P6656532 35655565666665 5653 12353211 12363211111 G11111P66G1 655G11P7G1P7656532356555656666655653 123532111236321G1 1P6G1P655565323221D6P112 1G1P6G1211121P6G1G3221P6G12P1"
//凉凉
//k = "111D7P1 D7P1111D7P1 2D777767 6777767 656 6535233 P111D7P1 D7P1111D7P1 2D777767 6777767P1D756 6P32233 D6P33235323D6 777P1D735655 6P332323553 2355665566 D6P33235323D6 777P1D735655 6P3323235 G1P765356353566 65355 321D7P1 G3232P7G3232P6G 45 D77777777777P12321G763544321P7"
//孤勇者
//k = "P3 1213 12123D6P1D6P1D6P121D7 3 1213012123D6P1D6P1D6P132D7 6P1666656656565333 D6P1666565777677633 353232323535323232 123D6P1323211D6 P67G12P7G111P7G12P7G11 123232332353 P67G12P7 G111P7G12P7G11 123232332353 535 35 5356355 35 35 35635 55322313322211 55322213322211P6 65656565665656533 6565656577767633 353232323535323232 1236G1323211P6 676D6P137777666 D6P137777666 676"
//蜜雪冰城
k = "G355653111233212 355653111233211 4 4 466 5 53 2 35565311233221"
k = Replace(k, "5", "z")
k = Replace(k, "6", "x")
k = Replace(k, "7", "c")
last = ""
For i = 1 To len(k)
kk = Mid(k, i, 1)
If kk = " " Then
Delay 300
Goto A
End If
If kk = "P" and last <> "P" Then
last = "P"
LeftClick 1
Delay 200
LeftClick 1
Delay 200
RightClick 1
//Delay 300
Goto A
End If
If kk = "G" and last <> "G" Then
last = "G"
RightClick 1
Delay 200
RightClick 1
//Delay 300
Goto A
End If
If kk = "D" and last <> "D" Then
last = "D"
LeftClick 1
Delay 200
LeftClick 1
//Delay 300
Goto A
End If
KeyPress kk, 1
TracePrint kk
Delay 300
Rem A
Next

保存后选中自动弹琴的脚本，点击运行，再切换到游戏中
过三秒后就能自动弹琴了，停止自动弹琴的快捷键是F12

膜拜大佬

喔厉害啦！

理论脚本能按出来，那手也能按出基本同样的效果吧

大佬6666

大神牛逼，但好像只能单曲播放，怎么可以列表循环呢。

3.实现列表循环，自动弹琴
在脚本设置里选择“循环到按终止键为止”
将所有k = 改成k = k &

不需要播的放单曲可以在k = k & 前添加//，变成//k = k &
下面是播放所有列表歌曲的最新代码：
Delay 3000
Dim k
//花海
k = k & "P133 321223 1334351 144431D55P3 132 132 132 133 321225 133 4351 144 431553G1 P5441171 12355 32123 1237G1 1P76566 12355 32121 12355443G1P33 12355 32123 1237G1 1P76566 12355 32121 12351 1D767P1"
//神话
k = k & "D6P3D7 P61213 D6P65652433 D6P6523431 D6P32D76 6P3D7 6P1213 D6P65652433 D6P652334321 D6P32D76 67P1231D75 6P1233 D67P1231D75 6P12D7P1D67 P1231D75 6P12D7P1 D67P1231D75 6P12D7P1 11231D75 P1D7576"
//简单爱
k = k & "P66G1P66G1 P66G11P6G1 P66G11P6G1P66 G1P6G12 211 P5G1232345554322 P5G1232345556523 11P6G2233 151P5G1P7G1 1P6G2233444321"
//富士山下
k = k & "D56P1212333332123 333321211612233D56P121211 5532321133321 2222211D6P2 D56P121233553212336632121 D6P12235D56P121211 6653321 333212222211 D6P11G1P7G1P6G1P6656532 35655565666665 5653 12353211 12363211111 G11111P66G1 655G11P7G1P7656532356555656666655653 123532111236321G1 1P6G1P655565323221D6P112 1G1P6G1211121P6G1G3221P6G12P1"
//凉凉
k = k & "111D7P1 D7P1111D7P1 2D777767 6777767 656 6535233 P111D7P1 D7P1111D7P1 2D777767 6777767P1D756 6P32233 D6P33235323D6 777P1D735655 6P332323553 2355665566 D6P33235323D6 777P1D735655 6P3323235 G1P765356353566 65355 321D7P1 G3232P7G3232P6G 45 D77777777777P12321G763544321P7"
//孤勇者
k = k & "P3 1213 12123D6P1D6P1D6P121D7 3 1213012123D6P1D6P1D6P132D7 6P1666656656565333 D6P1666565777677633 353232323535323232 123D6P1323211D6 P67G12P7G111P7G12P7G11 123232332353 P67G12P7 G111P7G12P7G11 123232332353 535 35 5356355 35 35 35635 55322313322211 55322213322211P6 65656565665656533 6565656577767633 353232323535323232 1236G1323211P6 676D6P137777666 D6P137777666 676"
//蜜雪冰城
k = k & "G355653111233212 355653111233211 4 4 466 5 53 2 35565311233221"
k = Replace(k, "5", "z")
k = Replace(k, "6", "x")
k = Replace(k, "7", "c")
last = ""
For i = 1 To len(k)
kk = Mid(k, i, 1)
If kk = " " Then
Delay 300
Goto A
End If
If kk = "P" and last <> "P" Then
last = "P"
LeftClick 1
Delay 200
LeftClick 1
Delay 200
RightClick 1
//Delay 300
Goto A
End If
If kk = "G" and last <> "G" Then
last = "G"
RightClick 1
Delay 200
RightClick 1
//Delay 300
Goto A
End If
If kk = "D" and last <> "D" Then
last = "D"
LeftClick 1
Delay 200
LeftClick 1
//Delay 300
Goto A
End If
KeyPress kk, 1
TracePrint kk
Delay 300
Rem A
Next

晚上试试

连按三音和长按一音没有吧

大佬！！

这GCD和延迟，不如开个网易云吧

谢大佬分享，好人一生平安，能不能多出点乐谱

求随风而逝