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

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


开启文件属性窗口 -VB资料 快速读取 TextBox 第 N 行的资料 -VB资料 快速选择里List全部项目-VB资料 VB利用 App.Path 读取「应用程序所在之目录」 VB利用 EM_LINESCROLL 信息控制 TextBox 的卷动。 命名的技巧 -VB资料 目录所占的字节数-VB资料 VB判断文件是否在IE的缓存中 屏蔽文本框的右键菜单-VB资料 VB取得长文件名 VB取得临时文件名 VB取得某个目录底下所有文件大小总和 VB取得文件的扩展名 VB取得文件内容 确定 TextBox 有几行-VB资料 确定是 WINDOWS 的可执行文件-VB资料 让打印机只打印一行-VB资料 VB如何把批处理文件转换成EXE文件? VB如何调用 Office VB如何将文件删除到回收站 VB如何快速移动文件? VB如何让文本框输入完后,直接跳入下一行? VB如何使用vb取得一个文件的控制权 VB如何使用文件复制对话框? VB如何使用资源文件 VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出 VB如何在 VB 中使用 Winzip 来压缩文件? VB如何在DOS程序结束执行时,自动将其关闭? VB如何在VB中实现Undo(撤消)功能? VB如何在VB中实现目录遍历 VB如何在Windows操作系统中改变文件打开方式 有个女孩问我的代码理论问题……紧急!!有请各路大仙 指针与数组常通用,但一个存值,一个存地址,能不能讲一下他们的内存如何分配,怎样互用的 我一和女朋友有矛盾时,就感到浑身无力,什么也做不下去,脑袋乱七八糟的,做什么都不专一,直到问题解决,不知大家有没有和我有一样感觉的? 海星是南京大学的吗? 请问。vb有没有字体选择的控件(.ocx) 请问在该专区里有没有四川绵阳水校到深圳的王师兄!huan_91_cn@china.com 游戏爱好狂们注意:有没有愿意建立游戏网页!!! 各位大虾请帮忙!!谢谢!!!!! 有关数据报表的处理,采用EXCEL 听说所有Enterprise Manager工具都允许简单地通过单击鼠标来切换身份 怎么恢复? 在数据库中建立临时表来进行数据操作,我对它在使用时何时建立何时删除不太了解,能给我说明一下吗? 如何在触发器中调用存储过程(sql server 或者 oracle)(无内容) 请问哪里有完整版的sql server下载,不要钱的,不要序列号的??? 请较两个英文短语的理解 我要做个套打的程序,希望高手可以提示一点思路,能用QR吗? 加载驱动的问题!! 请教DELPHI中的打印机设置问题,各位师兄请进来看一下! 急问:怎样编程实现打开已保存的quickreport文件(*.QRP)?主要是得到保存的文件名后如何处理打开操作 请问这语句的意思? 在用Rose进行系统分析的过程中,如何对界面的进行详细描述? 谁知道Kylix要在linux内核2.?版本以上才能安装?? 急死菜鸟拉,大家帮帮忙呀 高分求助!!!配置Tomcat4.0 请问那里有php聊天程序?能适合虚拟主机(Unix)、无数据库 有兄弟如此,我..... 我的Access文件怎么变成只读了?怎么变回来? 如何判断传入的字符为空? 帮忙看看,去空格的问题 applet被限制调用系统资源,那么applet打印问题该如何解决,高手进来讨论 MOUNT 怎么给分啊? 关于用Adobe Acrobat看书的问题 根据母菜单变换子菜单???? 怎样用代码生成菜单,给个例子. 我明年想去读书,全日制的那种,我报计算机专业还是英语专业?各位水园的朋友个建议! 问一个很菜的C++的问题,不得不看罗!! 请问哪里有Acrobat Reader中文支持版本 applet的高手们,如何让applet在载入时显示"程序正在载入中"的提示?????? AIX 下ld 动态库问题 请看这个关于焦点问题 !!!!!!这个问题简单,但我菜,还要问!!!! 请问Tsplitter怎么用?? 为何内存溢出? 各位好!!我碰到一个选择问题(感情方面的),请大家给我参谋参谋。。。。。。。。 如何使一个窗体不能被拉大或缩小? 上午53,下午46........我好害怕啊。八成过不了了。 有个页面只有一个form其内容全是hidden项,如何让这个页一运行就自动提交到另一也7 控件的写法请教,我新控件由3个控件组合而成,但是控件间的相互通讯成了问题,如何向其他的单元发送消息呢,比如当点击某个控件其他两个, 同时响应这个消息 一个SQL语句的问题 怎么在form中定义一个变量,然后可以在另一个form中调用!? 波光粼粼是怎么由于光的反射形成的?是由于镜面反射还是漫反射?简单解释下 水往高处流为何?现实中 一项工程由甲乙两工程队合作完成,如果让甲工程单独完成需要30天,如果让乙单独做要20天.如果让甲乙两个工程队一起工作3天,再由乙工程队单独完成剩余部分,则乙工程队还需要多少时间完成 镜面反射与漫反射原理小叶用激光笔对着光滑大理石地面照射,发现对面粗糙的墙壁上出现一个明亮的光斑,而光滑大理石地面上的光斑很暗,出现此现象的原因是什么? 往高处流的水?有没有人相信有水往高处流的,我国克孜勒苏柯尔克孜自治洲乌恰县城190千米处,有一条名为什克的神奇小河,水流沿着山坡逶迤而上,爬上一个高14.8米的小山包,然后才顺着山坡从 电工学的题 关于镜面反射和漫反射雨过天晴的夜晚,为了不踩到地上的积水,有经验的人往往这样做:迎着月光走,地上发亮处是积水,所以千万别往上踩;背着月光走,地上暗处是积水,所以千万别往上踩.你 电子电工学 碳黑和炭黑一样吗? 作文知识和成语1.记叙文的四要素:( )、( )、( )、( )2.读书笔记一般有三种:( )、( )、( )3.( )( )瑰宝 电工学,求教 乙炔碳黑和炉法炭黑的区别现在橡胶用炭黑都是炉法炭黑或是槽法炭黑,不知道乙炔碳黑是什么东西,那位大侠知道啊? 某镇道路改造工程,由甲、乙两工程队合作20天可完成.甲工程队单独施工比乙工程队单独施工多用30天完成此项工程.(1)求甲、乙两工程队单独完成此项工程各需要多少天?(2)若甲工程队独 一项工程,甲工程队单独做要20天完成,乙工程队单独