说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Visual Basic影音控制

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic影音控制

  播放背景音乐

  声明:

   Declare Function MCISendString& Lib ″MMSYSTEM″ (ByVal LPSTRCOMMAND$, ByVal LPSTRRETURNSTR As Any, ByVal WRETURNLEN%, ByVal HCALLBACK%)

  开始播放:

   R% = MCISendString&(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0&, 0, 0)

   R% = MCISendString&(″PLAY NN FROM 0″, 0&, 0, 0)

   R% = MCISendString&(″CLOSE ANIMATION″, 0&, 0, 0)

  停止:

  R% = MCISendString&(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0&, 0, 0)

   R% = MCISendString&(″STOP NN″, 0&, 0, 0)

  R% = MCISendString&(″CLOSE ANIMATION″, 0&, 0, 0)

  其中EXAMPLE.MID 为播放的文件,NN为自定义名称标志。

  使XMPlayer自动播放VCD

  XingMPEG Player是软解压播放VCD的优秀软件,但调入XM—player、进入播放状态、隐藏面板等一系列操作,需要多次点击鼠标,较为麻烦。下面用VB程序首先检查光驱是否准备好或光驱中是否为 VCD光碟,然后利用VB模拟XingMPEG的键盘动作,通过短短的几行程序,实现 VCD光盘的自动播放。

  1.进入VB环境,设置窗体Form1的Visible属性为 False,然后在窗体上建立一个驱动器列表框Drivel,亦设其Visible属性为False,以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。

  2.双击窗体,编写过程代码

   Private Sub Form—Load()

   On Error GoTo finderr ′检查光驱是否准备好或光驱中是否为VCD光碟

   startline:

   drvnmb=Drive1ListCount

   cdname$=Drive1List(drvnmb-1)

   files$=Dir$(cdname$ & ″\mpegav\*.dat″)

   If files$=″″Then GoTo finderr

   act=Shell(″C:\Program Files\Xmplayer\XMPLAYER.EXE″,1)

   ′假定Xmplayer位于该目录,打开并使之获得焦点

   SendKeys ″%(fv)″,True ′模拟Ctrl+fv键盘动作,开始播放VCD

   PauseTime=2 ′一些VCD光碟因制作不规范,播放前会提示有一些错误,为对这些错误作出处理,所以暂停若干秒,此暂停是在后台进行,不影响正常 VCD连续播放

   start=Timer

   Do While Timer
   Loop

   SendKeys″{enter},^s,^p,^{f4},%{esc},^4″,True ′模拟其它键盘动作,满屏播放,隐藏面板等

   End

   finderr:

   msg$=″光驱未准备好,或光驱中非VCD光盘,将光驱准备好,″

   msg$=msg$ & ″或换一张光盘,然后回车重试,或按取消退出″

   er=MsgBox(msg$,53,″出错提示″)

   If er=4 Then Resume startline Else En ′由用户选择重试或退出

   End Sub

  3.将上述程序编译成EXE文件,然后将其快捷方式拖至桌面,双击该图标,即可装入Xing MPEG Player并自动开始满屏播放VCD,同时置PLAYER面板于Standard Bar状态,并将之隐藏。程序中^表示Ctrl,%表示Alt。之所以程序中要连续插入暂停“^S”和播放“^P”两个动作,是因为20版本的VCD在按Alt+FV后即开始播放, 10版本在按Alt+FV后还要求按Ctrl+P,而Ctrl+P在播放状态下又等价于Ctrl+S(即暂停);所以如果只有一个“^P”则使VCD10开始播放而VCD20暂停,为了兼顾两种版本的VCD,首先模拟Ctrl+S动作实现暂停,然后再模拟 Ctrl+P开始播放,从而使两种版本的 VCD在执行本程序后都能实现自动播放。

  上述程序在Pwin 95、VB 5和XingMPEG Player 3.2环境中调试通过。
第二届游戏运营技术论坛来袭!与大牛共论云时代的游戏运营之道 云雀科技:飞行器+地图,展望飞行器的新体验 Sandstorm,前Googler和极客名人建立通用开源工具保姆 触控科技CEO陈昊芝:引擎技术推动行业升级 谁能成为Hero,这一次你说了算!——TCL智能电视开发大赛创意阶段评审征集 微信官方在“公开课”上13个热点问题的解答摘要 MDCC 2014移动开发者大会10月开幕:你就是主角! 设计师该如何挣得一席之地? 回到未来:最热门的十大清洁能源技术公司 深度学习:未来机器人的进化途径 搜狗开源内部项目管理系统Cynthia,已被数十家企业采用 沃游戏新版本全新登场 好友PK根本停不下来 腾讯发布首款智能硬件,内部筹建孵化器鼓励创新 触控开发者平台:孕育“十亿开发者俱乐部” 《近匠》大新伙伴:大姨吗防晒小助手,帮你呵护女神 专访阿里云总裁王文斌:做出“用得爽”的工程产品 专访AMD全球副总裁潘晓明:2014全线发力,力争中国市场 搜狗开源内部项目管理平台Cynthia意欲何为? 深度解析浪潮新八路服务器TS860 支持Box2D,开源HTML5 2D游戏引擎FLAG 一周消息树:从程序员到架构师的方法与逻辑 【CTO俱乐部走进海尔】海尔的转型探索之路 十一问MongoDB CTO,谈NoSQL人气王的扩展、事务及运维 腾讯“创业•密码”开发者论坛 ChinaJoy引爆创业者关注 从F1赛车到智能手机,无线充电技术之崛起 助力梦想!MDCC免费为优秀App开发团队提供展位 为Symfony2和Redis正名,基于PHP的10亿请求/周网站打造 【聚焦API】教你如何选择最适合的NLP API服务商? 直接改应用!Flipboard开源iOS应用内调试工具FLEX 专访腾讯游戏运营总经理崔晓春:云时代游戏运营的变革与创新 嵌入式专家Bruce Douglass经验谈 能不能作一个中文编译器??? 我不要活了。。。 菜鸟:一个小问题 基于对话框的程序中,使用了Tree Control和Edit box,如何在Edit box中显示TreeControl中选中的文本文件的内容。希望提供类似的例子。 ★★★★★★★紧急求救★★★★★★★★ 寻找丢失的分区表!!! windows2000进入“等待”后,唤不醒是怎么回事,请指点! jsp数据库中的Date类型? 在vb中如何进行时间比较?例如1 / 7 / 17 10:00:00 - 1 / 7 / 17 00:00:00 得到一个值?? 请问如何获得其他机器的网卡MAC地址?非常感谢!!! 别了,最爱的BCB! 如何判断一个指向窗口的指针可用? 请教高手:怎么样破windows2000的登陆密码?其密文存放在什么地方? 急:哪里有电子文档 找到找到 网络编程、大虾有请!如何获得当前每秒的字节数? 各位高手,有人喜欢用mysql吗?谈谈这个东东吧 大富翁怎么连不上了? 各位武汉的大虾,请教武汉程序员、高级程序员、系统管理员(正规的大公司)、以及用JAVA做开发的工资一般为多少。希望大家给予帮助!!前途问题!! 网络编程大虾有请!如何获得当前每秒的字节数? 怎样在treeview中设置背景图片 to 版主:精华区太乱了,请给予分类。谢了 听说VB可以写PAD的程序,TRUE? JLabel中文本换行问题 马上要开始学BCB,请问BCB有那种类似于VC的创建类的向导吗,看到BCB的界面我就想到DELPHI中创建类的难度 我的游戏引擎BATTLEFIELD作好了,欢迎下载(这次是真的) 一个pop_up menu的问题 那位高手知道在SDK中使用ADO的方法 为普天之下正直而上进的程序员找一个温馨的家 为什么不能把JMF包打进去??? 内存泄露是指例如“为对象分配一个内存区后,未删除内存区,但删除了对象”是吗? 装pws时遇到的麻烦! to freezwy(网络自由人) 有没有限制上传图片大小的asp代码??(不是组件) 还是没有解决!!! 有关VC中数据库绑定的问题! 扔个骨头……下个“圈套”,呵呵? ^_^ 紧急情况!如何改变DataGrid控件中个别行的颜色?? 如果实现断开共享目录的连接 acces 表 SQL语句中如何转换字符型字段为整型? First-chance exception 请教directx的一个入门问题? 诚征MM中…… 多线程问题?? 请问sybase中real类型的最大值是多少?999999999 自杀的N个理由 如何根据日期计算出一年中的第几天? 情况不对,撤丫~~~~~~~~~ 如何在JBuilder4.0编译环境下打包\编译??????? 关于对话框的一个简单问题 如何把几个chm(已编译的 html 文件)文件合成一个chm文件 ado参数问题 芭比英语怎么读?最好把拼写也写一下!注意是英文! 工程队13天完成一项工程,平均每天完成这项工程的几分之几?每天可完成这项工程的几分之几? 一项工程,甲工程队单独做40天可以完成,乙工程队单独做80天可以完成,现由甲先单独做10天,然后与乙共同完 芭比娃娃英文介绍芭比娃娃的英文介绍! 工程队做一项工程,计划8天完成,平均每天完成这项工程的几分之几,3天完成这项工程的几分之几? 一项工程甲队单独做要10天完成乙队单独做要12天完成现在两队合做4天剩下的由乙队单独完成需要多少天?有助于回答者给出准确的答案 芭比娃娃的具体英文介绍介绍芭比的原型 发展史 流行程度 以及发展趋势 工程队12天完成一项工程,平均每天完成这项工程的几分之几?3天完成这项工程的几分之几? 一项工程甲单独做要10天完成,乙单独做15天完成.现在甲做4天,乙做3天,分别完成这项工程的几分之几? 芭比娃娃用英语怎么说?芭比娃娃和奥特曼的英语说法 一条路,甲工程队单独挖15天完成这条路的1/5,甲每小时完成这条路的几分之几 一项工程,甲独做10天完成,乙独做15天完成,现在甲做4天,乙做3天,分别完成这项工程的几分之几? “芭比娃娃”用英文怎么说? 工程队要在10天内抢修一条长2千米的公路,平均每天要修完这条路的几分之几?平均每天要修多少千米?要有列式 和理由~ 做一项工作,甲用5天完成,乙用4天完成,甲每天可完成这项工作的几分只几?乙每天可完成这项工作的几分只 求写一篇500字左右的英语短文 关于芭比娃娃的RT急需在线等 工程队原计划用25天修完一条长1200米的路,实际提前五天完成,实际每天修这条路的几分之几 单独完成一项工程,甲要5天,乙要8天,甲的工作效率是乙的几分之几? 哪个是暗影芭比真正的文章啊这么多个都是莎拉的,擦,谁给个准确的~ 工程队原计划用25天修路1200米,实际提前5天完成任务,实际每天修这条路的几分之几? 做一项工程,甲用5天可以完成,乙用4天可以完成,甲每天可以完成这项工作的几分之几?乙每天可以完成这项工作的几分之几?乙的效率比甲高百分之几? 芭比娃娃的销售策略用的什么策略. 工程队修一条3千米长的路,20天修完.平均每天修多少千米?平均每天修这条路的几分之几? 一件工作 ,甲单独做15天完成,乙单独做12完成.两个合做4天可以完成这项工作的几分之几? 芭比之钻石城堡的 we are gonna to find it 玩芭比娃娃的写怎么玩这个玩具150字作文 工程队修一条3/5千米的路,已修了3/10,剩下的要三天修完,平均每天修这条路的几分之几?求大神帮忙~~~~拜托啦. find that与find it 的区别例句:All of us ( ) necessary to take exercise every day.Many people find ( ) interesting to play computer games.A.this B.that C.them D.it 关于我的芭比娃娃的英文文章不要太长,也不要太短 1条公路25天修好平均每天修这条公路的几分之几?7天修几分之修这条公路几?请在10分钟内回答, we found that和 we found it Barbie娃娃英文介绍希望有能力的朋友帮本人写一篇关于芭比娃娃和韩国迷糊娃娃的英文介绍!急用! 一段路30天修完,平均每天修这段路的几分之几,15天能够修完这段路的几分之几. bob marley怎么死的 单词bob 的起源演变和发展(我只知道来自于条顿语bob 辉煌的荣耀)具体点要1000来个字 最好附上参考文献或链接 一条公路,由甲队独修,需要8天,由乙队单独修,需要12天完成.两队和修3天后,完成了这条路的几分之几, Bob Marley 的家庭和女人熟悉他的朋友们帮帮我,Bob Marley一生有过几个女人?结婚和没有结婚,分别是谁,叫什么名字,有没有孩子?哪年,在哪里,怎么样可是有关系的,他对家庭和女人有什么看法,越详 美国文化"芭比娃娃"有什么历史背景? 一项工程,甲单独做8天完成,乙单独做6天完成,两队合作3天后还剩这项工程的几分之几?怎么列式? 英语翻译Get up,stand up:stand up for your rights!Get up,stand up:stand up for your rights!Get up,stand up:stand up for your rights!Get up,stand up:dont give up the fight!Preacherman,dont tell me,Heaven is under the earth.I know you dont knowWhat Bob是什么意思 一项工程,甲独做8天完成,独做12天完成.两队合作3天后,还剩几分之几? 英语翻译歌手:bowie david 专辑:hunky dory Oh,hear this Robert ZimmermanI wrote a song for youAbout a strange young man called DylanWith a voice like sand and glueSome words of truthful vengeanceThey could pin us to the floorBrought a few m 请问一下“爱情的bob”是什么意思… 一项工程,由甲队修建要30天完成,由乙对修建要20天完成,两队同时修建8天后,还剩这项工程的几分之几?算式 推荐Bob Dylan的歌?不用说Knockin' On Heaven's Door,我找了很多,只是觉得这一首好听. 一项工程需要9天完成,已经干了5天,完成了这项工程的几分之几 已知一项工程,由甲队单独做30天完成,由乙队单独做20天完成.两队合作10天,还剩下工程的几分之几 求英语爱好者翻译Bob Dylan的Things Have Changed单词基本认识,整篇却云里雾里. Things Have Changed__Bob Dylan A worried man with a worried mind No one in front of me and nothing behind There's a woman on my lap and she's dri 一项工程原计划9天完成,实际上只用7天就完成了.实际每天比原计划多完成工程的几分之几. 一项工程,由甲队做30天完成,由乙队做20天完成.两队合作五天可以完成工程的几分之几? Bob Dylan的Like a rolling stone谁有中文歌词翻译?这首歌的歌词中文翻译谁有?帮忙呀!谢了! 7天是9天的几分之几 一项工程甲单队独做要20天完成乙队单独做要15天完成两队合作5天后还剩几分之几没修 芭比娃娃英语怎么说 一项工程原计划9天完成,实际上只用7天就完成了.实际每天比原计划多完成工程的几分之几. 一项工程,甲工程队单独做要12天完成,乙工程队单独做要10天完成,现在两个工程队合作做了4天,共完成这项... 芭比的英文怎么拼写 修一条4千米长的公路,7天修完,平均每天修几分之几千米?每天修了这条公路的几分之几?平均每天修了1千米的几分之几? 一项工程,甲工程队单独做40天完成,乙工程队单独做60天可以完成,现在由甲单独做10天,然后与乙共同完成余下的工程,甲工程队共做多少天?(列方程解答)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn