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

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


Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 解读DuckDuckGo搜索 百万点击也敢叫板Google 开发者成功学:扔掉你那些很sexy的想法 VMware严控ESXi API 引发用户和ISV被绑架担忧 布局O2O Facebook推出实物礼品卡 iSuppli:微软Surface RT实际销量远低于出货量 业界前三甲:App Store两个刷榜者,站了出来 极客无极限 一行HTML5代码引发的创意大爆炸 将服务器“弃”之荒野? 微软玩转露天数据中心 Dropbox:我们现在关注“内容” 而不仅仅是文件存储 访Teradata Aster Mayank Bawa:抛弃无效数据,让分析走向大众化 谷歌Chrome或新增通知中心 与Google Now整合 传言称HBO节目将登陆苹果Apple TV? Crashlytics被收购,应用崩溃报告服务要火了? 微软公布WP7.8完整功能 诺基亚率先升级 BlackBerry 10或许不仅仅是一剂强心针 一周消息树:专访蒋彪:JavaEE是企业级开发首选 移动周报:从封闭到开放,iOS生态系统要变天? 游戏平台上:Win7已跌破70% Ubuntu突破1% 不再那么传奇 扎克伯格时代或结束 微软应该联手Firefox OS,打造破坏性生态系统 中美IT人才俱乐部第一期:硅谷经验面面观 中国第四季度Android和iOS智能手机出货量高达98% 开发者眼中的代码审查“真相” 互联网产品设计的12个理念 Pair、Between、小恩爱:妹纸装个情侣应用吧? 横跨四大操作系统:3DMark将挑战所有智能设备 请问一个关于photoshop的问题,多谢指教100分 vb excel 关于MFC多文档在何处放置自已的初始化文档的代码? 今年又是一个人过中秋,终于想找个GF了! 电影画面倒置是怎么回事? 如何将pbyte指向的byte数据传递给byte数组或char等 送分 为中秋节还工作在自己岗位上的朋友散分! 送分 cgi---這裡有多少個寫法?? 送分 gcc编译好的程序怎么运行阿? 关于多文档的问题:如何固定视窗大小? 替换字符串 初学VC的困惑——什么是标准C?? 一个小数,如何确定小数点的位数? 菜单乱码,求救! 怎样调用delphi编的DLL中的函数 关于XP操作系统中的imail 服务器的配置问题 請問有多少個寫法?????在线等待!急啊! to 思归 ,VIEWSATE的那个问题,无人回答,我贴出代码了,你看看, substring(indexA, indexB) 的官方解释不明白 请教大师两个问题 卷积是什么意思?请介绍一下这方面的资料? 用户界面与开发环境怎样脱离????? ASE 12.5.0 FOR NT安装问题。。。 没分了,但还得提这个问题? ComboBox问题? combobox问题? 散分 发现QQ一个惊人的大秘密!!!! 请教yahoo上 点一下“セキュア(SSL)”怎么会使网站可以进行ssl加密??怎么做到的? 中秋节的晚上还在SQL版上晃的朋友进来 一个菜鸟问题 超级简单的问题 Win2000的开机画面,能改吗 中秋快乐!!!怎么样录制清楚无杂音的音效?帮个忙,多谢了!!!等待…… 一个很简单的问题 hash算法可逆吗? 过节了,特来散分,祝大家中秋愉快。 中秋节了,给父母打电话,可是现在每次都说不到一块儿去…… JBUILDER中如何声明全局及私有变量? Let's Celebrate !!! 虚拟内存是设置越大越好吗? 请求算法?关于串口读写速度问题。 9.11 阅读理解 (Unit 7) CASL语言问题 发布程序出问题 回去乐!再留下些银子给今天最后一个还在坚持灌水事业的朋友乐~~ 我要疯了,所有的书都是讲代码的,当我用codebehind的时候所有的有不管用了。 路径配置问题! 若X1,X2是关于x的方程3mx方-6x-1=0的两个实数根 英语翻译“我错了么?如果时间可以让你再珍惜我们的友谊,我愿意等.如果你实在因为这样而放弃这段友谊,那么我愿意放弃我的爱情.” 跪求次字的形近字5个 1+2+3+4+5.+6000=? 6000-1-2-3-4-...-99-100 1,2,3,4, We often go on an (r ) in spring?We often go on an ( ) in spring?(提示第2个单词是u,共6个单词) 是这个 1.小明家有两个旧挂钟,一个每天快20分钟,另一个每天慢30分钟.现在将这2个钟同时对准标准时间,他们至少经过多少天才能再次显示标准时间?2.邮展10时整开门,但有人早来排队,从第一个观众起, You classmate often _ (go) on a trip in spring We often go on a picnic in spring.译成中文 (1,2)两题答案等于多少,快 美曾要日修宪 日30多年前本可制核武奥巴马再提名支持者当大使日韩拟下月再谈情报协定乔布斯儿时故居成历史遗迹“安倍经济学”谁喜谁忧?韩国议员访问朝鲜开城工业园 关系回暖智利前女总统有望“二进宫”调查总结女性二十“怕”湖南官员为儿办酒宴被免 仍作为普通公美国政府保证“目前及以后”不监控联合四川盘江大桥垮塌事故存违规问题 7名彝海兄弟情宛平古城中秋月夜上演实景诗会南戏进京交流促繁荣发展世卫组织:寨卡病毒地域扩散加剧 尚无江湖陈规陋矩,何以死而不僵四川北川县堰塞湖成功泄流乐视联手江苏卫视打造粉丝节支付宝可查询个税预约办税男子驾车冲撞大排档被公诉海外作家陈河寻找“甲骨时光”中秋假期增开旅客列车27趟罗马全面战争之帝国崛起混迹在理发界的修真者帝国崛起在异界原始部落大冒险华夏足球鹿鼎雄风神级打金商艺界主宰重生2006之改变人生来自昆仑的男人剑三大玩家象山传奇旅游白塘生态植物园旅游龙门大桥旅游花土沟旅游保安宫旅游筠园旅游莺歌陶瓷博物馆旅游红树林保护区旅游邮政博物馆旅游台北植物园旅游胡宗宪尚书府旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘