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

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


activate(index)-JQuery API button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API outerWidth()-JQuery API scrollLeft()-JQuery API scrollTop()-JQuery API width()-JQuery API ajaxForm(object)-JQuery API ajaxSubmit(object)-JQuery API clearForm()-JQuery API clearInputs()-JQuery API fieldSerialize(true)-JQuery API fieldValue(successful)-JQuery API formSerialize(true)-JQuery API formToArray(true)-JQuery API resetForm()-JQuery API $.recallDroppables()-JQuery API $.SortSerialize()-JQuery API Draggable(hash)-JQuery API DraggableDestroy()-JQuery API Droppable(options)-JQuery API DroppableDestroy()-JQuery API Sortable(options)-JQuery API SortableAddItem(elem)-JQuery API Bjarne Stroustrup 怎么念?有高手能给出音标吗?100分在线等待! 神秘的芭蕾舞鞋……《非人勿进!!!》¥%……·%·¥%·#¥%#·¥#@$%$#^%^%$$#@ 怎样做一个自己的DBNavigator? =====关于CDialog的一个简单问题===== 急救!子窗体问题!在线等待 如何把程序窗口显示在其他所有程序的前边 dbengine error: invalid blob length? 数据集打开问题 严重的问题???? 一个问题: 一个小问题,在线求助! 神秘的芭蕾舞鞋……¥%……·%·¥%·#¥%#·¥#@$%$#^% 无法进入系统,救救我吧 菜鸟问题,送分了!!! 得分小问题 小问题,请熟悉InterBase的大大进来看看。 做一个分布式的例子时的问题 大家帮我看下这几句问题到底出在哪里呀!!!!!!!谢谢 连接数据库的疑问,盼望解答!! 什么叫作实例? 菜鸟问题 十万火急:MDI的一个问题?????????在线等待!!!!!! 调查一下用汇编语言开发的工资如何?(深圳 ) 有关Builder版的兄弟定期进行网上技术交流的倡议书! 急!关系到我是否找到工作,请回答 如何根据Form的大小调整控件的大小 闪盘的另一个分区不能用了!!在线 连接数据库的疑问,盼望解答!! 急!急!急!请教一个共享的问题? 请问哪里有Class类和Method这两个类的说明呀!谢谢! 怎样打开CSDN电子版 请推荐一下有关于JAVA,JSP,JAVASCRIPT相关的好书 汽车与电脑谁重要(转) 转让 全新飞利普 820 彩屏手机一部(个人) 请问是否有可以统计数据的电子表格控件? 给点看法? 是不是来这里的人混得好的不多,搞得我都不敢跳槽了 倒霉就一个字,我只说一次。 一个关于Delphi的简单循环外提(编译优化)的测试,有兴趣进来看看 大家遇到这样的问题了吗? DTPicker的问题,急急急!!!! sun的ultra5启动时显示没有键盘设备,可能是键盘坏了,哪里能找到这种8芯的鬼键盘? softice调试时出现的有意思的问题 怎样终止一个函数? 关于j2ee的几个问题 谁有数值计算方法与c语言工程函数库的代码,急!!! 麻烦有项目开发经验的大虾进来看看,给项目估个价!谢谢! 急!!大问题!!求助!!发扬你们的美德吧! JAVA的配置问题 菊花在水里跳舞!!! 用什么来写啊!!!jdk还是jbuilder 花坛的花真美呀,一团团,一簇簇,整齐地排列着,争奇斗艳,像( ),像(花坛的花真美呀,一团团,一簇簇,整齐地排列着,争奇斗艳,像( ),像( ),像( ),五颜六色,形态各异 用英语说健康的食物和不健康的食物 Healthy food:meat,fruit,vegetables,_____________________ 德国是日耳曼民族,希特勒为什么却称之为雅利安人?雅利安人不是北印度的一个部落吗? 肖酸安化肥会爆炸吗? 英语书上说 Meat and fish are healthy food but hanburgers and candy aren't healthy food.这是肯定句还是否定句 为什么hanburgers and candy这里是用and 不是用or Excuse me,may I use your computer?英译中求你了 l磷酸是酸还是肥料? 李老师为某杂志社审稿,审稿费为200元,按3%的税率缴纳个人所得税后,她实得费用多少元算式,结果,禁方程 1936年的柏林,希特勒对12万观众宣布奥运会开始.他要借世人瞩目的奥运会,证明雅利安人种的优越.我来扮演一位德国观众,在“情绪昂扬”到“倏忽沉静”这段时间里,我会想:---------------------- 柠檬酸可以做肥料吗 李老师为某杂志社审稿,审稿费为200元,按3%的税率缴纳个人所得税后,它实际得到审稿费()元. There is agirl under the tree,She's drawing pictures.合成一句话 We had some vegetable soup for lunch.(对划线部分提问) vegetable 划线 、李老师为某杂志社审稿,审稿费为200元.为此她需要按3%的税率缴纳个人所得税,她应缴个人所得税多少元? 甲、乙两人各走14千米,甲比乙早半小时走完全程.已知甲与乙速度的比为8∶7,求两人的速度各是多少? what a beautiful scarf it is Thanks.it me twenty yuan.Atook B cost Meat and fish are healthy.Too much meat isn't healthy.合一句 在36÷9 =4中,如果9乘8,要保持商不变,那么36应( ) 甲数除乙数,商是3.6,把乙数扩大5倍,甲数不变,那么商是多少 李老师为某杂志审稿,为此她需要3%的税率缴纳个人所得税60元,她税前的审稿费为多少元?李老师为某杂志审稿,为此他需要按3%的税率缴纳个人所得税,税后她得了1940元的稿费,她税前的审稿费 求这两种吊灯灯泡型号 吃多少安眠药会死? 小学四年级生活作息表.不加写作业! there are two books in my hand.(对划线部分提问)划线部分是two books This scarf of____is so beautiful A.she B.her C.hers D.herself 孔雀东南飞中兰芝说“人贱物亦鄙”是什么意思 You'll have to spend ----writing your report here A.one day or two days B.one day or two C.a day or two .D.two days or one 为什么 一人步行每小时行6千米并且他步行1km所用的时间比骑自行车1km所用的时间多了10分钟问骑车走50千米要几小时原题是一人步行每小时行6km,并且他步行1km所用的时间,比骑自行车行1km所用的 速度和时间是否成正比例?成什么比例?如果用四小时行完全程,每小时行多少千米? He’ll have to spend ____ writing hie report here.A.one day or two days; B.one day or two; C.a day or two days ; D.a day or two选D为什么不选A啊 甲、乙两块棉田平均每公顷产1400千克,甲块棉田有5公顷,平均每公顷产1460千克;乙块棉田平均每公顷%B ----Excuse me,but I want to use your computer to type a report.----You________ have my computer if you don't take care of it.A.shan't B.might not C.needn't D.shouldn't 为什么不选B i will spend what i have to buy you a coat为什么不说i will spend what i have buying you a coat The pen is bad.I want ___.用another,anther,the other,the others填空another是错的! what kind of 用法 you are planning to spend your money have fun this week,better ___ it-you've got some big bills coming.空格填什么,为什么呢 what about the white one?翻译 excuse me ,but I want to use your computer to search for information.的答语 直径为d的圆形钢板,现需切割一个矩形钢材.问如何切割,矩形的面积最大?并求出最大面积? 翻译what about the reading light? -Excuse me,but i wanna use ur computer 2 type a report.-You_have my computer if you don't take care of it.1shan't2won't答案是1我选2为什么不对p85 求一解答题:直径为d的圆形钢板,现需切割一个矩形钢料.问如何切割,矩形的面积最大?并求出最大面积? 雅利安这个民族概况,德国人雅利安人?雅利安不是印度人吗?都那儿的是雅利安人? 中国人是雅利安人吗? I eat lots of fruit and vegetable对吗?如果不对那要怎么改? 四脚蛇吃不吃青蛙? 雅利安人种的起源? 直径为d的圆形钢板,现需切割一个矩形刚料.问如何切割的矩形面积最大求最大面积 Now a great change in the people's thinking has come about.这句有错吗?为什么a great change在前面 雅利安人的英文是怎么拼的? I seldom eat fruit ()vegetable.A.and B.or 选什么? Serving this great variety of people are about 3400 colleges and universities enrolling more than 12 million students.请问这句话的正常语序是什么? 一段路有6千米,甲用4/3小时走完乙用3/2小时走完.写出甲乙两人的速度比并化简我要式子. 直径为D的原形钢板,现需切割一个矩形钢料.问如何切割,矩形的面积最大?并求出面积? Serving this great variety of people are about 3,400 colleges and universities enrolling more than 12 million students 请教这个倒装句 一段路程,甲行完全程需4小时,乙行完全程需6小时,甲、乙两人的速度比为()一段路程,甲行完全程需4小时,乙行完全程需6小时,甲比乙的速度快()%小明每天上学需走20分钟,今天迟出发4分钟, 《蝉》的文章主旨是什么7年级的小思写的.(不要教辅材料!) 急需~~~~~~! 花坛里的花真美啊,一团团,一簇簇,整齐地排列着,像( ). 英语填空vegetables and chinese tea are healthy food and d_______.bob likes eggs .he eats tuo eggs f________ breakfast. a womem is a man,like fish is a bycicle只是单纯的字面意思么? 美媒:部分美联储官员主张制定债券“退埃及再发军警遇袭事件 三名警察执勤时前三季度宁波灰霾天数达81天 复合污津巴布韦一架波音737客机引擎着火后外交部:联合国人权理事会通过中国接受日本新一代消防车设计图出炉 神似机动韩国军方网络司令部涉嫌干预大选 防长调查显示日本半数国民反对《特定秘密保澳洲85岁志愿者因慈善工作获得“默多埃及再发军警遇袭事件 三名警察执勤时日本赛马失控与轿车相撞当场丧生 司机希腊经济危机使国内中产阶级损失惨重(美国多名政客支持监听行为 称总统不必以色列耄耋作家展望巴以和平并存 遭官澳媒称澳政府拟摒弃前任政府对亚洲战略报告称全美国一年有500名少年儿童死阿根廷执政党保住国会最大党地位 但选加拿大婚外情网站欲进驻新加坡 遭民众印度拟射火星探测器 欲争亚洲第一被批美监管机构调查房地产信托投资基金日本一杂志启用胖模特 专为胖女孩设计东源奥迪4S店大门被堵被罚暂停更新赵薇加盟黑暗料理界西阁社区 看望慰问辖区伤残军人游船进喷泉区 一家4口被困期待精英交友会上顺利遇上TA汪峰难忍偷拍报警 那英杨坤发声力挺开元四季社区 军民做手工送留守儿童长山社区 送部队官兵空调电脑七专家赴台调查复兴空难:重飞为何不在比利时博物馆中的一战故事整天玩手机不顾家与子 丈夫实在受不了台湾青年忧心低薪高房价 甚至担心老了销量增6成 台湾网购情人礼 香水第1七夕情人节宅家里 网购美食增3成澎湖空难5天善后一团乱 殡葬业者抢生男子疑似吸毒飚时速140公里驾车 撞台媒观察:陆生上进有“狼性” 台生只复兴航空澎湖空难后续:拟30日公布失台湾人口性别比例统计数据:女多于男 失恋女驾车乱撞致四轮朝天 被救出时睡
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘