Fråga : gör det stoppet!

Jag önskar att ha en makro/att skriva att ska lek kretsat ett solitt, när posta mottas och willek över och över, tills jag läser e-posten.  Jag skulle också något liknande för att ha en knäppas på toolbaren som stoppar kretsa.  BlueDevilFan kom upp med denna för mig, men jag vet inte hur man gör det stoppet… några idéer?

Private förklarar fungerar _
(ByVal lpszSoundName ”för sndPlaySoundA” för pseudonymen för sndPlaySoundliben ”winmm.dll” som stränger, ByVal uFlags som Long) som Long

Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT = &H2
Const SND_SYNC = &H0
Const SND_NOSTOP = &H10
Const för LCase för fallet för
för SND_MEMORY- = för &H4

Sub PlaySoundLoop (strCommand som stränger, strSound som stränger) vald strSound för sndPlaySound för
”för starten " för fallet (strCommand)
, SND_LOOP + vbNull för sndPlaySound för
för SND_ASYNC
fall”stopp ", SND_ASYNC
avslutar Select
End Sub

'Duplicate denna subroutine för varje som är mottagareare du, önskar att ska leka ett solitt för.  Var säker att ändra det känt. '
Sub/> 'banan och solitt sparar - känt på efter fodra, som desired'< för start-”, ”C:\Windows\Media\Ding.wav för/> br PlaySoundLoop ändring för
Sub ” "
Sub
End
'banan och det solitt sparar - känt på efter fodra som
för
End Sub
”för stoppet " för
PlaySoundLoop för
Sub StopWarning för
End Sub
för .wav " för desired'
PlaySoundLoop ”starten”, () " klar "

Svar : gör det stoppet!

Acronis något att säga som den kan återställandet till olik maskinvara - se denna Acronis artikel http://kb.acronis.com/content/1566