
文件夹路径 = "D:\mp3文件夹\" '设置文件夹路径 按照格式别忘记加引号和\
Do
key = WaitKey
Call PluginMediaStop()
Delay 10
For i = 49 To 57
If key = i Then
编号 = i - 48
Call PluginMediaPlay(文件夹路径 & 编号 & "mp3")
End If
Delay 10
Next
Loop
//脚本停止后关闭音乐
Sub OnScriptExit()
Call PluginMediaStop()
RestoreMousePos
End Sub按键精灵内置的音频解码只能够播放wav格式的音频文件,具体的调用代码如下: VBS strSoundFile = "D:\Program Files\Total Video Converter\Converted\01 下次下次wav" VBS Set objShell = CreateObject("WscriptShell") VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) VBS objShellRun strCommand, 0, True 上面代码中的strSoundFile 是音频文件的路径 如果要播放其他格式的文件,我想到的办法只有用VBSCall RunApp(程序路径)这个函数来启动千千静听等,接着控制鼠标动作选择打开文件,用SayString "文件路径"来输入文件路径,接着就是确定播放了~~~
麻烦采纳,谢谢!按键精灵语音控制命令是指使用语音指令来控制按键精灵软件的 *** 作。它可以让用户更加方便快捷地 *** 作按键精灵,而不需要使用鼠标或键盘 *** 作。按键精灵语音控制命令可以帮助用户更快地完成 *** 作,提高工作效率。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)