Что нового

Как скриптом - запустить mp3 файл, адрес которого скрипт берет из файла 1.xls

Grell

Новичок
Сообщения
127
Репутация
0
Версия AutoIt: 3.3.14.0

Описание:
Здравствуйте специалисты по autoit.
Подскажите как скриптом autoit - запустить mp3 файл, адрес которого скрипт берет из файла 1.xls, лежащего в той же папке, что и скрипт (программой по-умолчанию) ?

Примечания:
(Адрес файла вписан на Листе3, ячейки B4. Файл 1.xls - закрыт. )
 

Вложения

  • 1.rar
    6.2 КБ · Просмотры: 3

NickSpirit

Знающий
Сообщения
44
Репутация
5
Думаю что так.

Код:
#include <excel.au3>
#include <Sound.au3>
Opt("WinTitleMatchMode",2)
Global $paused = False
Global $oExcel=_Excel_Open(False)
$oWorkBook=_Excel_BookOpen($oExcel,@ScriptDir&'\1.xlsx')
$sSound=_Excel_RangeRead($oWorkBook,"Лист3",'B4')
_Excel_BookClose($oWorkBook)
_Excel_Close($oExcel)
HotKeySet("{END}", "_quit")
HotKeySet("{F8}", "_toggle")
ToolTip("toggle: F8, Quit: END.", 0, 0, "player")
$hSound = _SoundOpen($sSound)
_SoundPlay($hSound)
While 1
    $status = _SoundStatus($hSound)
    If $status <> "playing" And $paused == False Then _SoundPlay($hSound)
    Sleep(100)
WEnd
_SoundClose($hSound)

Func _quit()
    _SoundStop($hSound)
    _SoundClose($hSound)
    Exit
EndFunc

Func _toggle()
    $status = _SoundStatus($hSound)
    If $status = "playing" Then
        $paused = True
        _SoundPause($hSound)
    ElseIf $status = "paused" Then
        $paused = False
        _SoundResume($hSound)
    Else
        $paused = False
        _SoundPlay($hSound)
    EndIf
EndFunc



Добавлено:
Сообщение автоматически объединено:

Извиняюсь..только щас увидел что надо открыть файл программой по умолчанию...
 
Автор
G

Grell

Новичок
Сообщения
127
Репутация
0
NickSpirit , спасибо.
Все работает идеально.
 
Верх