Beep Erreur :/

Question

Salut, bon je débute en Vb car je suis plus admin rézo qu'autre chose :)

donc mon pb est que je voudrais émettre un bip du speaker de la carte mére. J'ai donc trouver ceci : 

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 'L'api

Private Sub Form_Load()
frequence=5000
APIBeep Frequence, 100
End Sub
 
ou encore cela :

Private Declare Function Beep Lib "kernel32" ( _ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Private Sub Timer1_Timer()

Randomize
duree = Int(390 * Rnd) + 10

frequence = Int(4950 * Rnd) + 50

Beep frequence, duree

End Sub

donc voila jenregistre bien en vbs ?
et je lance lappli et à chaque fois même erreur au niveau de Function Beep . La ligne et le caractère d'erreur se situe o niveau du F ou u de Funtion.
je ne comprends pas trop.
merci de m'éclairer

junk33 · Answer

c'est bon j'ai trouver :

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True

merci qd meme ;)
a bientot

Beep Erreur :/

1 réponse

Discussions similaires