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

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环境中调试通过。
深度学习:未来机器人的进化途径 搜狗开源内部项目管理系统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经验谈 门票销售过半 从2014微信开发者大会购票者特征说起 当来自金星的Devs碰上火星的Ops——共话应用扩展 移动平台市场占有率:Android首次赶超iOS 豌豆荚范怀宇 I/O大会总结:Android无处不在 轻博客始祖Tumblr:哈希以支撑2.3万Blog请求/秒 《近匠》FIR.im:简单易用的内测分发工具 传苹果公司将于9月9日召开新一代iPhone发布会 近百家微信开发商参与征集评选活动 TOP10正浮出水面 Java程序猿,手游引擎怎么选? 查看隐藏文件的选项不见了怎么办? 怎样检查硬盘坏道? 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题二? 关于数据库访问的问题 资源文件的问题,MYBMP1 IS NOT FOUND 有关WINAMP 的问题? 处理字符串以修改数据库 开机显示the secondry IDE channel no 80 cable …… <input type=file name=pic>如何取值,如何设置初始值???? 么样判断一个客户机是否能够连上服务器上数据库,在线等待 在RAVE中如何加上总页数和当前页数? 有缺邮箱用的吗>?现在有了哦,穷人快来啊。。哈哈,我也是其中一个。 请问一个 应用程序登陆SQl Server 时密码的问题? 菜鸟提问! Outlook Express邮件丢失 非典嚣张的日子里的北京(希望惊起大家对SARS的关注)!!! 问一个简单的概念性问题,分却很多.......还可加哦 一个数据映射错误 关于进程通讯的问题 问一个简单的概念性问题,分却很多.......还可加哦 哪里可以找到关于OA方面的资料?越多越好,100分送上 高手请进,怎么监测到一个文件将被覆盖 请问如何屏蔽F1查看帮助的功能? 高手请进,怎么监测到一个文件将被覆盖 能提供解码器么? 在tdi中,怎样获取封包ip头? 神啊!救救我吧!!!!(在线等待) 我看SARS危机 求助 我该怎么办??? 管理登陆问题解决?? 一个简单的问题,如何对字符串进行减操作? 谁用过struts,进来交流一下! 请大侠看看俺的小程序,哪里错了(关于不规则图形填充) delphi查询问题(急需) 急求:从硬盘安装windowsxp时电脑出显不能安装,找不到eula!如何解决? 系统分析员VS博士 C#连接Oracle? 关于<BASE> 那里有WebDB下载啊. 在ListCtrl里加类似Combo Box的东西,能实现吗? windows2000下vb的一个小问题~~ 如何把当前路径加入查找路径中?立即给分! 对选用不同的纸张大小,在预览中能看出效果吗? 请问怎么在PB6.0中实现Foxpro(*.dbf)的数据导入,到ASA库中 j2me里怎么才能实现图象的滤镜效果?waiting... CDbSet m_dbSet(NULL)在哪一步才能得到一个CDatabase对象的错针? 新手提问:“镜象”是什么意思 求教,如何配置使性能达到最佳,详情见文 怎样在广域网中提高传屏响应速度?帮帮忙!急啊. 在文件钩子当中如何判断是打开文件操作,还是创建文件操作 怎么中云母长什么样?它怎么辨认?和白色的河砂小颗粒如何区分? “协议草案”的英语是“draft agreement”还是“agreement draft”?为什么? "截距相等"用看符号吗 河砂中云母怎么辨认?怎么中云母长什么样?它怎么辨认?和白色的河砂小颗粒如何区分? 怎样区别agreement和contract? 两直线平行是截距相等么 从脱脂棉的燃烧可以推出过氧化钠与二氧化碳反应的结论是 石家庄那需要云母,云母沙,河沙,蛭石? 我想问问招远金矿和山东黄金集团哪个好些? 输氧气时为什么不输入纯氧气 我想知道有多少知名模特被潜规则过?请举例,最好是30岁以下, 山东招远金矿因开采造成的生态破坏 为什么化学气体要验纯?比如氢气吧,它燃烧总是需要氧气的,验纯了燃烧也有氧气,不验纯也有氧气,验纯到底怎么回事?还有如果会爆炸的话,那验纯的时候怎么不会爆炸? 模特界的潜规则我想当一名男模,我想选一模特公司的,得知要交包装费,而且确切的说那是一家真公司,只是不知道以后为了自己有更好的发展和上台机会,还用不用送礼之类的,还有那谢我不知 金矿在招远的分布 蓝蝴蝶在自然界中的天敌是什么 什么是复合胶乳 招远金矿事故我最大的难题就是看不到你,得不到你的消息我烦的不行 生活中,蝴蝶一般在什么地方出现?附加一些养蝴蝶的知识和注意点. 天然胶乳是什么? 如何证明π是圆周率? 世上真有鬼魂吗,为什么有科学家去调查,还说鬼魂是一种磁场,是真的吗 什么是胶乳接枝插层法 在图书馆前站着的那些人是谁?Who are the persons ____ ____ standing in front of the library? 包有过氧化钠粉末的脱脂棉上滴水,为什么?脱脂棉燃烧 胶乳的分散稳定性与什么有关 accord,pact,treaty,compact的用法与区别如题,不要到网上copy别人写的那些没有用东西.如果有用我也就不发贴了.下面我再发一下此4个同意词各自的英文注解,都出至Longman当代词典第5版.accord---a formal 说明方式中什么是作诠释?举例 “鬼”是磁场吗我在视频网看了一个关于灵异的节目,科学家说鬼可能是一种磁场或者说脑电波之类的,各位网友能谈谈自己的想法吗?太迷信的不要 想做离子色谱 不知道样品怎么处理 能做吗 用脱脂棉包住Na2O2粉末,往上面滴水,观察到脱脂棉剧烈燃烧起来,可得Na2O2与水反应的结论有哪两个 蝴蝶为什么爱在灯下飞撞 有人用上海精科的万分之一电子分析天平么?效果怎么样我先买了一个沈阳龙腾的,计监局来检了一次不合格,换了一台,还是不合格,10g的砝码称出来9.9983g.计监局的说需要重新选个品牌,谢谢( 这是什么花 招远黄金节在哪举行啊 听人讲.中药也会有重金属成份? 云母断口的形状 过点P(1,4)作直线与两坐标轴正半轴相交,当直线在两坐标轴上的截距之和最小时,求此直线的方程.请用截距式求解 降解中药材重金属含量的方法 market与shop有什么区别?一直没搞明白 第3小题,为什么 |b|0呢,还是x>=0呢,为什么 品种 莲的美食和药用 莲的名胜古迹 莲的诗文、故事、传说 螺纹钢材价格每吨多钱?螺纹钢最新价格? 截距相等是否在符号上也要一样?比如都是正才相等,一正一负不算相等? 你和什么交往作文100字要速度啊!要在这2天内写好啊!字数不要太多100字就好就100不要多也不要少! 数学中何谓纵截距 李阳在家中吃饭时对厨房里的一瓶醋产生了兴趣,他很想知道醋的密度,于是找到了如下器材:小铁块(密度已知为ρ铁)、细线、弹簧测力计和一只足够深的水杯,他利用学过的知识,测出了醋 云母是什么 什么是自然界的蝴蝶效应 云母特性有哪些? 关于股票市场上market maker和dealer的疑问求教股票市场中market maker(做市商)和dealer(不知道中文怎么翻译)的区别.他们是一个意思吗?还是包含关系或者被包含关系?求dealer在股票市场上的准 山东招远怎么样 云母的特点有哪些? 股票交易中的摆单子(limit order)和打单子(market 请解释的浅显易懂摆单子平价交易也能赚手续费吗?这个钱是哪里来的? 山东招远的金矿有哪些能具体的说 招远 金矿的名字 人大代表建议的写作格式 在装饰行业里黄砂一定用河砂,河砂是什么味道? "agreement"和"contract"有什么异同点?I don't need MAYBE,by the way.我再自己多查查. H3AlO3,CH3COOH,C6H5OH,H2CO3,HCO3-酸性排列顺序,还有其水溶液的盐碱性排列顺序.什么什么盐类水解啦之类的,总是记不住.求大神简便的记忆方法,求理解. 日外务省网上传视频主张独岛主权 韩严日本民主党代表用“四面楚歌”形容自己美国校园枪击案枪手曾遭欺凌 开枪或为美国载175人客机因引擎故障紧急迫降沙特拒安理会席位 美国作说客寻与沙特澳报:沙特拒安理会席位系赌气?印度妇女盛装庆祝传统\"女人节\"纽约杜莎馆迎万圣节 大师雕刻南瓜版L美国企业研发氦气球游大气层 每人旅费欧盟要求乌克兰履行入盟条件 季莫申科美俄官员将会晤联合国特使 助推叙问题经合组织要求巴西实施结构改革联合国副秘书长:巴以实地局势动态令人综述:就业数据黯淡或拖延美联储“退出模拟联大 :全球四百万学子峰会近日海外关键词(10月23日):老子乌兹别克斯坦艺术时尚周开幕德国现任政府正式卸任 “黑黄联盟”终韩国人战殁者遗属要求靖国神社取消合祀调查称希腊民众生活质量比经济危机前显以情报部长质疑伊朗谈判诚意 吁美制裁今日A股盘中若冲高回落,一类股迎低吸观察丨跪求一壳:PE从幕后到台前银行板块上涨空间打开,受益9股将涨5A股接下来即将爆发的快牛行情!财经网评 | 新电改方案落定 配售电对比一下你的护肤顺序正确吗?千元机的新标杆,荣耀畅玩4C评测淘宝官方试水微诊断 刘永刚受邀担负首这些创意,带你逗逼带你飞央企整合再迎爆发契机,8股暴动在即!古玩收藏这些知识你懂吗?6000元谁要 512G MicroP2P勾搭房产陷阱还是商机?如何实现小空间大收纳?我只能帮到这了金融板块迎更猛上涨契机,受益个股有望案例丨盘活鄂尔多斯中钢20亿债券陷兑付危机 恳请投资人大盘高频跳水,买什么股?P2P投资的潜规则,你潜了吗?航空发动机“单飞”:上升为国家战略?沪指高位跳水,清仓还是持股?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘