电子琴格式播放器的列表循环播放（基础实践） [复制链接]

这是一款电子琴播放器，没有列表循环播放，每次只能播放一首。音乐文件格式为特殊格式。
目标：使用按键精灵实现，自动播放列表。
思路：
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

小精灵图形界面如下：