Pages 1 / Total 1 1
已被查看249次    只看楼主
巧用VB编程使XMPLAYER自动播放VCD
主题
天国恋歌




等级:终级天王
积分:262948
经验:123435
魅力:139513
威望:100000
财富:160301
金钱:0.00元
帖子:4040
注册:2007-05-29 08:57
楼主 资料 短消息
巧用VB编程使XMPLAYER自动播放VCD 2007-08-27 10:52

 XingMPEG Player是软解压播放VCD的优秀软件,但调入XMplayer、进入播放状态、隐藏面板等一系列操作,需要多次点击鼠标,较为麻烦。下面用VISUAL BASIC程序首先检查光驱是否准备好或光驱中是否为 VCD光碟,然后利用VB模拟XingMPEG的键盘动作,通过短短的几行程序,实现 VCD光盘的自动播放。

  ①进入VB环境,设置窗体FORM1的Visible属性为 False,然后在窗体上建立一个驱动器列表框Drivel,亦设其Visible属性为FALSE,以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。

  ②双击窗体,编写过程代码


  ③将上述程序编译成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在执行本程序后都能实现自动播放。

  上述程序在PWIN95、VISUAL BASIC 40和XingMPEG PLAYER 32环境中调试通过。



IP:125.*.*.*     顶部
论坛交流 ›› Visual Basic(VB) ›› 巧用VB编程使XMPLAYER自动播放VCD