为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

网站首页 按键精灵相关 按键精灵Q语言 正文

按键精灵网络歌曲播放器1.00版脚本源码

三叶资源网 2018-12-05 按键精灵Q语言 30 ℃ 0 评论
FreeYun网络验证

按键精灵【鱼头】网络歌曲播放器1.00版脚本源码

确定你的电脑装有  [Windows Media Player]  播放器!!! 

运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

@兄弟工程师01  2009/3/19

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//           [鱼鱼网络歌曲播放器1.00版]            //  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
Dim SttSoundFile,Obj,Stt,Et,Ei,SttCommand  
UserVar SttSoundFile=http://music.cnnb.com.cn/music/m/孟庭苇/风中有朵雨作的云/忘了.wma [填入网络歌曲地址]  
SttSoundFile=Cstr(SttSoundFile)  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//《结束wmplayer.exe播放器进程》  
Set Obj=GetObject("winmgmts:\\.\root\cimv2")  
Set Et=Obj.Execquery("select * from win32_process where name='wmplayer.exe'")  
Stt=Stt & vbCrlf & "For Each Ei in Et"  
Stt=Stt & vbCrlf & "Ei.Terminate()"  
Stt=Stt & vbCrlf & "Next"  
Execute(Stt)  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//《开始播放歌曲》  
Set ObjShell=CreateObject("Wscript.Shell")  
SttCommand="wmplayer /play /close " & chr(34) & SttSoundFile & chr(34)  
//《跳过要等播放完,才显示下面脚本 (用False)》  
ObjShell.Run SttCommand, 0, False  
MessageBox "稍等一会,下载完后播放!!!要停止,只要再按一次启动热键。"  
EndScript   
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//


Tags:按键精灵

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
前端超级网页访问定时关机易语言常见错误Aplayer抓包工具鱼刺多线程模块POST教程JSONQQ空间按键精灵安卓版Shell外壳编程辣妈帮抖音脚本按键精灵易语言最新版http访问CURL黑月支持库插件拖放支持库
最新评论