播放Wav音频和片段定位WMPlayer.OCX.zip

蓝奏云：https://wwp.lanzouj.com/i9mr51vmah5c   提取码:ahk6

123网盘：https://www.123pan.com/s/ufi3Td-08O53.html   提取码:ahk6

 

WMPlayer.OCX异步播放示例.ahk

; 兼容性比Winmm\mciSendString要强，这两个API可以混用，异步播放不冲突
#NoEnv
SetBatchLines -1
SetWorkingDir %A_ScriptDir%

WMP := ComObjCreate("WMPlayer.OCX")
; WMP.Settings.Volume := 100
; WMP.Settings.Rate   := 1.5
; WMP.Settings.Rate   :=  (0.5 + 0)  ; 不支持浮点数的转换方式
WMP.url := "D:\MP3\国语精选\1111.mp3"
While WMP.PlayState != 1  ; 同步阻塞检测音乐何时停止
  Sleep 10
WMP.url := "D:\MP3\国语精选\22222.mp3"
MsgBox 因为是异步播放，所以会弹窗并播放着
Return

; 播放和暂停
F1::
if (onoff := !onoff) {
  WMP.controls.pause
} else {
  WMP.controls.play
}
Return

; 切换音乐
F3::
if (onoff2 := !onoff2) {
  WMP.url := "D:\MP3\国语精选\22222.mp3"
} else {
  WMP.url := "D:\MP3\国语精选\1111.mp3"
}
Return



; 单曲循环例子
#Persistent
WMP := ComObjCreate("WMPlayer.OCX")
WMP.Settings.SetMode("loop", True)
WMP.url := "D:\MP3\音效素材\人声素材\提醒铃.wav"

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。