聚福隆

'用MCI命令来实现多媒体的播放功能   中文转载
'下面的内容几乎有播放器软件的各种功能，你只是引用这些函数就能做出一个播放器来
'

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal

lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,

ByVal hwndCallback As Long) As Long

Public Declare Function mciGetDeviceID Lib "winmm.dll" Alias "mciGetDeviceIDA" (ByVal

lpstrName As String) As Long

Public Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long,

lpdwVolume As Long) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As

Long, ByVal nIndex As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal

lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal

lParam As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As

Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal

lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Enum PlayTypeName
??? File = 1
??? CDAudio = 2
??? VCD = 3
??? RealPlay = 4
End Enum
Dim PlayType As PlayTypeName
Enum AudioSource
??? AudioStereo = 0 ' "stereo"
??? AudioLeft = 1 '"left"
??? AudioRight = 2 '"right"
End Enum
Dim hWndMusic As Long
Dim prevWndproc As Long

'=======================================================
'打开MCI设备，urlStr为网址,传值代表成功与否
'=======================================================
Public Function OpenURL(urlStr As String, Optional hwnd As Long) As Boolean
??? OpenMusic = False
??? Dim MciCommand As String
??? Dim DriverID As String
???
??? CloseMusic
???? 'MCI命令
??? DriverID = GetDriverID(urlStr)
??? If DriverID = "RealPlayer" Then
??????? PlayType = RealPlay
??????? Exit Function
??? End If
??? MciCommand = "open " & urlStr & " type " & DriverID & " alias NOWMUSIC"
???

??? If DriverID = "AVIVideo" Or DriverID = "MPEGVideo" Or DriverID = "MPEGVideo2" Then
??????? If hwnd <> 0 Then
??????????? MciCommand = MciCommand + " parent " & hwnd & " style child"
??????????? hWndMusic = GetWindowHandle
??????????? prevWndproc = GetWindowLong(hWndMusic, -4)
??????????? SetWindowLong hWndMusic, -4, AddressOf WndProc
???????????
??????? Else
??????????? MciCommand = MciCommand + " style overlapped "
??????? End If
??? End If
???
??? RefInt = mciSendString(MciCommand, vbNull, 0, 0)
??? mciSendString "set NOWMUSIC time format milliseconds", vbNullString, 0, 0
??? If RefInt = 0 Then OpenMusic = True

End Function
'=======================================================
'打开MCI设备，FILENAME为文件名,传值代表成功与否
'=======================================================
Public Function OpenMusic(FileName As String, Optional hwnd As Long) As Boolean
??? OpenMusic = False
??? Dim ShortPathName As String * 255
??? Dim RefShortName As String
??? Dim RefInt As Long
??? Dim MciCommand As String
??? Dim DriverID As String
???
??? CloseMusic
??? '获取短文件名
??? GetShortPathName FileName, ShortPathName, 255
??? RefShortName = Left(ShortPathName, InStr(1, ShortPathName, Chr(0)) - 1)
??? 'MCI命令
??? DriverID = GetDriverID(RefShortName)
??? If DriverID = "RealPlayer" Then
??????? PlayType = RealPlay
??????? Exit Function
??? End If
??? MciCommand = "open " & RefShortName & " type " & DriverID & " alias NOWMUSIC"
???

??? If DriverID = "AVIVideo" Or DriverID = "MPEGVideo" Or DriverID = "MPEGVideo2" Then
??????? If hwnd <> 0 Then
??????????? MciCommand = MciCommand + " parent " & hwnd & " style child"
??????????? hWndMusic = GetWindowHandle
??????????? prevWndproc = GetWindowLong(hWndMusic, -4)
??????????? SetWindowLong hWndMusic, -4, AddressOf WndProc
???????????
??????? Else
??????????? MciCommand = MciCommand + " style overlapped "
??????? End If
??? End If
???
??? RefInt = mciSendString(MciCommand, vbNull, 0, 0)
??? mciSendString "set NOWMUSIC time format milliseconds", vbNullString, 0, 0
??? If RefInt = 0 Then OpenMusic = True

End Function
Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam

As Long) As Long
??? If Msg = &H202 Then
??? MsgBox "OK"
??? End If
??? WndProc = CallWindowProc(prevWndproc, hwnd, Msg, wParam, lParam)
End Function
'=======================================================
'根据文件名，确定设备
'=======================================================
Public Function GetDriverID(ff As String) As String
??? Select Case UCase(Right(ff, 3))
???? Case "MID", "RMI", "IDI"
??????? GetDriverID = "Sequencer"
???? Case "WAV"
??????? GetDriverID = "Waveaudio"
???? Case "ASF", "ASX", "IVF", "LSF", "LSX", "P2V", "WAX", "WVX", ".WM", "WMA", "WMX", "WMP"
??????? GetDriverID = "MPEGVideo2"
???? Case ".RM", "RAM", ".RA"
??????? GetDriverID = "RealPlayer"
???? Case Else
??????? GetDriverID = "MPEGVideo"
???? End Select
End Function

'======================================================
'播放文件
'======================================================
Public Function PlayMusic() As Boolean
??? Dim RefInt As Long
??? PlayMusic = False
??? RefInt = mciSendString("play NOWMUSIC", vbNull, 0, 0)
??? If RefInt = 0 Then PlayMusic = True
End Function

'======================================================
'获取媒体的长度
'======================================================
Public Function GetMusicLength() As Long
??? Dim RefStr As String * 80
??? mciSendString "status NOWMUSIC length", RefStr, 80, 0
??? GetMusicLength = Val(RefStr)
End Function

'======================================================
'获取当前播放进度
'======================================================
Public Function GetMusicPos() As Long
??? Dim RefStr As String * 80
??? mciSendString "status NOWMUSIC position", RefStr, 80, 0
??? GetMusicPos = Val(RefStr)
End Function

'======================================================
'获取媒体的当前进度
'======================================================
Public Function SetMusicPos(Position As Long) As Boolean
??? Dim RefInt As Long
??? SetMusicPos = False
??? RefInt = mciSendString("seek NOWMUSIC to " & Position, vbNull, 0, 0)
??? If RefInt = 0 Then SetMusicPos = True
End Function

'======================================================
'暂停播放
'======================================================
Public Function PauseMusic() As Boolean
??? Dim RefInt As Long
??? PauseMusic = False
??? RefInt = mciSendString("pause NOWMUSIC", vbNull, 0, 0)
??? If RefInt = 0 Then PauseMusic = True
End Function
'======================================================
'关闭媒体
'======================================================
Public Function CloseMusic() As Boolean
??? Dim RefInt As Long
??? CloseMusic = False
??? RefInt = mciSendString("close NOWMUSIC", vbNull, 0, 0)
??? If RefInt = 0 Then CloseMusic = True
End Function
'======================================================
'设置声道
'======================================================
Public Function SetAudioSource(sAudioSource As AudioSource) As Boolean
??? Dim RefInt As Long
??? Dim strSource As String
??? Select Case sAudioSource
??????? Case 1: strSource = "left"
??????? Case 2: strSource = "right"
??????? Case 0: strSource = "stereo"
??? End Select
??? SetAudioSource = False
??? RefInt = mciSendString("setaudio? NOWMUSIC source to " & strSource, vbNull, 0, 0)
??? If RefInt = 0 Then SetAudioSource = True
End Function

'======================================================
'全屏播放
'======================================================
Public Function PlayFullScreen() As Boolean
??? Dim RefInt As Long
??? PlayFullScreen = False
??? RefInt = mciSendString("play NOWMUSIC fullscreen", vbNull, 0, 0)
??? If RefInt = 0 Then PlayFullScreen = True
End Function

'=====================================================
'设置声音大小
'=====================================================
Public Function SetVolume(Volume As Long) As Boolean
??? Dim RefInt As Long
??? SetVolume = False
??? RefInt = mciSendString("setaudio NOWMUSIC volume to " & Volume, vbNull, 0, 0)
??? If RefInt = 0 Then SetVolume = True
End Function

'=====================================================
'设置播放速度
'=====================================================
Public Function SetSpeed(Speed As Long) As Boolean
??? Dim RefInt As Long
??? SetSpeed = False
??? RefInt = mciSendString("set NOWMUSIC speed " & Speed, vbNull, 0, 0)
??? If RefInt = 0 Then SetSpeed = True
End Function

'====================================================
'静音True为静音，FALSE为取消静音
'====================================================
Public Function SetAudioOnOff(AudioOff As Boolean) As Boolean
??? Dim RefInt As Long
??? Dim OnOff As String
??? SetAudioOff = False
??? If AudioOff Then OnOff = "off" Else OnOff = "on"
??? RefInt = mciSendString("setaudio NOWMUSIC " & OnOff, vbNull, 0, 0)
??? If RefInt = 0 Then SetAudioOff = True
End Function

'====================================================
'是否有画面True为有，FALSE为取消
'====================================================
Public Function SetWindowShow(WindowOff As Boolean) As Boolean
??? Dim RefInt As Long
??? Dim OnOff As String
??? SetWindowShow = False
??? If WindowOff Then OnOff = "show" Else OnOff = "hide"
??? RefInt = mciSendString("window NOWMUSIC? state " & OnOff, vbNull, 0, 0)
??? If RefInt = 0 Then SetWindowShow = True
End Function

'====================================================
'获得当前媒体的状态是不是在播放
'====================================================
Public Function IsPlaying() As Boolean
??? Dim sl As String * 255
??? mciSendString "status NOWMUSIC mode", sl, Len(sl), 0
??? If Left(sl, 7) = "playing" Or Left(sl, 2) = "播放" Then
??????? IsPlaying = True
??? Else
??????? IsPlaying = False
??? End If
End Function

'====================================================
'获得播放窗口的handle
'====================================================
Public Function GetWindowHandle() As Long
??? Dim RefStr As String * 160
??? mciSendString "status NOWMUSIC window handle", RefStr, 80, 0
??? GetWindowHandle = Val(RefStr)
End Function

'====================================================
'获取DeviceID
'====================================================
Public Function GetDeviceID() As Long
??? GetDeviceID = mciGetDeviceID("NOWMUSIC")
End Function

全国中小学Flash课件大赛通知

作者：浪子啸天 文章来源：本站原创 点击数：2409
更新时间：2005-1-1

主办单位：
《信息技术教育》杂志全国教育科学"十五"规划教育部重点课题《网络教育与传统教育的优势互补研究》总课题组

承办单位：
课件制作联盟  http://www.y9b.com/

新技术，新课堂，课件开放，资源共享。为了促进信息技术与课堂教学的有机融合，给全国广大一线教师提供更多交流和探讨的机会，让课件更好地服务于教学。在新课改大潮下，由《信息技术教育》杂志主办的首届全国中小学课件大赛拉开帷幕。本次大赛将在全国范围内征集作品，通过专家评审、网友投票等方式评出优秀作品，从而提高广大教师的课件应用水平，推动教育教学改革。

征集内容
内容紧扣全国中小学各学科教学内容的优秀课件。

征集范围
全国中小学一线教师、教研员和课件制作爱好者。

大赛日程

作品征集时间：2005.1.1-2005.5.15零时截止

网友投票时间：2005.3.15-2005.5.20零时截止
专家评审时间: 2005.5.1 -2005.5.30
获奖作品公布时间：2005.6.1

作品评审及奖项设置
为了保证大赛的公正性、公平性、专业性和权威性，大赛将邀请教育界人士、著名制作人、美术指导和专业人士等组成专家评审团，对作品进行评审，设置如下奖项：
一等奖：5名；二等奖：10名；三等奖：20名；优秀奖：30名

以上获奖者可获得由《信息技术教育》杂志颁发的获奖证书。获奖名单将在《信息技术教育》杂志及课件制作联盟网站公布，同时获奖作品将有机会在《信息技术教育》杂志刊登。

2.组织奖
各地教育厅\局信息中心、中小学校校办教务处的参赛作品可由专人统一上传，参赛课件数量达到20件以上的组织单位，将有机会获得组织奖，获奖单位可获得由《信息技术教育》杂志颁发的证书。

大赛支持
苏州计算机教师协会；课件制作联盟

赛务联系
赛务咨询：
《信息技术教育》杂志
联系人：王秀英
电话： 010-87663458-8069

作品提交：
课件制作联盟
联系人：孔志明
电话： 0757-85606270-8810
QQ 85681431
E-mail kongtony@126.com

集体参赛（各地教育厅、局信息中心，电教馆，教研室等）
联系人：王晓军
电话：
87663458－8083

相关细则：
参赛规则
1.参赛者必须保证作品的原创性，不侵犯任何第三方的知识产权或其他权益，同时符合国家相关法律法规。参赛者同意对任何违反前述所造成的第三方索赔负全部责任，并保证比赛组织方不受损失。
2.课件的片头应出现规范的课程名称，样式不限。如：九年义务教育六年制小学语文教科书、第八册、第25课、参观刘家峡水电站。
3.为确保评审的公正性，课件中不允许出现研制者的姓名、所在单位。
4.课件中的配音应为标准普通话配音。（不包括英语课件）
5.本次大赛只接受课堂教学型、自学辅导型、问题解决型和教学素材组织型<
6.为便于阅读与评比，参赛作品中的文件管理应遵循如下规定：参赛作品中的所有文件均存放于以"作者学校＋姓名＋课件名称"命名的文件夹内。如：辽宁省锦州市保二小学吴虹制作的《摩擦力》的课件，所用的文件夹名应为：辽宁省锦州市保二小学吴虹《摩擦力》。
7.曾用于其他各种形式的课件作品不得参加本次比赛，一经发现，将撤销上传作者比赛资格。
8.每位作者最多可以提交3件作品，如两件作品以上获奖，不得兼得，将以最高等级为准。
9.《信息技术教育》杂志和课件制作联盟拥有本次活动所有上传作品的使用权。<

参赛办法
1.每位参赛者先注册为课件制作联盟的参赛会员，并跟贴报名，说明个人的详细信息（地址、邮编、电话、E－mail，姓名），及其参赛作品的题目。
2.上传作品时附带个人详细信息，并提供参赛作品的配套教案、课件设计思路和使用说明等。
3.作品上传要求：
①所有参赛作品可通过以下3种方式进行上传：<
A.到课件制作联盟网站参赛页面（http://www.y9b.com/cs/index.html）上传。
B.通过FTP(ftp://up:up@218.21.71.43)上传。
C.通过邮件（kongtony@126.com或kfm.cn@163.com<）上传。
②所有作品上传前必须先查杀病毒。
③具体上传方法和要求,请登陆课件制作联盟网站查询。

作品要求
1.必须使用Flash软件进行制作或其他辅助软件，提交作品格式为swf。作品体积不得超过3MB，超过3MB请与网站管理员（孔志明）联系。
2.作品使用统一尺寸为550×400像素，帧频24帧/秒，首页必须加loading。
3.上传的作品必须附有一张课件缩略图。图片规格为：200×150的jpg格式的图片。
4.必须在作品封面及封底处添加本次大赛logo（《信息技术教育》杂志logo和课件联盟logo）。下载地址为：http://www.y9b.com/cs/index.html。
5.作品必须标明作品名称、适用教材、作者单位、联系方式及姓名，不可出现其他商业性广告语和任何外部链接。
6.获奖作品的作者请提交Flash源文件，证明其真实性。