Funplayer (streaming audio + téléchargement, affichage et actualisation venant du net)

Télécharger le projet
Commenter

Description

voila c'est un petit programme qui voit permez d'ecouter funradio sans aller sur le site et de voir les WebCam
le mieux c'est de l'essayer :)

Source / Exemple : 


'frmMain
Private Sub cmdQuitter_Click()
    Unload frmMain
    Unload frmWebCam
End Sub

Private Sub cmdShowWebCam_Click()
    frmWebCam.Show
End Sub

'frmWebCam
Option Explicit
Private b_Bytes() As Byte

Private Sub Form_Load()
    Dim sURL1 As String
    Dim CamURL As String
    Dim sFichier1 As String
    Dim iFichier1Nb As Integer
    
    CamURL = "http://www.funradio.fr/upload/camerafun/"
    sURL1 = CamURL & "camera11.jpg"
    sFichier1 = App.Path & "\cam1.jpg"
    With Inet
        .AccessType = icUseDefault
        .Protocol = icHTTP
        b_Bytes = .OpenURL(sURL1, icByteArray)
        Do Until .StillExecuting = False
            DoEvents
        Loop
    End With
    
    iFichier1Nb = FreeFile
    
    Open sFichier1 For Binary Access Write As iFichier1Nb
        Put #iFichier1Nb, , b_Bytes()
    Close iFichier1Nb
    
       imgCam1.Picture = LoadPicture(sFichier1)
       
    Dim sURL2 As String
    Dim sFichier2 As String
    Dim iFichier2Nb As Integer
    
    sURL2 = CamURL & "camera13.jpg"
    sFichier2 = App.Path & "\cam2.jpg"
    With Inet
        .AccessType = icUseDefault
        .Protocol = icHTTP
        b_Bytes = .OpenURL(sURL2, icByteArray)
        Do Until .StillExecuting = False
            DoEvents
        Loop
    End With
    
    iFichier2Nb = FreeFile
    
    Open sFichier2 For Binary Access Write As iFichier2Nb
        Put #iFichier2Nb, , b_Bytes()
    Close iFichier2Nb
    
       imgCam2.Picture = LoadPicture(sFichier2)
End Sub

Private Sub Timer1_Timer()
Dim sURL1 As String
    Dim CamURL As String
    Dim sFichier1 As String
    Dim iFichier1Nb As Integer
    
    CamURL = "http://www.funradio.fr/upload/camerafun/"
    sURL1 = CamURL & "camera11.jpg"
    sFichier1 = App.Path & "\cam1.jpg"
    With Inet
        .AccessType = icUseDefault
        .Protocol = icHTTP
        b_Bytes = .OpenURL(sURL1, icByteArray)
        Do Until .StillExecuting = False
            DoEvents
        Loop
    End With
    
    iFichier1Nb = FreeFile
    
    Open sFichier1 For Binary Access Write As iFichier1Nb
        Put #iFichier1Nb, , b_Bytes()
    Close iFichier1Nb
    
       imgCam1.Picture = LoadPicture(sFichier1)
       
    Dim sURL2 As String
    Dim sFichier2 As String
    Dim iFichier2Nb As Integer
    
    sURL2 = CamURL & "camera13.jpg"
    sFichier2 = App.Path & "\cam2.jpg"
    With Inet
        .AccessType = icUseDefault
        .Protocol = icHTTP
        b_Bytes = .OpenURL(sURL2, icByteArray)
        Do Until .StillExecuting = False
            DoEvents
        Loop
    End With
    
    iFichier2Nb = FreeFile
    
    Open sFichier2 For Binary Access Write As iFichier2Nb
        Put #iFichier2Nb, , b_Bytes()
    Close iFichier2Nb
    
       imgCam2.Picture = LoadPicture(sFichier2)
End Sub

Conclusion :


voila j'ai utiliser certain script deja existant sur ce site pour monter mon propre programme donc je remercie tout les ceux ki m'ont aider sur le forum et ceux ki reconnaitrons un bout de leur code

je sais que ce n'est pas grand chose mais c'est mon premier programme donc je le met ici
ca pourra peut etre aider quelqu'un

si je peux améliorer le programme dites le moi (j'ai deja kelke idées mais vous en avez surement aussi)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.