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

Soyez le premier à donner votre avis sur cette source.

Vue 4 906 fois - Téléchargée 678 fois

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)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
50
Date d'inscription
mardi 17 septembre 2002
Statut
Membre
Dernière intervention
25 avril 2005

lol ouais vive funradio
euh pour la version de sky et nrj je la met pas sur le site ca sert à rien
elles seronts sur mon site http://www.titou-be.net
Messages postés
245
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
21 juin 2004

Super !
Franchement j'avais essayé de faire pareil sur cette super radio ... j'avais finalement fait en PHP :)
Bravo man !
Et vive FUN !
Messages postés
50
Date d'inscription
mardi 17 septembre 2002
Statut
Membre
Dernière intervention
25 avril 2005

a oui j'ai renomé les form pour ke ca soit plus lisible et j'ai pas modif le code
merci cosmic
au faite j'ai decidé de faire les deux (sky ET nrj :)
Messages postés
61
Date d'inscription
mercredi 30 octobre 2002
Statut
Membre
Dernière intervention
16 mai 2005

Salut.
Je vois bien les webcams mais pas de son comme tu le dit plus haut.
Et voici une petite modife a ton prog, rien de bien méchant
c'est pour fermé ton prog

Private Sub cmdQuitter_Click()
Unload frmMain 'et non pas Unload form1
Unload frmWebCam 'et non pas Unload form2
End Sub

@c'est good...
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

prk pas !

mé t'oré pas otre choz ke funradio ? :)
Afficher les 7 commentaires

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.