用pc喇叭播放音乐

      在实际的工作中，许多的单位的电脑并不会配有音箱，就算有音箱，没事也不会打开。在这种情况下，

要想在有消息到来时进行提示，就必须得借助PC的喇叭了，以下就是PC喇叭发出的“生日歌”

 

  Private   Declare   Function   Beep   Lib   " kernel32.dll "  ( ByVal  dwFreq  As  Int32,   ByVal  dwDuration  As  Int32)  As   Long

     Private   Sub  Form1_Load( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Load
         Dim  i()  As   Integer   =  { 392 ,  392 ,  440 ,  392 ,  523 ,  494 ,  392 ,  392 ,  440 ,  392 ,  587 ,  523 ,  392 ,  392 ,  784 ,  659 ,  523 ,  494 ,  440 ,  698 ,  698 ,  659 ,  523 ,  587 ,  523 }
         Dim  j()  As   Integer   =  { 375 ,  125 ,  500 ,  500 ,  500 ,  1000 ,  375 ,  125 ,  500 ,  500 ,  500 ,  1000 ,  375 ,  125 ,  500 ,  500 ,  500 ,  500 ,  1000 ,  375 ,  125 ,  500 ,  500 ,  500 ,  1000 }
         Dim  ak  As   Integer
         For  ak  =   0   To  i.Length  -   1
             Beep (i(ak), j(ak))
         Next
     End Sub