webcam en live

venom · Message par **venom** » dim. 21/sept./2008 16:50

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

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

@++

Backup · Message par **Backup** » dim. 21/sept./2008 17:48

excelent

je vois ton rubick cube

Backup · Message par **Backup** » dim. 21/sept./2008 18:24

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

jbernard13 · Message par **jbernard13** » dim. 21/sept./2008 18:45

je vois la guitare à michel

KarLKoX · Message par **KarLKoX** » dim. 21/sept./2008 20:44

Venom>sympas

(je suis la 13ème personne

)