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

巧用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在执行本程序后都能实现自动播放


分析师称应出售Bing?除非微软倒闭,否则不可能卖Bing Go Mobile沙龙第二期:软硬整合与创客精神 专访西电黄宝林:《基于GPU的并行NMF网络聚类算法》获奖背后故事 友友姚宏宇:用C,C++和Java实现自主研发之后,放开心态迎“高朋” 新技术对传统学科的颠覆:系谱网使用大数据寻亲问祖 IDC:2015年全球平板电脑出货量将超PC Web开发者的福利 30段超实用CSS代码 库克出席D11科技大会:苹果公司没有陷入麻烦 千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 速度与金钱的碰撞:F1赛车将搭上大数据的东风 中国·北京第一届开源大会Hadoop专场侧记:Hadoop已经成为大数据分析平台的标配 Marissa Mayer为何带雅虎重回门户时代? 开发者最爱的三款开发工具 Facebook开源JavaScript库:React 硬件天堂深圳行:从Seeed Studio、Knewone到柴火创客空间 消费应用开发难赚钱?做个企业app store吧 开发开源软件的智慧:够简单,很好用 历届中国云计算大会PPT集萃(终章):架构到实践的全面解析 透过现象看本质:详谈数据可视化 专家观点:HTML5无法彻底抹杀Native应用 Google地图工程主管Raj Shah跳槽至微软在线服务部门 微软证实Windows 8.1引入类“开始”按钮 系统6月26日开放下载 PHP开发者意向调查:移动开发+云服务成为焦点 如何使用C访问SYBASE数据库? 分可能不够,可以再加。在线等待中..... Win2000(繁體) + Tomcat4.1.24 + Oracle8.1.6 的數據庫資料顯示亂碼解決問題!100 100分求《Programming Jakarta Struts》这本电子书 如何设置某指定目录的属性 关于JB的简单问题,谢谢. 请大家谈一下win2000下VPN技术的实现 有关Libpcap的编译问题!急! .bak文件?请指教。 KMP算法求解~!!! 如何实现在线订购? 关于升级机器的问题 如何在Image中放大缩小一个WMF文件?还有如何去拖动这个放大缩小的WMF图片呢? 高手请指教 请教:如何由ip获得访问者所在地区 哪位兄弟教教我,如果实现自适应静音检测? 一个B-S结构的售楼软件的报价大致应该是多少? 我的确是做了错事,我决心去努力,但似乎力不从心? 100分 求《UML与Rational Rose从入门到精通》 急!各位高手关于要把多个DC放到一个pDC上显示的问题。 急。关于ppc和sybase的问题 请问编一个WINDOWS画笔 谁有c434009A主板的驱动程序。 请问在windows下如何实现像数据库一样的读、写锁? 为啥我在InstallShield中调用DLL中的函数总是出错呢? 如何能在HTML控件显示区域显示“....(指定的文件名)不存在”? 请问如何把TIF格式转换成JPG或GIF的格式?? 代理不能定时执行,请指教,谢谢。 怎样与外部数据库建立联合查询? 如何接受来自vbscript的字符数据列表 怎么在Gtk+的gnomemessagebox显示中文? (在线等待,急!)在vc中怎么使用datagrid控件 我使用的是odbc访问数据库 好急的问题,有关于SMS的接收字符处理问题,想了好几天没有结果 那位兄弟手头上有ASP.NET高级编程的电子书? DataGrid 控件问题,帮帮我把,朋友! automount? 一个比较难的问题! 关于datagrid的问题 在线等待 在cmd编辑器中用java运行已编译的文件运行不成功怎样解决 各位帮我解决一下这个问题!!!谢谢 关于ResourceManager的疑惑? 两台机器无法访问? 大家有没有听说过zebudom.js这个javascript的API?请问哪里可以下载它? 模块的连接 如何用php开发一个在线语音聊天室? 请问:有谁能提供Microsoft Project 2002简体中文专业版下载地址????急用!!!!!! 《The C++ Programming Language》有没有中译版? 请高手帮我看看: session的范围 硬件加、解密卡合作 请问那里能下到C或者C++的编译环境? 某工人在一定时间内加工一批零件,如果每天加工44个,就比规定任务少加工20个;如果每天加工50个,则超额10个.求规定加工零件数和计划加工天数?(一元一次方程)如果可以的话我追加 人们将不愿意做那样的工作,将会感到厌烦 用英语怎么说 一个苹果四刀分成七份一个苹果,只能切四刀,分成七份.怎么分? 十三岁的际遇中“两岸风景交换”整句的意思 质量是物体的属性可以用什么实验证明?(除天平,写下实验步骤) 班风建设问题如何写啊 十一月四日风雨大作 夜阑卧听风吹雨的巧妙之处 马和驴故事的寓意 12字以内 班风建设怎么体现?我们要进行班级风采大赛,要求展现班风建设,不知从何入手, 夜阑卧听风吹雨 铁马冰河入梦来.描写的是哪个季节的雨...还有 "七八个星天外 ,两三点雨山前" 、"问君归期未有期,巴山夜雨涨秋池" 各是描写哪个季节的雨 .急 马和驴子的故事有什么启示?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道理呢? 圆明园里面有几个小园 请问 咖啡猫 翻译成英语是怎样的? 马和驴子的那个故事告诉我们什么道理?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道 浅谈如何加强班风建设 十一月四日风雨大作 僵卧孤村不自哀,尚思为国戍轮台. 夜阑卧听风吹雨,铁马冰河入梦来.诗中前两句“僵”一“孤”写出了诗人当时什么的处境;一个“思”字又集中表现了诗人什么的情感. 请问天秤有分几种性格啊?我是天秤女,我的感情路总是不顺,请问为什么呢?而且我的人缘方面总是时好时坏的,这又是为什么呢? 马和驴的寓意 借风雨抒发感情的诗句有哪些?类似“夜阑卧听风吹雨,铁马冰河入梦来.” 在图书馆,新生小林想借一本名著 你向他推荐 朝花夕拾 .下列不能作为推荐语的一项是 来看啊A.这本书记录了鲁迅先生的一些往事留下了他成长的足迹给人很多启发值得一 《马和驴》的寓意 庄子的《秋水》这则寓言,也许你能从中受到不少启发,请谈谈自己最深的感受? 在图书馆,新生小琳想借一本名著,你向她推荐《朝花夕拾》.下列不能作为推荐语的一项是( )A.这本书记录了鲁迅先生的一些往事,留下了他成长的足迹,给人很多启发,值得一读.B.我喜欢这 圆明园有什么称呼 朱门酒肉臭,路有冻死骨”欲穷千里目,更上一层楼"“谁知盘中餐,粒粒皆辛苦”各打一成语 人生自古多磨难,世间冷暖皆自知是什么意思? 长沙市博物馆作文50~100字 由《十一月四日风雨大作》中“尚思为国戌轮台”,你能想到陆游哪一首的诗句? 谁知盘中餐 打成语 给我找篇大约300字关于中秋节的文章,题目叫中秋随想300字左右,叫中秋随想,不要太深奥,我说了是300字,不是3000字,看清楚咯,是300字,是300字,是300字,是300字,是300字,是300字,是300字 僵卧孤村不自哀,尚思为国戍轮台.夜阑卧听风吹雨,铁马冰河入梦来.的诗名 猜成语谁知盘中餐 狭路相逢勇者胜的辩论词 僵卧孤村不自哀,尚思为国戍轮台.夜阑卧听风吹雨,铁马冰河入梦来. 全诗抒发了作者强烈的--------- 曾参中参的读音 看世间冷暖, 辩论:道德比利益更重要的1辨稿 楞伽经谁懂里面的意思 我想知道楞伽经谁懂 我想知道 辩论 狭路相逢勇者胜马上有一场辩论赛,是狭路相逢勇者胜还是智者胜,我方是勇者胜,一辩陈词基本写完了,二三辩是提问题让对方回答,请大家帮着想想用什么问题能让对方很难回答,而更好的 x / 2 - 5x+11 / 6 =1 + 2x-4 / 30.1x-0.2 / 0.02 - x+1 / 0.5 = -3 有懂字体的高手吗,我想知道这是什么字体,有点急, 人间冷暖,何去何重, 一元一次方程2道,(1)2(x—2)—3(4x—1)=9(1—x) (2)3分之(2x—1)=5分之(1+4x)—1第2题打扩号的表示是分子. 底面半径8厘米的圆柱形容器与底面半径12厘米的圆锥形容器深相等,把圆锥体容器装满水,再把水倒入圆柱体容器内,水深比圆锥体容器的六分之五低2.5厘米,圆柱深几厘米 带时间陈述句改一般疑问句 在《加菲猫》漫画中,加菲猫最怕哪三件事? 我敬佩的一个人 400 把陈述句改为一般疑问句要怎么改?比如像名词性物主代词要改成什么? 《十一月四日风雨大作》中诗人产生“铁马冰河入梦来”这一梦境的原因有哪些?““夜阑卧听风吹雨””中的 我敬佩的一个人作文400 将陈述句改一般疑问句They are going shopping tomorrow.是Are they going shopping tomorrow.还是Are they go shopping tomorrow.讲下为什么, 一元一次方程,第一题:学校准备添置一批课桌椅,原计划订购60套,每套100元,店方表示,如果多够,可以优惠,结果校方够了72套,每套减价3元,但商店获得同样多的利润,求每套课桌椅进货价格是多 人们将不愿意做那样的工作,将会感到厌烦 英语怎么说 陈述句 改一般疑问句怎么改 this flower is weak.2this is an orange 一元一次方程···高手帮忙哈··用一根长60米的绳子围出一个矩形,使它的长是宽的1.5倍,长和宽各应是多少? 加菲猫在现实生活中是哪个品种提前说谢谢了哈 动物保健所有兽医吗? 几道关于初一奥数的一元一次方程:1.若abc=1,解方程 2ax 2bx 2cx________+________+________ =1ab+a+1 bc+b+1 ca+c+12.若a,b,c是正数,解方程 x-a-b x-b-c x-c-a_______+_______+_______=3c a b3.设n为自然数,(x)表示不超过x 像河南、陕西、河北、山东、山西等等这样的省份地形分划最早在哪个朝代形成了?我记得好像是元朝吧,山西,河南河北、陕西的省份地形已经成形了 有人知道 笑面冷暖心愈安 国民党庆祝建党119周年 推出“党证雾霾笼罩三亚令人震惊 美报称中国降低外媒:安倍告诫中国勿以武力夺岛东道主哈萨克斯坦成世界拳击锦标赛最大谁拥有小布什政府最终决定权?———新外媒:中国经略周边消除“中国威胁论”美媒:安倍讲话相当于给中国人“当面一韩向美要求:日本行使集体自卫权时需先阿根廷举行中期议会选举 女总统执政联马达加斯加大选结束 各方观察团认为投新闻集团窃听丑闻将开审 或付出16亿纽约华裔家庭五人被杀案疑犯被捕 为被薛理泰:中国远海军演检验新海军战略奥巴马医保网站问题频出 美卫生部长被美国航空公司改签费攀升 消费者“斗智格鲁吉亚总统大选启动 共计23名参选西班牙巴塞罗那发生列车脱轨事故 造成医改网站技术问题百出 奥巴马上教堂也麦当劳与四十年“老伙伴”亨氏番茄酱分美国旧金山湾区万圣节前多起驾车枪击 美国共和党参议员计划推迟叶伦的美联储火影忍者手游组织怎么升级快 快速升级各国女子在家地位。中国土豪肆虐海外,买光豪宅企业,终于惊悚与恐慌来袭,全球股市投降式抛售当传统木柜生产商与自动化浪潮发生碰撞Intel黑科技:通过面部表情打字贝索斯的黑暗面:告诉你电商之王到底有天猫双11以及明年的策略是……中国O2O创业创新大会,抢票中!(9黑卫令牌或成安卓手机救命稻草”四大名补“,补肾补肝养胃健脾,全包让米饭好吃100倍的绝招,一定要看!生活的坑都是自己挖的,有些蔬菜不能吃9月1日起不知道这些,手机可能被停机怎样才算是有逼格的旅行?看看人家夫妻您分得清楚碧玉和翡翠的区别吗?睡一晚16万!揭秘魔都那些顶级的奢华原来工龄这么重要,90%的人都不知道跟苹果 Lightning 一样的插每日彩蛋丨香港十大中国地方菜馆——潮游谱特企丨德州韦科猛犸象区新晋为美国
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘