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

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


JavaScript社区开发者调查:服务端JS盛行 AngularJS使用者最多 去中心化、去中介化,微信商业化路径清晰了吗? 微信企业号认证简化了,你造吗? 专访瀚思安信联合创始人:大数据技术助力企业实现主动智能防御 挑选IBM Bluemix作为云平台的10大理由 10年技术积累成就极光压缩引擎,欧朋流量宝5.0面世 【图文实录】12月19日CTO俱乐部走进杭州 mlpack:可伸缩C++机器学习库 本地项目托管将死?类GitHub站点永存! 2014年讨论最多的编程语言:JavaScript称霸 移动Web应用UI框架大比拼:Ionic vs. Famo.us vs. F7 vs. OnsenUI 面包旅行CTO薛亮:做旅游与社交有机结合的先行者 盘点开发者最喜爱的Swift技巧 2017年,开发者还能从移动广告中收获什么? 《近匠》茄子快传,让设备更好地连接 面向移动应用程序的DevOps五大挑战和十个最佳实践 Ruby 2.2.0发布,支持回收Symbol类型对象 听UnitedStack、IBM、HP专家如何谈“OpenStack 存储”技术 专访POWER 8编程挑战赛选手孙冬冬:从C语言到人工智能、深度学习的技术演变 盘点2014:十家最酷的大数据创业公司 盘点2014:最受关注的十大云服务创业公司 基于Kubernetes构建Docker集群管理详解 漫画:编程语言学习曲线 彩云天气: 328万元大奖背后的故事 iOS开发的22个奇谲巧技 谁是最受欢迎IT企业?技术、薪酬、发展空间、创新能力大评比 Jolt Awards 2015最佳编程工具奖榜单揭晓,Cloud9 IDE众望所归! 展望2015:数据中心行业的十大预测 亚信CTO金亚东:传统企业向产业互联网转型的两条路径 微信评论功能开启将成净土还是地狱 如何定位Android NDK开发中遇到的错误 请问RichEdit中如何在代码中修改选中字符的字体和颜色? 安装 WebSphere应用服务器问题 我发现我怀孕了,不知道是谁的!:( 中国电信 为什么我的打印机打印时会出现重影?? 我怎么把他们一一显示出来在listbox里?代码写出来! 请问BOOT扇区中各个数据的意义。。 有没有一次搞定具体时间的控件 tomcat配置简单的问题 问题:十六大代表需不需要办暂住证? 求教COOKIE的用法! JBuilder 7中如何安装一个Server ### 升级内核 ### 还有一个问题(树型列表) 哪里有Visual InetDev 6.0 下载? "分"到哪里去了? 有关于赋值的问题 技术的挑战,在线等待 有关csdn的一个小的问题? 显示模式的设置 怎么样删除在DATAGRID中选定的行? 如何自动滚动edit控件多行显示时的文字 win2000系统关闭后但不会自动断电源 寻找资料,请帮忙 难啊 统计数据 求:做得漂亮的学校主页 麻烦看一下下面的代码 C#和C++builder比各有什么优缺点?哪一个更灵活更稳定?C#和C++哪个好? bug管理工具有没有web方式的? cs文件中,如何获取confirm对话框的返回值? 如何将jpg的图片加入到sql server 的 image类型的字段中阿,使用ado 配置了win2000的服务器 兄弟们。我在JAVA区竟然得不到答案。只能期望在这里找到帮助了(共200分的问题) 在ACCESS中设置数据表,如何实现数据库中多表间的关联访问,用VC的DAO实现 ORA-12560: TNS:协议适配器错误 vb+asp.net中的datagrid分页遇到问题?附代码 改了IIS账户的密码,ASP不能运行,但原先的密码不记得了!现在要修改什么文件才可以? 为什么反向工程失败? 关于ER图的做法 窗口最大化、最小化问题 本站提供能成为QQ会员的QQ代理,快来~~~ 请帮个忙好吗? 硬盘保护的问题 轻轻地温柔地任人宰割 小程序一个,很简单的,但是这样的问题经常遇到的 关于交换区的问题 d7的序列号码 刚做好的编程技术文章系统,欢迎来翻阅技术文章. ★★★★★ 那位高手有这样的好东东。。。 ★★★★★ 最近流行什么歌? 一个星期的第一天是哪天 hope we have been getting happy all the time The people there were friendly 变成一般疑问句是什么拜托了各位 “doing,you,what,were,watch,was,I,TV”怎样连词成句 This news is really exciting.改成定语从句 帮帮我啊 连词成句 1.the friendly people are very there 2.great连词成句1.the friendly people are very there2.great lifestyle health has a on influence What were you doing when the robbery happened?(改为同义句) What were you doing ( )( )( )(What were you doing ( )( )( )( )the robbery (每空一词) Have a day rest tomorrow ,Happy birthday to myself ahead of -I called you last night,but no one answered me-sorry,I had just finished my assignment and was taking a walk in the garden.was taking 表示过去正在做呢还是用进行时表示将来时呢 That is the saddest thing in life. 同义句转换This match is exciting. I called you last night but no one answered the phone.-- I ________ dinI called you last night but no one answered the phone.  -- I ________ dinner with my friends in the restaurant.A.haveB.hadC.was havingD.have had 翻译A successful life does not require that we have done the best ,but that we have done our best!这个什么意思? this football match is very exciting的同义句 A:___at home when I called you last night?B:I___a science ficition 是on the first week还是in the first week通常用on the week还是in the week? 请问是 choose to 还是choose for还是两个都有. -where were you when I called you last night?-oh,I_____(drive)home I never go to the cinema ____ the week.(in/on/at)答案用in,为什么?为什么用on不行? Although I failed four times,my father encouraged me to have a ___try1 second 2 third 3 fourth 4 fifth请分析原因 上海常住人口有多少? A good f_____ is on in the cinema this week. Although I failed four times ,my father encouraged me to have a_______(five) try.用括号中所给单词的适当形式填空 我出生在新疆在阿克苏长大 英语翻译且变成否定句式和疑问句 翻译 在过去的十年中,我们家发生了巨大的变化 I failed four times,but my father encouraged me to have a ( ) try.3Q括号里填什么,有四个选项 A.second B.third C,fourth D.fifth 上海常住人口多少 2002年到2012年也是10年过去了,这十年都发生什么变化了?各个方面的具体点 Although I failed four times,myfather encouraged me to have a (_try).1 second 2 third 3 fourth 4 fifth i have two pencils in my pencil case.(用there be句型改写)____ ____two pencils ____ my pencil case. They had to choose once again.(改为反意疑问句) This Is Not A Game 歌词 I have a pencil case.变复数.I have ___pencil cases.用some还是many leave l want to choose once again and atay beside you.) the second day in a week同义词 "所有事情只要尽力就行 开心就行 没有十全十美 也没有最高境界"用英语怎么说啊 winning the meeting was the best thing that even happened to me,it brought you to me.谁帮我翻译下, the secod day in a week in American的同义词 40岁的女人应该怎样生活? What's the best thing that ever happen to you? the secong day of a week的同义词fdasssssssssssssssssssssss 英语翻译当相知相爱的岁月从我们身边走过,我们的爱成熟了.另一个 当未来向我们深情的呼唤,我知道,我们将伴着幸福,天长地久.不要用在线词典,要自己来 大雨倾盆什么意思😳 think funny is i movie the怎么连词成句还有of what movies kind like you do 颠倒词 (意思想同) 这样验对吗?求正解😳 what kind of film do you like best这句话对吗?kind/film后哪一个要加S吗?如果不用,为什么 意思不同的颠倒字 you 're the best thing that has ever happened to me. 什么意思? The first day of the week is_______. If you love I am just here with you请问翻译中文是什么意思 鲁肃对周瑜说:“都是你自己找的,我怎么帮得了你的忙."改为转述句怎么改 This is really an exciting match.____the game?A,who do you think will win?B,Do you think whom will win?为什么不选B? right now 和just now 的区别 都是你自己找的,我怎么帮得了你的忙?是什么修辞方法如题 柯南的主题曲中好听的 比如像time after time和happy birthday、迷这种不要从百度百科或别的地方复制来的所有歌曲的列表而是希望给我的答案是自己真真正正听过觉得好听的最好还能表示是第几 The people were very friendly. ___ ___ the peoplThe people were very friendly. ___ ___ the peoplethere?(对very friendly提问) 一周的第一天是周几? This is an exciting basketball game改为感叹句 ...an exciting basketball game..(点是线)This is an exciting basketball game改为感叹句 ........an exciting basketball game.............(点是横线)下划线打不出来 were there people friendly with you 这句子正确吗
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘