Page 1 sur 1

webcam en live

Publié : dim. 21/sept./2008 16:50
par venom
bonjour,

voila aujourd'hui j'ai découvert un site ou il diffuse votre webcam sur une page web sans rien installer c'est marrant j'ai donc intégrer la page web dans une fenêtre de purebasic et voici ce que sa donne bon sa sert a rien mais je le met quand meme :D

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Web_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 500, 410, "My Venom Cam",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      WebGadget(#Web_0, 0, -155, 515, 580, "http://venomworld.blog-video.tv/")
      
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow



@++

Publié : dim. 21/sept./2008 17:48
par Backup
excelent :lol:

je vois ton rubick cube

Publié : dim. 21/sept./2008 18:24
par Backup
voici la mienne (restera pas longtemps)


;- Window Constants
Enumeration
       #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
       #Web_0
EndEnumeration

If openwindow ( #Window_0 , 0, 0, 500, 410, "My Dobro Cam" , #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
       If creategadgetlist ( windowid ( #Window_0 ))
             webgadget ( #Web_0 , 0, -155, 515, 580, "http://dobro-tv.blog-video.tv" )
       EndIf
EndIf

Repeat
      EventID = waitwindowevent ()
       If EventID = #PB_Event_Gadget
             Select eventgadget ()
             EndSelect
       EndIf
Until EventID = #PB_Event_CloseWindow


Publié : dim. 21/sept./2008 18:45
par jbernard13
je vois la guitare à michel

Publié : dim. 21/sept./2008 20:44
par KarLKoX
Venom>sympas :) (je suis la 13ème personne ;) )