PureBasic

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 !

@+

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

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

petite modification :

Code : Tout sélectionner

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

sinon le texte du bouton apparait pas complet .

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

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

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

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.

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

@++

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

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)

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

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

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 !

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

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!

PureBasic

[CODE] Navigateur internet

[CODE] Navigateur internet