Navigateur internet

Commenter

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

S'inscrire maintenant

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.

Du même auteur (XerBo)