Youve got mail crap

[Sophtware]

Ok now i know everyone here doesnt have AOL..but maybe anyone can help...

What code would i use to access that crap that sounds off when you get mail in aol? am sure it is in a aol.bas somewhere but i havent found it..

Thank you

[parksie]

What do you mean, just accessing Joanna's lovely recorded wave file, or something else?

Or do you mean playing the sounds that are located in your C:\America Online folder?

[Sophtware]

Yeah i want to access the sounds that are in my c:\america online folder. :) hehe ill look there :)

You want to play the sounds? If so, use the PlaySound API.


Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()

'Play the WAV
PlaySound "C:\America Online\MyWav.wav", 0&, &H1

End Sub

[Sophtware]

Megatron...i tired your code but it doesnt work....it says "bad dll calling convention"

Try this:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2

Sub Playwav(file)
SoundName$ = file
wFlags% = SND_ASYNC Or SND_NODEFAULT
X% = sndPlaySound(SoundName$, wFlags%): NoFreeze% = DoEvents()
End Sub

Usage:
'Play
'Call Playwav("C:\America Online\im.wav")
'Stop
'Call Playwav(" ")