首页 相关文章 巧用VB编程使XMPLAYER自动播放VCD

巧用VB编程使XMPLAYER自动播放VCD

XingMPEGPlayer是软解压播放VCD的优秀软件,但调入XMplayer、进入播放状态、隐藏面板等一系列操作,需要多次点击鼠标,较为麻烦。下面用VISUALBASIC程序首先检查光驱是否准备好或光驱中是否为VCD光碟,然后利用VB模拟XingMPEG的键盘动作,通过短短的几行程序,实现VCD光盘的自动播放。
  
  ①进入VB环境,设置窗体FORM1的Visible属性为False,然后在窗体上建立一个驱动器列表框Drivel,亦设其Visible属性为FALSE,以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。
  ②双击窗体,编写过程代码
  PrivateSubForm-Load()
  OnErrorGoTofinderr′检查光驱是否准备好或光驱中是否为VCD光碟
  startline:
  drvnmb=Drive1ListCount
  cdname$=Drive1List(drvnmb-1)
  files$=Dir$(cdname$&"\mpegav\*dat")
  Iffiles$=""ThenGoTofinderr
  act=Shell("C:\Program...[ 查看全文 ]

2016-02-19 标签:

巧用VB编程使XMPLAYER自动播放VCD的相关文章

手机页面
收藏网站 回到头部