Navigateur internet

0/5 (7 avis)

Snippet vu 4 750 fois - Téléchargée 26 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
21 sept. 2005 à 13:58
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
22 mai 2005 à 19:30
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
25 sept. 2004 à 18:58
ripé...
NaNo45 Messages postés 81 Date d'inscription mercredi 2 juillet 2003 Statut Membre Dernière intervention 29 juin 2004
8 janv. 2004 à 15:24
/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
24 août 2003 à 16:16
comment on le lance ?
Afficher les 7 commentaires

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.