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

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环境中调试通过。
“化云为雨”一小滴:北京,3G手机+蓝牙打印机实现智能抄表 金山云与蓝汛联合提供云基础设施服务 MongoDB出新招,增加对Hive的支持 编程语言收入榜 Java排第三 直接拿来用!10段超有用的Git命令行代码 Google Cast SDK正式版发布:自动适配,修复Bug 频受红杉资本青睐,商业智能初创公司Birst靠的是什么? 2013百度世界大会要点精华回顾 WebApp开发框架Clouda、轻应用... 对新手有用的JavaScript开发小建议 磨剑三载,且看从容应对14.3万TPS的Twitter是怎样炼成的! 兰亭集势:被高估的“长尾式采购” 谁说WP手机不行?微软称已成拉丁美洲第二大移动平台 Windows 8之父Steven Sinofsky加盟风投机构A16Z SDCC 2013演讲议题抢先看 腾讯、阿里、支付宝、网易…… [开源推荐]Google开源基于Deep Learning的word2vec工具 【开源专访】DWZ团队:致力打造最简单的Web前端开发方式 Linux黑客车库创业:服务器操作系统CoreOS颠覆互联网 时间序列数据处理的角逐:MongoDB vs. Cassandra 移动周报:Sphinx游戏引擎的前世今生 联想K900评测:英特尔X86兼容性明显提升(组图) 小米手机-HAXLR8on硬件黑客马拉松:32小时的创客狂欢 鲍尔默宣布下台后,微软应该做好这几件事情 IGT张奇伟:从空间物理到博彩游戏研发 Bing即将推出新功能 用户可直接在搜索结果页购买商品 【开源专访】郑晔谈Moco框架的前世今生以及Java编程之道 CTO俱乐部第108期下午茶:电商在微信上的现状与未来 SDCC 2013讲师议题确定 门票即将售罄(图) 简化工作流程,10款必备的HTML5开发工具 六大领域考评鲍尔默微软掌舵能力,只一“C”尔? 剥离自雅虎的Hortonworks:低调发展,三年融资近1亿美元 Google的中国梦如何死于傲慢与不得力公关 “神舟三号”飞船发射成功 巨简单,可是俺不会! 上INTERNET时,如何得到本机拔号IP地址?(非局域网IP) 请问如何在DBGRID的TITLE部分,添加自定义按钮或者图像等 多进程使用单值信号量协调,设置 SEM_UNDO, 执行semop 时返回 errno = ENOSPC,如何解决 哪位大侠知道SQL server 里面的updatetext语法怎么写? 两个问题,十分简单,万望指教 偶是新手。要用到sybase数据库,但是只有PB8光盘,听说这上面只有客户端…… 哪里可以找到delphi的函数原型??回者高分伺侯!!!!!!!! 如何将数据邦定到DropDownList控件?(十万火急) 在CB中delete data[] 与delete[] data 有何不同? float 类型 的用法问题(很值得注意呀!!!!!!!!!!!!!!!!!!!!) 在BCB中的Edit菜单下有Tab order,如何才能正确的使用呢?(附详细内容) TWebBrowser 容器中,我发现居然不能拷贝其中选定的内容.为什么,那里出错了吗? 大型表的更新问题 请教:在按页滚动的记录集中怎样得知当前记录所在的页? 谁有2002年度mcse考试试题? 再贴程序员征婚照:) 在线的进来问点问题(jsp/javabean), 实在没有分了其它帖子中送出 请问哪里有介绍用Delphi开发类似Foxmail邮件程序的文章 讨论一下怎么看别人写的代码吧 有个BC源程序用了BC下特有的类complex类,怎样做才能在VC下编译通过? VB高手请进来!!!! 小弟想考cisco认证(ccna),请大家推荐好的书籍和站点! J2EE我下载了,怎么用?安装我会,安装后怎么用? 这段程序有内存泄露吗? 强列抗议???? 有关QueryInterface的菜鸟问题 如何实现和ITS原子钟进行国际标准时间较正、查询? 哪有《Essential C++》电子书,下!谢谢 在单击GRID风格的数据窗口中的行时,row参数能指示当前点击的...(请进) 请问如何使用IIS5.0 ASP连接AS400数据库,我使用ODBC为什么不可以? IE菜单问题 怎样区别打开文本文件是big5码还是gbk码?? 大侠们,更新数据库里面的Images类型的字段的SQL语句怎么写啊,有什么好方法吗? Visual studio .net是用什么开发的啊?大家来讨论一下 求好书!!!! 我如何是好! c++的CODE如何才能最好的移植成java的 求好书!!!! 谁有字符串的压缩算法!!!慷慨送分!!! 视频数据如何在数据库中操作 求好书!!!! ??? 我需检验某表单的文本框中只能有数字,字母等字符,是用javascript做,还是用JSP做? 求好书!!!! 我为何添加不了成员变量 浏览器不能浏览JAVA2写的Applet,那里可有升级包? 还是有关于图片上传,请高手帮忙 加强型的 MSFlexGrid 我认识 KiteGirl(小仙妹) ( 是个好女孩 在△abc中,AD⊥BC,垂足为D,AE是∠BAC的平分线.交BC于E,已知∠C=45°,∠B=65°,求∠AED和∠DAE的度数,要写依据 现有若干个完全相同的硬币(硬币的正,反面图案不同),按如下方式抛掷硬币.方式一:从中选取一枚硬币抛掷方式二:从中选取两枚硬币抛掷方式三:从中选取三枚硬币抛掷请你在每一种抛 六年级上册语文黄冈小状元50、51页答案 利用水滴下落可以测出重力加速度g.调节水龙头,让水一滴一滴地流出,在水龙头的正下方放一个盘子,调整盘子的高度,使第一个水滴碰到盘子时,恰好有另一个水滴从水龙头开始下落,而空中还 已知x1,x2,x3,…x40都是正整数,且x1+x2+x3+…+x40=58,x1^2+x2^2+x3^2+…+x40^2的最大值为A,最小值为B,则A+B的值等于_________. 若b分之a大于0,c分之b小于0,则ac( )0;若b分之a小于0,a小于b,则-b( )0请说答案以及解题思路. 眼镜掉漆怎么办?我的眼镜买来好几年了,都忘记是什么牌子的了,当时花了2000多块钱.现在镜架用的有些旧了,漆也掉了不少.想扔掉么觉得可惜,想补漆么又不知道哪里有的补?怎么办呢? 请告诉我一个成语,第二个和第四个字都带有人体器官的成语如:焦头烂额. 与人体器官有关的成语 谁有做过眼镜点漆或懂眼镜点漆的帮下忙…懂眼镜点漆或做过眼镜点漆的给小弟讲下都需要什么设备和技术! 求救!已知椭圆与双曲线x2-y2=1有相同的焦点,且离心率为根号2/2.求椭圆的标准方程.过点P(0,1)的直线与该椭圆交于A,B两点,O为坐标原点,若向量AP=2向量PB,求三角形AOB的面积! 某单位需要用车,准备和一个体车主或一国有出租车公司其中的一家签订合同.设汽车每月行驶x km,应付给个体车主的月租费是y1元,付给出租车公司的月租费是y2元,y1,y2分别与x之间的函数关系 眼镜掉漆了怎么办?店员说要经常洗,可是现在还是在掉,怎么办? 平行四边形,任意画一条线段,怎样划才能分割成三个图形(不包含该平行四边形本身)? 谁会?如图,M、N、T和P、Q、R分别在同一条直线上,且 ∠1=∠3,∠P=∠T,求证∠M=∠R 我家装修电视背影墙,要用到大面积斜边镜子,镜子容易掉漆嘛?比较担心镜子掉漆的问题.如果会掉,怎么样才能让镜子最大程度不掉漆.知道的大哥,大姐. 平行四边形画一条线段,出现三种不同的图形请你说好怎么画? 一道数学题,谁会啊两个大小不等的圆形粮仓,小粮仓的底面周长是12.56厘米,它的占地面积是大粮仓的三分之一,大粮仓占地面积是多少平方米? 我的眼镜有些掉漆,天津哪里有眼镜补漆?我的眼镜很好,买的时候花了760,样式我也很喜欢,可是最近有些地方漆脱落了,面积很小,也不是很显眼,我想修补一下.天津市市区内有没有可以做眼镜补 男生身高167厘米,体重51.5千克算不算胖?都刺激我啊? 比 最简单的整数比 比值8:12 ( ) ( )四分之一:八分之一 ( ) ( )0.45:0.2 ( ) ( )八分之五:0.375 ( ) ( )这是个表格甲乙两数的比是3:4,他们的和是21,甲乙两数分别是多少?3÷5= 一个梯形,正好可以分割成等底的一个平行四边形与一个三角形,已知梯形的面积是60平方厘米,那么这个三角行的面积是() 平方厘米. 要说过程. 物体A重25牛,用大小为5牛的水平拉力F拉滑轮,使物体A移动6米则拉力F做的功和重力做的功 平行四边形的底是20CM,请用一条线段把它分成一个三角形和一个梯形,使三角形的面积是梯形面积的3/7,三角形的底长(  )平方厘米. 梯形下底长是上底长的三分之二,把梯形分割成一个三角形和一个平行四边形,三角形面积占原梯形面积多少?如果能列式,请列式, 陶瓷洁具为什么不能用酸性玻璃胶 请你在下图中添加一条线段,将这个梯形分成一个平行四边形和一个三角形如果分成的平行四边形与三角形面积相等,则梯形的上底长是下底长的() 50个动物成语猴鸡狗猪各5则 同一个粗糙水平面 物体做加速运动时所受的摩擦力和匀速时候的一样吗那要是斜面呢 黄冈小状元六年级上册语文69、70、71、72页答案 一个平行四边形被分割成了一个梯形和一个三角形,梯形面积比三角形面积大2b平方厘米,求梯形上底.赏10分. 在梯形ABCD中,AD=2,BC=4,对角线AC=5,BD=3,求梯形的面积 1.在水平桌面上放一个200N的重物,现用如图8所示装置将物体匀速拉动,物体与桌面的摩擦力是48N,不考虑滑轮重力和滑轮与绳间摩擦,水平拉力 F为多少N?若绳子自由端移动的速度是0.6m/s,拉力做了 高手来解答一下这道数学题啊!有一批货物,若用小型的封闭货车运输,每次装3吨则最后一次只装2吨;若改用每次装5吨的大型卡车运输则最后一次只装了3吨,而且运输次数比小型封闭货车少了7 梯形ABCD中,AD‖BC,AD=1,BC=4对角线AC=4,BD=3,求梯形的面积 如图所示,A物重200N,当B物重为30N时,A物恰好能沿水平桌面匀速向右移动.(1)A物与桌面的摩擦力多少?(2)若用一个水平向左的力拉A物,使它以0.5m/s的速度匀速向左移动,拉力F应为多大?5s内物体 公元6世纪,中国的有一道著名的百鸡问题:"今有鸡翁一值钱五,鸡雏三值钱一,鸡母一值钱三,凡百钱买百鸡,问鸡翁,鸡母,鸡雏各几只?"设计三个求解的算法,用自然语言把它描述出来. 月球地球半径比1:3.6月地表面重力加速度比1:6求月地密度比;第二问,若月球半径为1700KM,重力加速度为1.6使月球有大气层,气压为100000PA 估算大气层总质量 若|a-1|+【(b+2)的平方】=0 ,求【(a+b)的2010次方】+【a的2011次方】的值. 请帮我解答一下这道数学题,谢谢! 质量为0.5kg的木块,放在倾角为37的斜面恰能匀速下滑,若倾角减小到30,物体所受摩擦力? 小满家的电话号码是六位数 其中左边3个数字相同 右边3个数字是三个连续的自然数 这6个数字之和恰好等于末尾的两位数 你知道小满家的电话号码是多少吗 mn分之m²-n²)²除以(m+n)²乘(m-n分之m)³,其中m=3,n=2 沿三十度斜面 100kg物体匀速拉到顶端 各处摩擦力省略 在矩形ABCD中,对角线AC,BD相交于点O,过点O作OE垂直于BC,垂足为E,连结DE交AC于点P,过P作PF垂直于BC,垂足为F,则CF:CB的值是什么 (2010•台州)类比学习:一动点沿着数轴向右平移3个单位,再向左平移2个单位,相当于向右平移1个单位.用实数加法表示为3+(-2)=1.若坐标平面上的点作如下平移:沿x轴方向平移的 用100N的力拉一物体,摩擦力只有20N,为什么 在Rt三角形ABC中,角C=90度,AC=5,BC=12,若以点C为圆心,R为半径所作的圆与斜边AB没有公共点,则R的取值范围是? 人教版五年级上册小状元数学黄冈小状元49页的培优题怎么写? 请教如何把用玻璃胶粘合的镜子取下来? 某人利用滑轮组匀速提起重400牛的物体,所用的拉力是250N,物体上升2米.1.求此人做的额外功2.此滑轮组的机械效率.通过动滑轮的有两股绳子 查找关于有动物名称的成语 研究发现某星球的半径是地球的0.8倍,质量是地球的0.96倍,求该星球重力加速度和第一宇宙速度 黄冈小状元六年级上册语文50页答案 数学题,很急. 研究发现某星球的半径是地球的0.5倍,质量是地球的0.5倍,求该星球重力加速度和第一宇宙速度研究发现某星球的半径是地球的0.5倍,质量是地球的0.5倍,重力加速度为9.8M/S^2,求该星球重力加速度 要50页以后的. 如图,在梯形ABCD中,∠DCB=90°,AB‖CD,AB=25,BC=24.将该梯形折叠,点A恰好与点D重合,BE为折痕,那么AD的长度为________ 是一道填空,注意看!条件 :甲仓库有240吨化肥条件:算式乙仓库有化肥192吨 甲仓库比乙仓库多百分之几?240/192乙仓库有化肥多少吨?240*25%比乙仓多25% 240/(1+25%)乙仓库有化肥多少吨?240*(1-25% 高中物理 拉力公式
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘