[CODE] Navigateur internet

#PB_IS_COOL · Message par **#PB_IS_COOL** » jeu. 17/mai/2007 16:13

Bonjour !
Je ne vais pas poser de question ici mais plutôt une réponse.

Cette réponse: Comment créer un navigateur web ?
La voici:

#bouton = 2
#web = 0
#String = 1
url$ = "www.google.fr"
OpenWindow(1,0,0,1015,760,"TITLE'",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)

;gadgets
CreateGadgetList(WindowID(1))
WebGadget(#web,0,40,1009,700,url$)
StringGadget(#String,200,0,200,30,"")
ButtonGadget(#bouton,400,0,100,30,"TEXTE DU BOUTON")

;boucle
Repeat 
  event = WaitWindowEvent()
  If event = #PB_Event_Gadget
    event = EventGadget()
    Select event 
      Case #bouton
        url$ = GetGadgetText(#String)
        WebGadget(#web,0,40,1009,700,url$)
    EndSelect
  EndIf
Until event = #PB_Event_CloseWindow 
End

Voila

J'espere que ce code aidera les débutants qui veulent faire un navigateur.

PS: personnalisez ce code en remplaçant TITLE et TEXTE DU BOUTON.
Et Pour ceux qui connaissent, allez y, modifiez !

@+

Thierryfr · Message par **Thierryfr** » lun. 28/mai/2007 17:19

il ya un message d'erreur à la ligne suivante:
#String = 1

Ar-S · Message par **Ar-S** » ven. 08/juin/2007 0:03

Voilà les modifs pour qu'il marche

Code : Tout sélectionner

Enumeration

#bouton = 2
#web = 0
#toto

EndEnumeration

url$ = "www.google.fr"
OpenWindow(1,0,0,1015,760,"TITLE'",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget)

;gadgets
CreateGadgetList(WindowID(1))
WebGadget(#web,0,40,1009,700,url$)
StringGadget(#toto,200,0,200,30,"")
ButtonGadget(#bouton,400,0,100,30,"TEXTE DU BOUTON")

;boucle
Repeat
  event = WaitWindowEvent()
  If event = #PB_Event_Gadget
    event = EventGadget()
    Select event
      Case #bouton
        url$ = GetGadgetText(#String)
        WebGadget(#web,0,40,1009,700,url$)
    EndSelect
  EndIf
Until event = #PB_Event_CloseWindow
End

Thierryfr · Message par **Thierryfr** » ven. 08/juin/2007 17:29

petite modification :

Code : Tout sélectionner

ButtonGadget(#bouton,420,0,160,30,"TEXTE DU BOUTON")

sinon le texte du bouton apparait pas complet .

lionel_om · Message par **lionel_om** » ven. 08/juin/2007 18:05

Thierryfr a écrit :il ya un message d'erreur à la ligne suivante:
#String = 1

#String ainsi que #Byte, #Word ... sont des constantes de PB

Ar-S · Message par **Ar-S** » ven. 08/juin/2007 20:09

C'est pour cela que j'ai remplacé string par toto

DoctorA · Message par **DoctorA** » lun. 27/août/2007 21:06

J'ai testé le script , voilà ce que ça donne :

http://www.enregistrersous.com/images/1 ... 223430.jpg

Sa me met une erreur mais sa ne precise pas laquelle.

venom · Message par **venom** » lun. 27/août/2007 21:18

j'en avais commencer un une fois mais il est de coté la si sa peut aussi aidé

telecharger

ps: ton erreur vien de la version demo surement

@++

Backup · Message par **Backup** » lun. 27/août/2007 21:21

DoctorA a écrit :J'ai testé le script ,

c'est pas un script !! c'est un prg !

voici une version qui marche

Enumeration
     #bouton
     #web
     #toto
     #fenetre
EndEnumeration

url$ = "www.google.fr" ; <--------- URL par defaut
OpenWindow ( #fenetre ,0,0,1015,760, "navigateur web'" , #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget )

;gadgets
CreateGadgetList ( WindowID ( #fenetre ))
WebGadget ( #web ,0,40,1009,700,url$)
StringGadget ( #toto ,200,0,200,30, "http://michel.dobro.free.fr/" )
ButtonGadget ( #bouton ,420,0,160,30, "<---go to URL" )

;boucle
Repeat
    Event = WaitWindowEvent ()
     If Event = #PB_Event_Gadget
        Event = EventGadget ()
         Select Event
             Case #bouton
                url$ = GetGadgetText ( #toto )
                 WebGadget ( #web ,0,40,1009,700,url$)
         EndSelect
     EndIf
Until Event = #PB_Event_CloseWindow
End

Backup · Message par **Backup** » lun. 27/août/2007 21:24

Ar-S a écrit :C'est pour cela que j'ai remplacé string par toto

oui mais tu en as oublié un !!

Code : Tout sélectionner

url$ = GetGadgetText(#String)

DoctorA · Message par **DoctorA** » lun. 27/août/2007 21:26

Chaud , va falloir que j'achéte la license , mais je suis mineur.
Donc mes tuteurs ne voudrons pas

L'aventure du pur basic va s'arrêté la pour moi...

DoctorA · Message par **DoctorA** » mar. 28/août/2007 10:44

Donc en faite , si j'ai bien compris y'a pas d'autre moyen de l'obtenir a par la payé ?

Backup · Message par **Backup** » mar. 28/août/2007 11:18

DoctorA a écrit :Donc en faite , si j'ai bien compris y'a pas d'autre moyen de l'obtenir a par la payé ?

ben y a pas de pirate ici en principe !

DoctorA · Message par **DoctorA** » mar. 28/août/2007 11:23

Je respecte le travail des devellopeur. je préfere encore payé que pirater

edit : J'ai pas parlé de pirater , mais quelqun de gentil aurais plus me l'a passé mais j'en doute

Chris · Message par **Chris** » mar. 28/août/2007 11:25

DoctorA a écrit :Donc en faite , si j'ai bien compris y'a pas d'autre moyen de l'obtenir a par la payé ?

Tu veux pas qu'on se cotise pour te le payer, non plus!

Va voir chez Micro$oft. Si tu te débrouilles bien, ils te fileront peut-être un VB gratos!