翘课的熊本熊 a279713747
关注数: 0 粉丝数: 6 发帖数: 498 关注贴吧数: 6
乐师怎么自动弹琴? 分享一个乐师自动弹琴的按键精灵脚本 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
1 下一页