• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[插件下载] 【一只鱼】●『音频播放』[支持变量赋值][已认证](适用6.60 以上... [复制链接]

1#
描述:打开网络音乐网址,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_OpenURL(输入网络音乐网址)
命令2:Plugin MCI=MCI.MCI_OpenURL(输入网络音乐网址)
例子1:Plugin MCI.MCI_OpenURL("http://bbs.xcqc.net/xcqcup/ts.mp3")
例子2:Plugin MCI=MCI.MCI_OpenURL("http://bbs.xcqc.net/xcqcup/ts.mp3")


描述:打开本地音乐文件,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_OpenMusic(输入音乐文件路径)
命令2:Plugin MCI=MCI.MCI_OpenMusic(输入音乐文件路径)
例子1:Plugin MCI.MCI_OpenMusic("C:\WINDOWS\Media\ding.wav")
例子2:Plugin MCI=MCI.MCI_OpenMusic("C:\WINDOWS\Media\ding.wav")


描述:音乐开始播放,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_PlayMusic(无参数)
命令2:Plugin MCI=MCI.MCI_PlayMusic(无参数)
例子1:Plugin MCI.MCI_PlayMusic()
例子2:Plugin MCI=MCI.MCI_PlayMusic()


描述:音乐暂停播放,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_PauseMusic(无参数)
命令2:Plugin MCI=MCI.MCI_PauseMusic(无参数)
例子1:Plugin MCI.MCI_PauseMusic()
例子2:Plugin MCI=MCI.MCI_PauseMusic()


描述:音乐继续播放,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_ResumeMusic(无参数)
命令2:Plugin MCI=MCI.MCI_ResumeMusic(无参数)
例子1:Plugin MCI.MCI_ResumeMusic()
例子2:Plugin MCI=MCI.MCI_ResumeMusic()


描述:音乐停止播放,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_StopMusic(无参数)
命令2:Plugin MCI=MCI.MCI_StopMusic(无参数)
例子1:Plugin MCI.MCI_StopMusic()
例子2:Plugin MCI=MCI.MCI_StopMusic()


描述:关闭音乐文件,返回[True]成功与[False]失败。
命令1:Plugin MCI.MCI_CloseMusic(无参数)
命令2:Plugin MCI=MCI.MCI_CloseMusic(无参数)
例子1:Plugin MCI.MCI_CloseMusic()
例子2:Plugin MCI=MCI.MCI_CloseMusic()

命令太多就懒的继续写了。。都差不多的格式

使用例子:


//打开音乐文件
VBS Url="http://www.81play.cn/upload_files/article/2/1_20080115220111_JUNFJUU0JUNBJUFFJUMwJUM5.mp3"
Plugin MCI.MCI_OpenURL(Url)
//播放音乐
Plugin MCI.MCI_PlayMusic()
//判断音乐是否在播放状态
Plugin MCI=MCI.MCI_IsPlaying()
While MCI=true
Plugin MCI=MCI.MCI_IsPlaying()
Delay 1000
EndWhile
//否则停止播放
Plugin MCI.MCI_StopMusic()
Plugin MCI.MCI_CloseMusic()
//注意以下脚本格式固定
EndScript
Sub OnScriptExit
//结束停止播放
Plugin MCI.MCI_StopMusic()
Plugin MCI.MCI_CloseMusic()
MessageBox "音乐停止播放!!"
Return



下面是超级网络搜歌例子:


")
VBS Txt1 = Split(Txt(1),Chr(34))
//《接着搜》
xPost.Open "GET",Txt1(1),0
xPost.Send
//《查看数据显示》
If xPost.ResponseText<>""
VBS Txt2 = Split(xPost.ResponseText," VBS Txt3 = Split(Txt2(1),Chr(34))
VBS Mnn=Txt3(1)
VBSCall MessageBox(Mnn)
Else
MessageBox "失败,请查看是否连接网络!!!"
EndIf
Else
MessageBox "失败,请查看是否连接网络!!!"
EndIf
Return 【下载歌曲】


UserVar Name=坚强女人心 [输入搜索歌曲名]
UserVar Number=1 [输入播放第几首歌]
Gosub 【下载歌曲】
//《打开音乐文件》
Plugin MCI.MCI_OpenURL(Mnn)
//《播放音乐》
Plugin MCI=MCI.MCI_PlayMusic()
//《判断音乐是否在播放状态》
Plugin MCI=MCI.MCI_IsPlaying()
While MCI=true
Plugin MCI=MCI.MCI_IsPlaying()
Delay 1000
EndWhile
//《否则停止播放》
Plugin MCI.MCI_StopMusic()
Plugin MCI.MCI_CloseMusic()
//《注意以下脚本格式固定》
EndScript
Sub OnScriptExit
//《结束停止播放》
Plugin MCI.MCI_StopMusic()
Plugin MCI.MCI_CloseMusic()
VBSCall MessageBox("音乐停止播放!!")
Return
EndScript
Sub 【下载歌曲】
VBS Dim xPost,Txt,Mnn,Myy,Mrr
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=" & Name &"&lm=-1",0
xPost.Send
//《查看数据显示》
If xPost.ResponseText<>""
VBS Txt = Split(xPost.ResponseText,"
" & Number & "



[ 本帖最后由 一只鱼 于 2008-4-7 06:33 PM 编辑 ]

附件:您需要登录才可以下载或查看附件。没有帐号? 注册

    已有2评分我要评分查看所有评分

    2#

    好东西看看,好用的话,给你花哦

    3#

    看看

    4#

    1234567890-=

    5#

    ,,,,,,,,,,,

    6#

    thx!!!!!!!!!!

    7#

    我来了

    8#

    感谢分享!!!!

    9#

    6666666666666666666

    10#

    收藏了

    11#

    我来回复一下

    12#

    命令太多就懒的继续写了。。都差不多的格式

    13#

    正是我想要的

    脚本定制,欢迎咨询QQ: 2692863915
    14#

    gsdfwerewqr

    15#

    66666666666666666666

    16#

    44161351351

    17#


    18#

    音频播放

    19#

    ***** 该内容需您回复才可浏览 *****

    20#


    我等这一天已经很久了。给力

    发新话题 回复该主题