![](/images/attachicons/attachimg.gif)
![](http://files.anjian.com/forum/2022/04/12/281/dzq_202241241218.gif)
这是一款电子琴播放器,没有列表循环播放,每次只能播放一首。音乐文件格式为特殊格式。
目标:使用按键精灵实现,自动播放列表。
思路:
1.判断播放停止状态。监测使用蓝色区slider 滑块,使用抓图或者抓色。
2.打开音乐文件夹。 使用 lib.文件.遍历指定目录下所有文件名。然后按顺序或随机打开。
3.使用自定义变量,设置文件夹位置,和循环播放。
4.生成小精灵。
@@@@@
代码如下:
UserVar var1="D:\Program Files*************" "播放器位置"
UserVar var2="D:\Program Files*************" "*****音频存放位置"
UserVar var3=DropList{"顺序播放":"1"|"倒序播放":"2"|"随机播放":"3"}=1 "播放模式"
RunApp var1
Dim 文件名数组(),i,j,m
文件名数组 = lib.文件.遍历指定目录下所有文件名(var2)
i = UBound(文件名数组)
m = 0
For j = 0 To 1000 * 36000
Hwnd = Plugin.Window.Find(0, "EveryonePiano")
rect = Plugin.Window.GetClientRect(hwnd)
dim MyArray ,L,T
MyArray = Split(rect, "|")
L = Clng(MyArray(0)):T = Clng(MyArray(1))
//TracePrint Hwnd
If hwnd < 1 Then
MsgBox "没打开电子琴播放器,关闭辅助"
EndScript
Else
// MsgBox "开始电子琴播放器"
End If
IfColor L + 585, T + 110, "F6F6F6", 0 Then
If var3 = "1" Then
RunApp var2 & "\" & 文件名数组(m mod i)
TracePrint m mod i
End If
If var3 = "2" Then
RunApp var2 & "\" & 文件名数组(i - m mod i - 1)
End If
If var3 = "3" Then
RunApp var2 & "\" & 文件名数组(int(i * rnd))
TracePrint int(i * rnd)
End If
// TracePrint 文件名数组(m mod i)
Delay 10000
m=m+1
End If
Next
小精灵图形界面如下:
![](/images/attachicons/attachimg.gif)