Rinfes
Новичок
- Сообщения
- 25
- Репутация
- 0
Здравствуйте. Есть массив из 5 элементов, который заполнен.
Далее идет проверка, воспроизводится ли данный файл в проигрывателе или нет.
Если файл проигрывается, то название файла должно записываться в новый массив. Строки, которые закоменчены, не работают. Подскажите, что делать
Далее идет проверка, воспроизводится ли данный файл в проигрывателе или нет.
Если файл проигрывается, то название файла должно записываться в новый массив. Строки, которые закоменчены, не работают. Подскажите, что делать
Код:
#include <Array.au3>
run("D:\Program Files (x86)\AIMP3\AIMP3.exe")
sleep(1000)
WinMove("AIMP3", "", 116, 458, 369, 512)
Dim $songs[5]
$songs[0] = "Max Payne 2 - Main Theme.wav"
$songs[1] = "Scorpions - Wind of change.mid"
$songs[2] = "Nirvana - The Man Who Sold The World.flac"
$songs[3] = "doc.docx"
$songs[4] = "The Doors - Riders on the storm.ogg"
;$i = 10
;Dim $array[$i]
;проверка воспроизведения треков с различными форматами
$cvet = 0x5B5B5B ;серый цвет на эквалайзере
$cvet2 = 0x939393 ; серый цвет на значке плей
For $element In $songs
Send("^{DEL}")
Send("{INS}")
WinWaitActive("Открыть")
Send($element&"{ENTER}")
WinWaitClose("Открыть")
Send("{SPACE}")
Send("^{j}")
sleep(500)
Send("01:00{ENTER}")
sleep(3000)
$var = PixelGetColor(388, 575)
$var2 = PixelGetColor(462, 510)
If $cvet = $var or $cvet2 = $var2 Then
$file = FileOpen("Otchet.txt", 1)
FileWriteLine($file, "Трек " & $element& " не воспроизводиться")
FileClose($file)
sleep(500)
Send("^{DEL}")
sleep(500)
Send("{NUMPAD5}")
sleep(500)
Else
$file = FileOpen("Otchet.txt", 1)
FileWriteLine($file, "Трек " & $element& " воспроизводиться")
FileClose($file)
sleep(500)
; $array[$i] = $element
; MsgBox(0,"","эл-т:" & $array[$i])
; $i = $i - 1
Send("^{DEL}")
sleep(500)
Send("{NUMPAD5}")
sleep(500)
EndIf
Next
ProcessClose("AIMP3.exe")