我还很好奇一个问题，不使用wmp的dll，如何读取一个音频文件（mp3,wav,flat）的播放时间。

因为我想做一个定时播放音乐的软件，这里的定时指的是指定音乐播放完成的时间。

例如，指定一个音乐必须在中午12:00正好播放完。这样，我就必须知道这个音乐的长度，才能反算出开始播放时间应该是什么时候。

另外就是，用api播放音乐除了wav外，是不是都需要自己写解码器，或者用别人的dll？

MMC控件的Length属性就是媒体文件的播放时间长度。

还有API函数：mciSendString，获取播放时间长度的代码是：

Dim ST As String*64
mciSendString "status movie length", st, len(st), 0 '其中movie是别名
l=val(st) 'L就是所播放文件的长度

用mciSendString播放wav、mp3、wma（还有别的一些媒体文件）都不需要自己写解码代码。

秋水老弟，我有几个想法。

1、关于那个“导出”是否覆盖已有文件的问题。如果能覆盖，就不说了，要是不能覆盖，在导出电源配置文件前，可以考虑删除因为不正常关机等原因造成前次导出文件。

2、读取导出文件的数据，可以放到“恢复电源方案”过程中恢复设置前读取。

3、On Error GoTo 100，都可能处理那些问题，会不会导致更改设置失败、甚至原电源方案未能导出？这些是否应该进行标记重新尝试，或者特殊处理？

呵呵，自己瞎想的，不一定有用，仅供参考。

模拟鼠标或者键盘按一个没有啥效果的键就好了哈，或者隐藏鼠标标记，或者将鼠标移动外屏幕外再移动哈

发现“改变电源方案”过程中的那个 DO 循环效果不好，改进如下：

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Dim SchemeFile As String    '电源方案文件
Dim SchemeName As String    '电源方案名称
Dim BjScheme As Boolean     '电源方案更改标记

Private Sub 改变电源方案()
On Error GoTo 100
Dim z As String, ws

SystemParametersInfo 17, False, 0, 0 '关闭屏保
Set ws = CreateObject("wscript.shell")
z = ws.regread("HKEY_CURRENT_USER\Control Panel\PowerCfg\CurrentPowerPolicy") '获取电源方案号
SchemeName = ws.regread("HKEY_CURRENT_USER\Control Panel\PowerCfg\PowerPolicies\" & z & "\Name") '获取方案名
SchemeFile = Environ("TEMP") & "\电源使用方案.txt"
Shell "cmd /c POWERCFG /QUERY > " & SchemeFile, 0  '导出原电源方案的配置

Shell "cmd /c POWERCFG /CHANGE " & SchemeName & " /monitor-timeout-ac 0", 0 '关闭监视器时间改为“从不”
Shell "cmd /c POWERCFG /CHANGE " & SchemeName & " /disk-timeout-ac 0", 0    '关闭磁盘时间改为“从不”
Shell "cmd /c POWERCFG /CHANGE " & SchemeName & " /standby-timeout-ac 0", 0 '系统待机时间改为“从不”

BjScheme = True
ws = Nothing
100
End Sub

Private Sub 恢复电源方案()
Dim st As String
Dim monitor_timeout As Integer '关闭监视器时间
Dim disk_timeout As Integer    '关闭硬盘时间
Dim standby_timeout As Integer '系统待机时间

Open SchemeFile For Input As #1
Do Until EOF(1)
  Line Input #1, st
  If InStr(st, "关闭监视器(AC)") Then monitor_timeout = Val(Mid(st, 20))
  If InStr(st, "关闭硬盘(AC)") Then disk_timeout = Val(Mid(st, 20))
  If InStr(st, "系统待机(AC)") Then standby_timeout = Val(Mid(st, 20)): Exit Do
Loop
Close #1

Shell "cmd /c POWERCFG /CHANGE " & SchemeName & " /monitor-timeout-ac " & monitor_timeout, 0 '复原关闭监视器时间
Shell "cmd /c POWERCFG /CHANGE " & SchemeName & " /disk-timeout-ac " & disk_timeout, 0       '复原关闭磁盘时间
Shell "cmd /c POWERCFG /CHANGE " & SchemeName & " /standby-timeout-ac " & standby_timeout, 0 '复原系统待机时间
SystemParametersInfo 17, True, 0, 0 '恢复屏保
BjScheme = False
Kill SchemeFile
End Sub