Sub 播放警告音乐   
    i = 0
    Do While i<evenSound
        If alarmLnight = 1 Then
            If time > beSoundTime and time < noSoundTime Then
                VBS strSoundFile = progPath & "穿越时空.wav"
                //randomPath = Lib.算法.随机字符串(10)
                //putPath="c:\windows\" & randomPath
                //PutAttachment putPath,"穿越时空.wav"
                //VBS strSoundFile = putPath & "\穿越时空.wav"
                //VBS Set WSHShell = CreateObject("Wscript.Shell")
                VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
                WSHShell.Run strCommand, 0, True
                If noDebug = 2 Then
                    intMsg = WSHShell.Popup("正在播放《穿越时空》", 5, "音箱没开时候的测试", vbOKOnly)
                    i=evenSound+1
                End If
                i = i + 1
            Else
                Exit Do
            End If
        End If
    loop
End Sub

这两天　　为了一项任务　　正在弄按键精灵　　。。。　　编个小外挂　　呵呵。。。

不过　　有一段逻辑判断　　搞晕了　　。。。　　类假VBS的语句　　不知道去哪里请教VBS　　而且　　语法和VFP差不太多　

所以到这里请教一下，

我想达到的目的是这样的：
evenSound　　是播放音乐的次数　　假设为3
alarmLnight　　是夜间防扰模式开关　　由于按键能接收的程序运行时变量　　只有数值型　　这里就是1表示始终播放　　2表示指定时间内播放
beSoundTime　　是允许播放的时间　　假设为早上七点　
noSoundTime　　是禁止播放的时间　　假设为晚上十点

。。。。。。　　
打完了上面的字　　好像有点理清逻辑了　　。。。

去试一下　　。。。

另外　　。。。一选给分的数字　　就让我复制　　　什么情况？　　浏览器升级了？还是论坛升级了？如下图　　鼠标都跑去上面复制文字了　　框还没消失呢

再加个关键的开关noDebug，当为1时，为非调试状态
　　此时，始终播放为1时，不管什么时间，都播放指定次数
　　　　　如果始终播放为2，允许播放时间内，播放指定次数

如果noDebug为2时，为调试状态
　　此时，即使　始终播放设置为2，也播放一次
　　　　　为调试状态时，在允许时间内，也只播放一次
。。。

这逻辑，真绕啊。。。绕死我了。。。脑汁洒了一地。。。

一个播放音乐的Sub子程序

当条件满足时触发播放音乐Ｎ次

关键设置一第一状态：深夜禁播
播放时，晚十点到早八点，不播放

设置一　的另一状态：如果设置为始终播放
任何时间都播放

另一设置：调试状态
无论设置一是否深夜禁播，都播放一次

。。。。。。

跟VFP没太大关系　　唯一的关系　　就是编程逻辑

这个代码是放在按键精灵里　　　挂机的时候　　　当出现异常情况　　　是否要播放一段音乐　　　提示一下

但不管是VBS　　　还是VFP　　　　编程逻辑　　　　应该是差不多的　

挂机　　　不一定要挂游戏　　　总之是不想干　　　但还必须要干的事

看来这个逻辑事务　　　是鱼和熊掌不可兼得了　　　只好分开判断了