声明:
Declare Function MCISendString＆ Lib ″MMSYSTEM″ (ByVal LPSTRCOMMAND＄, ByVal LPSTRRETURNSTR As Any, ByVal WRETURNLEN％, ByVal HCALLBACK％)
开始播放:
R％ = MCISendString＆(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0＆, 0, 0)
R％ = MCISendString＆(″PLAY NN FROM 0″, 0＆, 0, 0)
R％ = MCISendString＆(″CLOSE ANIMATION″, 0＆, 0, 0)
停止:
R％ = MCISendString＆(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0＆, 0, 0)
R％ = MCISendString＆(″STOP NN″, 0＆, 0, 0)
R％ = MCISendString＆(″CLOSE ANIMATION″, 0＆, 0, 0)
其中EXAMPLE.MID 为播放
文件
NN为自定义名称标志
使XMPlayer自动播放VCD
XingMPEG Player是软解压播放VCD
优秀软件Software但调入XM—player、进入播放状态、隐藏面板等
系列操作需要多次点击鼠标较为麻烦下面用VB
首先检查光驱是否准备好或光驱中是否为 VCD光碟然后利用VB模拟XingMPEG键盘动作通过短短几行实现 VCD光盘自动播放1.进入VB环境
设置窗体Form1Visible属性为 False然后在窗体上建立个驱动器列表框Drivel亦设其Visible属性为False以使窗体和列表框在调入时不被显示出来其它属性均取默认值2.双击窗体
编写过程代码 Private Sub Form—Load()
_disibledevent=4 Then Resume startline Else En ′由用户选择重试或退出
End Sub
3.将上述
编译成EXE文件然后将其快捷方式拖至桌面双击该图标即可装入Xing MPEG Player并自动开始满屏播放VCD同时置PLAYER面板于Standard Bar状态并将的隐藏中^表示Ctrl％表示Alt的所以中要连续插入暂停“^S”和播放“^P”两个动作是
20版本VCD在按Alt＋FV后即开始播放 10版本在按Alt＋FV后还要求按Ctrl＋P而Ctrl＋P在播放状态下又等价于Ctrl＋S(即暂停)；所以如果只有个“^P”则使VCD10开始播放而VCD20暂停为了兼顾两种版本VCD首先模拟Ctrl＋S动作实现暂停然后再模拟 Ctrl＋P开始播放从而使两种版本 VCD在执行本后都能实现自动播放上述
在Pwin 95、VB 5和XingMPEG Player 3.2环境中调试通过
最新评论