Soyez le premier à donner votre avis sur cette source.
Vue 4 964 fois - Téléchargée 681 fois
'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
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
Franchement j'avais essayé de faire pareil sur cette super radio ... j'avais finalement fait en PHP :)
Bravo man !
Et vive FUN !
merci cosmic
au faite j'ai decidé de faire les deux (sky ET nrj :)
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...
mé t'oré pas otre choz ke funradio ? :)
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.