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

巧用VB编程使XMPLAYER自动播放VCD

HTML文档下载 WORD文档下载 PDF文档下载
巧用VB编程使XMPLAYER自动播放VCD


广东 徐林清
XingMPEG Player是软解压播放VCD的优秀软件,但调入XMplayer、进入播放
状态、隐藏面板等一系列操作,需要多次点击鼠标,较为麻烦。下面用VISUAL
BASIC程序首先检查光驱是否准备好或光驱中是否为 VCD光碟,然后利用VB模拟
XingMPEG的键盘动作,通过短短的几行程序,实现 VCD光盘的自动播放。
①进入VB环境,设置窗体FORM1的Visible属性为 False,然后在窗体上建立一
个驱动器列表框Drivel,亦设其Visible属性为FALSE,以使窗体和列表框在程序调
入时不被显示出来。其它属性均取默认值。
②双击窗体,编写过程代码
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<start+PauseTime
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
③将上述程序编译成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在执行本程序后都能实现自动播放


从真实案例出发:如何在协作开发中避免误解! Google工程师谈程序员的自我修养 依然很强大:微软第一财季净利润同比增17% MDCC 2013垂直行业应用与O2O专题论坛透露劲爆话题 专访豌豆荚产品设计团队:Design Hackathon是绞尽脑汁之后的海阔天空 首日报名爆满超300 向C++大师Lippman提问征集 做华为合伙人:华为开发者联盟沙龙(北京站)即将开幕 Windows XP发行12周年 我仍年轻而你已垂暮 2013浏览器市场份额:Chrome领衔,Firefox、IE相去甚远 人人网陈弢:从RecSys2013看大数据和移动给推荐系统带来的挑战 继续紧逼Oracle:在占领谷歌等公司之后,MariaDB迈向企业端 移动周报:十款最实用的Android UI设计工具 阿里巴巴CTO王坚:开发者精神是云计算与移动互联网的“信仰” 黑客老鹰:安全软件同样需要用户体验 六届中国大数据技术大会PPT精粹(二) 专访百度蒋凡:从RecSys2013大会看推荐系统发展新趋势 Hike副总裁杜中强:携手阿里云OS,拥抱云时代 玩蟹科技CEO叶凯:手游和云计算的合作相得益彰 倒计时20天!金玩奖各大奖项花落谁家由你主宰 宅男程序员福利:来自纽约的28位智慧与美貌并存的IT女神 创季度记录:苹果发布第四季财报 iPhone仍是苹果商业心脏 在破晓中行走:一位盲人开发的盲人应用 腾讯云俱乐部成都站——云时代手游开发:用数据说话 首届微App峰会将在MDCC2013上举行 微信易信百度新浪等平台开发商云集 TUP Masters第七期:C++大师Lippman论编程新范式Hugo OpenCL用于13个微型计算机领域的经典案例 从测试数据来看Node.js和Java EE的性能区别 工作效率低下?业内人士建议你切勿追求完美 Mozilla发布可视化在线跟踪工具Lightbeam 望向海外:十大移动应用开发外包公司 Facebook支撑万亿Post搜索背后的技术窥探 请解释一下ASSERT()函数的作用 informix问题,紧急求救 求救!高手请进来 求助:build winsock 程序时出现 link 错误。 怎样能够将source safe link 像VC哪样集成到自己的应用程序? 关于用ASP+JMAIL开发一个像网易那种类似功能邮件系统的可行性!!!!大家来讨论一下!!! SQL Server7.0的ODBC驱动哪里有(不想安装客户端) 怎样将form中的值加入到数据库中 这个程序是在哪里和在什么时候执行的???? 急啊,我第一次用SQL SERVER,需要把ID号的属性定义为可自动编号,可是找不到相应的字符,可不可一帮帮我? 怎样使DLG的CLOSE(X)按钮变灰? ???? 关于managementserver的问题 b/s中的中文问题 关于udp发送的一些疑惑,请指点,up,gz也给分?(udp) pb的连编问题 对不起大家,内疚ing... 我的专家分怎么忽高忽低?谁给我解释解释! 各位老大,这种报表如何做啊?很急的啊!!!!!!!! 看看这样的东东有没有? win2000 server 启动巨慢,没有病毒,怎么办,症状如下: 用户权限的问题 怎样才是高效的多重循环? 紧急查找pcl-735,db-37的开发接口资料,100分!! 在VC中为什么使用MFC,好处有哪些? 放大問題!20分 高分求教,在线等待!!具体问题请进..... 为什么java出这样的问题 初学者多层分布式的问题 请问谁有从数据库填充DropDownList控件的例子, 这个DropDownList是要在DataList的EditItemTemplate中的,谢谢! 请问谁有从数据库填充DropDownList控件的例子, 这个DropDownList是要在DataList的EditItemTemplate中的,谢谢! BC++安装只用15张DISK,后面3张为什么不用? 一个小问题 weblogic+ejb高手请出来赐教 000000000000020.0000000000000000分提问:以前的加密文件现在如何查看? 怎样销毁CFormView 对象? (在线等待) PB如何调用带参数,及返回值的SQLserver存储过程? #####如何捕获在窗体外,鼠标右键或左键CLICK时的鼠标的坐标点##### dll的问题 在VB的菜单中,如何加载图标? 安装问题! 关于高程,菜鸟请各位大虾帮忙!!!! 给datarow负值,在winform可以,在webform失败? 在线统计,在国内有哪些大企业应用了客户关系管理系统(CRM)??? MessageBox不能显示 简单问题,写文字时旋转90度(立即给分) 求救,我好迷惘! 怎么得到当前系统中安装的所有程序(软件)的列表? 什么叫做域(急用) select int (*fp)(int a,int b) 和 int *fp(int a,int b)有何区别 证明呼出的气体与吸入空气成分的含量有什么不同的实验验证依据《1》 《2》 根据:判断二氧化碳含量不同《3》 根据:判断氧气含量不同《4》 根据判断水含量不同 童话故事作文要有关森林,比赛,小动物,必须是童话故事 观察以下方程:找系数的共同特点!观察以下方程:(1)x^2+x-2=0;(2)2x^2+x-3=0;(3)3x^2-4x+1=0;(4)3x^2-8x+5=0.(1)上面四个方程的系数有一个共同特点,请你用代数式表示这个特点;(2)请你写出符 设计实验验证人呼吸时,吸入的空气成分和呼出的气体成分是有区别的? 小动物作文小兔! 什么是方程同解原理如题. 怎么区分光的折射,反射,光沿直线传播 高中物理竞赛需要什么条件如题 我现在开学就高二了,现在准备还来得及吗?进省队是不是要求特别高? 在常温常压下一密闭体系内有H2、O2的混合气体10L,在电火花作用下发生爆炸,充分反应后恢复到常温常压下,气体体积变为V,若原10L气体中H2、O2体积比值为x,则V的值不可能为 ( )A、(10x-5)/( 汽车1天开1千米路排多少二氧化碳 酶与淀粉反应的化学方程式 淀粉酿酒是氧化反应吗 光的色散 是光沿直线传播,还是反射?还是折射?如题. 淀粉被酶催化属于什么反应是不是化学反应 在常温常压下一密闭体系内有H2、O2的混合气体10L,在电火花作用下发生爆炸,充分反应后恢复到常温常压下,气体体积变为V,若原10L气体中H2、O2体积比值为x,则V的值不可能为 ( )A、(10x-5)/( (3/4)(填溶或不溶)于水.(4)用火柴点燃酒精灯,然后把干燥的冷烧杯罩在酒精灯的火焰上方,发现烧杯...(3/4)(填溶或不溶)于水.(4)用火柴点燃酒精灯,然后把干燥的冷烧杯罩在酒精灯的 少量酶大量淀粉可否反应完高中生物书上说酶与大量淀粉反应做催化剂.催化剂在反应期间并没有损耗,为什么少量酶大量淀粉不能反应完?它们反应没? 1.将1L 的 H2、O2,N2、Cl2的混合气体在密闭容器里点火,生成1g溶液,则剩下的气体可能是( )A :H2、O2、N2 B :H2、N2、HCl C: HC l、O2 、N2D: O2、N2、Cl2答案;B,D 我只想知道C为什么不对.谢 折射和反射的含义比如说“这个社会现象反射出的问题是……”和“这个社会现象折射出的问题是……”有什么区别? 为何淀粉和水在酶作用下反应叫做水解水解的定义为"使某一化合物裂解成两个或多个较简单化合物的化学过程.水分子的H和OH部分参与被裂解化学键的任一侧起反应.如脂肪在酸、碱、脂酶的 一个建筑工地九月份用水泥34吨,下半月用的水泥是上半月的8/9.上半月用水泥多少吨? 点燃酒精灯,在火焰上罩一个冷而且干燥的漏斗,将导气管插入成有澄清石灰水的烧杯内,观察到漏斗内有_____出现.澄清石灰水_______.上述实验说明酒精中一定含有_____元素,可能含有的元素是_____ 什么酶可以催化淀粉发生酯化反应 梦到自己怀孕生了一个女儿代表什么? 怎样用尺规做图做一个五角星?尺:直尺(无刻度)规:圆规怎样五等份圆!圆指的是“那一圈线”,不是面积! 一件大衣第一次降价15%无人问津,再降价20%就有人买走,最后实际售价680元,已知进价是原标价的40%,卖这件大衣能赚多少元? 我梦见宝宝生出来了,我已经怀孕七个月了,这样的梦代表什么? 光在同种均匀介质中沿直线传播是什么意思?自己的理解 一双皮鞋第一次降价15%,卖不出去,再降价20%就有人购买,最后实际售价340元,已知进价是原标价的60%,卖这双鞋能赚多少元? 已知如图梯形ABCD中,AD//BC,EF过梯形对角线 的交点O,且EF//AD求证OE=OF 光在同种均匀介质中沿直线传播将点燃的香放在透明玻璃瓶一段时间后,将打开的激光灯放在瓶口,向瓶内照射.观察到得现象:结论: 平面上有100个点,每三个点都不在同一条线上,现在从每个点引出5条直线和其余任意5个点相连,为什么? 强力,弱力,万有引力,电磁力从强到弱排序,并说明理由我的考题 将一定质量的铁粉与氢氧化铁的混合物在氧气中灼烧至质量不再改变为止发现加热前后混合物的质量无变化,则混合物中铁和氢氧化铁的物质的量之比是?问个事,Fe在氧气中灼烧生成物是Fe3O4还 一台电视机降价15%后的价格为4080元,已知这台电视机的进价为3200元,问这台电视机降价前的利润多少元?一元一次方程解 空气与呼出的气体中,所含气体的比较,正确的是 1.氧气:空气>呼出气体 2.二氧化碳:空气呼出气体 急!我想知道我错在哪.高一化学题.铁的重要化合物将6.0g纯铁粉加入200mLFe2(SO4)3和CuSO4的混合液中,充分反应得到200 mL 0.50 mol/LFeSO4溶液和5.2g固体沉淀物.计算:(1)反应后生成铜的质量是多少 (2)加 平面上有100个点,任意三点都不在一条直线上,任意连接两点最多可以连成多少条直线 从淀粉到醋酸的反应方程式,要细致分步骤的 如果着火了用什么样的办法以最快的速度灭火? 高中物理竞赛初赛考哪些内容?要看哪些书? 求解梦…梦到自己怀孕生了小孩…是什么意思? Mg着火灭火方法 控制电路上的灯一闪一闪的东西叫什么?就像汽车上 转向灯那样闪 中国的语言文字符号也可以这样说 什么样的东西能够代表中国语言文字符号 比如说(竹子 .大红灯笼)等越多越好?///// 高中物理竞赛有什么好的方法 一件工艺品进价为100元,标价135元售出,每天可售100件,据统计,一件工品每降1元销售则每天可多售4件...一件工艺品进价为100元,标价135元售出,每天可售100件,据统计,一件工品每降1元销售则每天 ( )是用来记录语言的符号 怎样通过实验证明吸入空气与呼出气体成分不同吸入的空气:氧气21% 氮气78% 二氧化碳0.03% 稀有气体0.94% 较少的水汽呼出的气体:氧气16% 氮气78% 二氧化碳4% 稀有气体1% 较多的水汽 一件工艺品进价100'标价为135元售出,每天可售出100件,根据销售统计这件工艺品每降价1元,则每天可多售出4件,要使每天获得的利润最大,每件需降价多少元 用符号文字表示下列文字语言:1.点P在直线L上:.2.点P在直线L外:.3.点P在平面a上:.4.点P在平面a外:.5.直线在平面a上:.6.直线在平面a外:.7.直线a和b相交于点P:.8.平面a和b相交于直线L:. 关于电像法书上的说明看不懂.他的意思是如果一块接地金属板把A,B两点电荷分割在左右两块,那么静电屏蔽,所以A,对B的电场和金属板对B的电场大小相等方向相反,抵消,B对A也是如此,那么,移开 一件工艺品进价为100元,标价为135元售出,每天可售出100件,根据销售统计,一件工艺品每降低1元出售……一件工艺品进价为100元,标价为135元售出,每天可售出100件,根据销售统计,一件工艺品每降 同底数幂的乘法:文字表述为:(),符号语言表示为(),a的m次方*a的n次方*a的p次方=()(m,n,p为正整数) 通过实验证明吸入空气与呼出气体成分有什么不同我要实验前 和 实验中 、 实验后 某商店销售一种商品,进价为40元,当售价为60元时,每月销售100件,经统计发现,若每件降价1元,每月销售量可增加10件,假设商店决定每件降价为X元,每月的销售件数为Y件,每月的毛利润为W求:分别 观察:6*2=6+7 4*3=4+5+7 2*4=2+3+4+5按同样的规律,求方程经*3=9的解X=( ) 通过实验证明吸入空气与呼出气体成分不同我要实验的过程 森林着火了小动物们怎样救火的作文 09高中物理竞赛要多少分才能进复赛?我陕西的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘