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)
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.