Yes. This should help.
#CONSTANT Standard 0xFFFFFFFF
#CONSTANT SystemAsterisk 0x00000040
#CONSTANT SystemExclamation 0x00000030
#CONSTANT SystemHand 0x00000010
#CONSTANT SystemQuestion 0x00000020
#CONSTANT SystemDefault 0x00000000
print "Press a key to hear a simple tone on the speaker."
wait key
Beep(440, 750)
print "Press a key to hear a system sound event."
wait key
MessageBeep(SystemAsterisk)
print "Press a key to exit."
wait key
end
Remstart
The Beep function generates simple tones on the speaker. The function is synchronous; it does not return control to its caller until the sound finishes.
BOOL Beep(
DWORD dwFreq, // sound frequency, in hertz
DWORD dwDuration // sound duration, in milliseconds
);
Parameters
dwFreq
Windows NT:
Specifies the frequency, in hertz, of the sound. This parameter must be in the range 37 through 32,767 (0x25 through 0x7FFF).
Windows 95:
The parameter is ignored.
dwDuration
Windows NT:
Specifies the duration, in milliseconds, of the sound.
Windows 95:
The parameter is ignored.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Remend
function Beep(freq as dword, duration as dword)
load dll "kernel32.dll", 1
call dll 1, "Beep", freq, duration
delete dll 1
endfunction
Remstart
The MessageBeep function plays a waveform sound. The waveform sound for each sound type is identified by an entry in the [sounds] section of the registry.
BOOL MessageBeep(
UINT uType // sound type
);
Parameters
uType
Specifies the sound type, as identified by an entry in the [sounds] section of the registry. This parameter can be one of the following values:
Value Sound
0xFFFFFFFF Standard beep using the computer speaker
MB_ICONASTERISK SystemAsterisk
MB_ICONEXCLAMATION SystemExclamation
MB_ICONHAND SystemHand
MB_ICONQUESTION SystemQuestion
MB_OK SystemDefault
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Remend
function MessageBeep(uType as integer)
load dll "User32.dll", 1
call dll 1, "MessageBeep", uType
delete dll 1
endfunction
Cheers.
