Navigateur internet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 529 fois - Téléchargée 25 fois

Contenu du snippet

Bon voici une base de navigateur internet...relativement simple vous pouvez l'ameliorer il faudra l'adapter un peu pour votre script mais c'est relativement simple à faire pis rajouter une dll la nHTML

Source / Exemple :


}

alias majchanz { return }
alias nhtmln return systeme\nhtmln_2.9.dll
dialog navig {
  size -1 -1 800 600
  title "Naviguateur Internet XerBo"
  icon $mircdirSysteme\Graphiques\browser.ico, 0
  box "naviguateur" ,1, 10 50 780 540
  button "Fermer" ,2, 9999 99999 9999 9999,ok
  menu "Fichier"
  item "Retour" ,4,
  item "Suivant" ,5,
  item "Stop" ,6,
  item "Quitter" ,3,
  edit %u-wpd ,8, 10 30 740 20
  button "OK" ,9, 750 30 40 20,default
  button "<PRECEDENTE" ,10, 10 5 80 25,flat
  button "SUIVANTE>" ,12, 90 5 80 25,flat
  button "STOP" ,13, 170 5 80 25,flat
  button "DEMARRAGE" ,16, 250 5 80 25,flat
  menu Options ,14,
  item "Page d'accueil" ,15, 
}
alias nav {
  d navig
  if ( $1 != $null ) {
    did -ra navig 8 $1
    .timer 1 0 dll $nHTMLn navigate $1
  }
}
ON 1:dialog:navig:sclick:2:{ return }
ON 1:dialog:navig:sclick:9:{ dll $nHTMLn navigate $did(8) }
ON 1:dialog:navig:menu:3:{ dx navig }
ON 1:dialog:navig:menu:4:{ dll $nHTMLn back 0 }
ON 1:dialog:navig:menu:5:{ dll $nHTMLn forward 0 }
ON 1:dialog:navig:menu:6:{ dll $nHTMLn stop 0 }
ON 1:dialog:navig:sclick:10:{ dll $nHTMLn back 0 }
ON 1:dialog:navig:sclick:12:{ dll $nHTMLn forward 0 }
ON 1:dialog:navig:sclick:13:{ dll $nHTMLn stop 0 }
ON 1:dialog:navig:menu:15:{ %u-wpd = $?="Quel sera la page d'accueil ? ( Format : http://www.lesite.com ) " }
ON 1:dialog:navig:sclick:16:{ dll $nHTMLn navigate %u-wpd | did -ra navig 8 %u-wpd  }

ON 1:dialog:navig:init:*:{
  mark $dname
  edge 9
  var %hwnd = $dll($nHTMLn,find,naviguateur)
  var %v = $dll($nHTMLn,attach,%hwnd)
  var %h = $dll($nHTMLn,navigate,%u-wpd)
  var %i = $dll($nHTMLn,handler,nh)
  .timerbrowser -m 0 1 bro
}
alias bro { if (!$dialog(navig)) .timerbrowser off | else var %i = $dll($nHTMLn,handler,nh) }

A voir également

Ajouter un commentaire

Commentaires

IceTempest
Messages postés
19
Date d'inscription
dimanche 12 juin 2005
Statut
Membre
Dernière intervention
23 novembre 2006
-
Regroupe tes envents comme tes sclick et menu ...
Ton alias majchanz { return } ne sert a rien ...

Bonne continuation
snickers71
Messages postés
3
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
1 décembre 2005
-
Bon code en general mais je me suis permi d'agrandir un peu la box et davoir ajouter le moteur de recherche google dans le dialog, j'espere que sa ne te gene pas.


snickers
cs_samsungman
Messages postés
20
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
28 janvier 2005
-
ripé...
NaNo45
Messages postés
81
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
29 juin 2004
-
/dialog -m navig navig
cs_vlad64
Messages postés
1
Date d'inscription
dimanche 24 août 2003
Statut
Membre
Dernière intervention
24 août 2003
-
comment on le lance ?

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.