- Код: Выделить всё
Dim path As String = "C:\windows\media\notify.wav"
mciSendString(String.Format("open ""{0}"" alias ""{1}""", path, "notify"), Nothing, 0, 0)
mciSendString(String.Format("play ""{0}"" wait", "notify"), Nothing, 0, 0)
mciSendString(String.Format("play ""{0}"" wait", "notify"), Nothing, 0, 0)
Второй раз ничего не происходит. Если делать "Close" перед "Open", то играет снова, но на инициализию уходит уйма времени.
Нашел решение сам. Надо перематывать файл на начало:
- Код: Выделить всё
mciSendString(String.Format("seek ""{0}"" to start", "notify"), Nothing, 0, 0)