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

Visual Basic影音控制

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic影音控制

  播放背景音乐

  声明:

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

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

  2.双击窗体,编写过程代码

   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
   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

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

  上述程序在Pwin 95、VB 5和XingMPEG Player 3.2环境中调试通过。
Andorid APK反逆向解决方案:梆梆加固原理探寻 科技拥抱设计:体验设计如何创新? Rails 4.0正式发布 命途多舛的webOS,两度易主,生生死死多少回 Citrix全面开源XenServer 为了三十亿人的网络幸福:Google投资O3b发射网络卫星 Windows 8.1中IE 11开始支持WebGL和SPDY/3 微软Build 2013开发者大会:盘点Windows 8.1的15个重大更新 瞧!这是摩托罗拉移动新Logo,你有什么感觉? 专访UEditor创始人战毅:打造最佳的用户编辑体验 Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 我这样实现查询可不可以,为什么没有结果请帮我看好吗 怎么VFP2.5 for windows里的界面(对话框的标题栏里)都没有关闭按钮啊 如何在用户长时间等待的过程中显示一个临时页 ERROR:ORA-12560: TNS: 协议适配器错误 如何在SQL语句里精确小数点以后的位数不清 想得到一段程序的运行时间,C#中提供的time精确度太低,有没有精度比较高的算法? 在客户端已知某个文件的存放路径而不通过HTML的FILE控件再进行浏览选择,怎样把这个文件上传到服务器上 在VBA中变量的值改变后如何保存住值啊? 请问ListView怎么实现(点击标题栏字段名时)排序?谢谢 为什么生命还是这么短 关于电子论坛的设计!!!(回答有意义的高分美人相送,灌水的大炮伺候) jdk1.4大量认证资料奉送 请教对话框的创建 几个小问题,请大家多多帮忙!在线等待 请大家仔细看看,不知道我有没有写清楚,不知道算不算难还算容易....... win2000 sever怎样安装borland c++builder?(高分100) 请大家帮个忙,举手之劳而已 使用MSComm,在关闭窗口的时候,出现“端口已打开”的错误。怎么解决? 请问这几段C#语句怎么办? applet问题,期待高手出现 如何使用OpenDialog啊? 高分组网,斑竹不要删~~~~~~~~~~~~~~~ win2000 sever怎样安装borland c++builder?(高分100) 如何按分组条件,给一个字段乘以不同的值 求电子书!!! win2000问题,很急.在线等 求教,用delphi编的drm程序,急!~~~~~~~~ 请教对话框的创建 倒粪1 win2k中tts问题 XML+XSL+HTML运行出错(书上的例子) 倒粪2 高手帮我看一下这个奇怪的问题 倒粪3 ServerSocket的疑问 倒粪4 电脑配件 请问如何在JBuilder中调用我自己编写的JavaBean? 文件1可以Imports文件2的Namespace么? 我需要一个汉字的字库和词库,请问在什么地方能够得到?或者怎么可以从一个输入法程序中导出词库或词库?多谢。 调查:有多少人用的支持Java的手机? 关于注册表重命名操作? redhat的lilo问题 急!!!!!!计算机启动后,能检测到新的硬件并安装驱动,之后出现错误按任一键继续按三键重启任一键后,屏幕上一无所有,出现蓝屏,多次启动依然 常用工具栏不见了?怎么加上啊? 哪里有windows2000的资源工具包下载? win2000启动问题!!! 请问如何取得客户端(浏览网页的用户)的ip地址????????????? 学过数据结构的不妨来看一看! 好心人,进来看看!小弟我也快沉了,帮帮忙,谢谢了! 如何实现计算器的屏幕从右端开始显示? 血晕是双音词还是单音词?为什么有两种读法?XUE XIE如何区分?血晕为什么有两种读法?XUE XIE如何区分?有人说是用双音词单音词区分的,但血晕如何判断?用双音词单音词如何判断? 小时候看到天上下冰块,很好奇,后来知道那是冰雹,想问问冰雹是由怎么样形成的? 王师傅要加工一批零件第一天加工的零件个数与这批零件得比是3:8,如果再加工72个零件就能完成这批零件的60%这批零件共有多少个?六年级同学分成甲乙两个组去劳动,甲组和乙组的比是7: 一年级买了15个铅笔盒,15个书包,15个自动笔,15个篮球,15根跳绳.二年级买了42个铅笔盒,30个书包,54个自动笔,10个篮球,65根跳绳.三年级买了74个铅笔盒,50个书包,98个自动笔,10个篮球,120根跳绳.二年 今天哪里下冰雹了 为什么今天会下冰雹 自古皆贵中华贱夷狄朕独爱之如一故其种落皆依朕如父母这句话是谁说的是什么意思表达了朕什么民族政策 物质吸热的多少是通过什么来反映的不同物质加热相同时间升高不同的温度 吸收的热量相同吗?吸收的热量是通过什么来反映的、.?不考虑其他变化 初中 听说赤水河是贵州茅台镇茅台的主要制作水源,有那么好的水吗? 什么叫做双音词(详细) 双音词是什么意思? 叙问题特使将抵达叙利亚 筹备日内瓦国中国首支海军核潜艇部队 42年潜行百19岁坚强女孩爬行上大学:选择学医将女学生被抱养18年无户口 相关部门称瞭望:以宏大的高素质人才队伍托起中国香港不满马尼拉向华人筹募赔款 港媒骂浙江国企力邀民企加盟 推3244亿元宁波大学举办“国际文化日”国务院部署推进公司注册资本登记制度改《我是特种兵之火凤凰》演员拍摄搞笑花不留遗憾,5对老夫妻补拍婚纱照美妆美饰品牌头彩2014新品发布会征地引发暴力冲突 山西60多名村民受巴塞尔时光六记亚洲私房菜美味旅行者手记医药代表行贿医生被抓现行中国政府跨部门工作组考察越南南部损失高端精品买手店01MEN落户太古汇市理工学校两教师获省级大奖炎夏已至金湾基本实现单位工伤保险全覆盖“南海Ⅰ号”船体初现轮廓
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘