AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Navigateur Internet

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Navigateur Internet   2006-11-27, 18:26

Voici un navigateur internet très très...
Bon d'accord c'était juste pour essayer la libraire IE mais bon je laisse libre cours à votre imagination ! En attendant ça peut peut-être donner des idées à certains.

[code]
#include
#include
#Include
Opt("GUIOnEventMode", 1)
GUICreate("Navigateur Perso",800,600,0,0,$WS_OVERLAPPEDWINDOW)
$lblAdresse = GUICtrlCreateLabel(" Adresse : ",0,8)
$txtAdresse = GUICtrlCreateInput("",60,5,700)
$cmdGo = GUICtrlCreateButton(" Go ! ",760,5,40,22)
GUICtrlSetOnEvent($cmdGo,"go")
$lblHistorique = GUICtrlCreateLabel(" Historique : ",0,34)
$listeHistorique = GUICtrlCreateCombo("",60,30,700)
$cmdGo2 = GUICtrlCreateButton(" Go ! ",760,30,40,22)
GUICtrlSetOnEvent($cmdGo2,"go2")
$gauche = 50
$cmdPrecedent = GUICtrlCreateButton(" <---- ",60,55,70,22)
GUICtrlSetOnEvent($cmdPrecedent,"precedent")
$cmdSuivant = GUICtrlCreateButton(" ----> ",130,55,70,22)
GUICtrlSetOnEvent($cmdSuivant,"suivant")
$cmdArreter = GUICtrlCreateButton(" Arrêter ",200,55,70,22)
GUICtrlSetOnEvent($cmdArreter,"arreter")
$cmdAcutaliser = GUICtrlCreateButton(" Acutaliser ",270,55,70,22)
GUICtrlSetOnEvent($cmdAcutaliser,"actualiser")
$cmdDemarrage = GUICtrlCreateButton(" Démarrage ",340,55,70,22)
GUICtrlSetOnEvent($cmdDemarrage,"demarrage")
$cmdRechercher = GUICtrlCreateButton(" Rechercher ",410,55,70,22)
GUICtrlSetOnEvent($cmdRechercher,"rechercher")
$cmdEnregistrer = GUICtrlCreateButton(" Enregistrer ",480,55,70,22)
GUICtrlSetOnEvent($cmdEnregistrer,"enregistrer")
$cmdImprimer = GUICtrlCreateButton(" Imprimer ",550,55,70,22)
GUICtrlSetOnEvent($cmdImprimer,"imprimer")
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,0,82,800,540)
$ancien = ""
$go = 1
_IEAction($ie,"home")
HotKeySet("{esc}","arreter")
GUISetOnEvent($GUI_EVENT_CLOSE,"quitter")
GUISetState()
While 1
If ControlGetFocus("Navigateur Perso") = "Edit1" Then
HotKeySet("{enter}","go")
Else
If ControlGetFocus("Navigateur Perso") = "Edit2" Then
HotKeySet("{enter}","go2")
Else
HotKeySet("{enter}")
EndIf
EndIf
Sleep(10)
GUICtrlSetResizing($ieobject,$GUI_DOCKAUTO+$GUI_DOCKBOTTOM+$GUI_DOCKTOP)
GUICtrlSetResizing($lblAdresse,$GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKSIZE)
GUICtrlSetResizing($txtAdresse,$GUI_DOCKRIGHT+$GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKHEIGHT)
GUICtrlSetResizing($cmdGo,$GUI_DOCKRIGHT+$GUI_DOCKSIZE+$GUI_DOCKTOP)
GUICtrlSetResizing($lblHistorique,$GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKSIZE)
GUICtrlSetResizing($listeHistorique,$GUI_DOCKRIGHT+$GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKHEIGHT)
GUICtrlSetResizing($cmdGo2,$GUI_DOCKRIGHT+$GUI_DOCKSIZE+$GUI_DOCKTOP)
GUICtrlSetResizing($cmdPrecedent,$GUI_DOCKALL)
GUICtrlSetResizing($cmdSuivant,$GUI_DOCKALL)
GUICtrlSetResizing($cmdArreter,$GUI_DOCKALL)
GUICtrlSetResizing($cmdAcutaliser,$GUI_DOCKALL)
GUICtrlSetResizing($cmdDemarrage,$GUI_DOCKALL)
GUICtrlSetResizing($cmdRechercher,$GUI_DOCKALL)
GUICtrlSetResizing($cmdEnregistrer,$GUI_DOCKALL)
GUICtrlSetResizing($cmdImprimer,$GUI_DOCKALL)
$nouveau = _IEPropertyGet($ie,"locationurl")
If $ancien <> $nouveau Then
GUICtrlSetData($txtAdresse,$nouveau)
GUICtrlSetData($listeHistorique,_Now()&" => "&$nouveau,_Now()&" => "&$nouveau)
$ancien = $nouveau
$go = 0
EndIf
WEnd
Func go()
_IENavigate($ie,GUICtrlRead($txtAdresse),0)
EndFunc
Func go2()
_IENavigate($ie,StringMid(GUICtrlRead($listeHistorique),24),0)
EndFunc
Func precedent()
_IEAction($ie,"back")
If @error Then
MsgBox(0,"","")
EndIf
EndFunc
Func suivant()
_IEAction($ie,"forward")
EndFunc
Func arreter()
_IEAction($ie,"stop")
EndFunc
Func actualiser()
_IEAction($ie,"refresh")
EndFunc
Func demarrage()
_IEAction($ie,"home")
EndFunc
Func rechercher()
_IENavigate($ie,"[url=http://www.google.fr",0]http://www.google.fr",0[/url])
EndFunc
Func enregistrer()
_IEAction($ie,"saveas")
EndFunc
Func imprimer()
_IEAction($ie,"print")
EndFunc
Func quitter()
Exit
EndFunc
[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: Navigateur Internet   2006-11-27, 18:27

les includes à mettre sont :

#include <GUIconstants.au3>
#include <IE.au3>
#Include <date.au3>
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: Navigateur Internet   2006-11-27, 18:32

Une deuxième erreur a été générée lors de l'envoie du message avec le script.
La fonction >> Rechercher() << est la suivante :

Func rechercher()
_IENavigate($ie,"http://www.google.fr",0)
EndFunc
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: Navigateur Internet   2006-11-28, 21:33

J'aime bien la tête de ton navigateur, on pourrait lui donner un graphique plus sympa, pr. ex. une image en fond .
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: Navigateur Internet   2006-11-30, 12:29

Oui il est vrai que niveau graphique ce n'est pas génial mais ça n'était pas mon but premier, c'était essentiellement pour utiliser les petites fonctions IE. Après niveau graphisme il ne sera pas facile de l'améliorer car autoit ne donne pas accès à beaucoup d'options permettant de rendre les interfaces plus esthétiques. Pour l'image de fond c'est une idée, mais le problème est que les labels ne peuvent pas être transparent (du moins à ma connaissance) donc ça fera comme un rectangle gris par dessus l'image de fond, donc pas très joli tout ça. A moins que l'on affecte la même couleur que les pixels situés en-dessous du label. Reste encore un souci si on opte pour cette méthode car si sous le label il a différentes couleurs (par exemple un dégradé de couleurs), on ne pourra pas affecter au label plusieurs couleurs donc on verra toujours se fameux rectangle par dessus notre image de fond. C'est pareil il est domage qu'on ne puisse pas affecter des images sur les boutons, ça aurait été plus sympa...!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: Navigateur Internet   2006-11-30, 17:26

Bon en fait après avoir cherché de façon un peu plus approfondie nous avons bien la possibilité de rendre le background d'un label transparent
voici la fonction qui le permet : GUICtrlSetBkColor($nomDuControl,$GUI_BKCOLOR_TRANSPARENT)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Navigateur Internet   Aujourd'hui à 22:41

Revenir en haut Aller en bas
 
Navigateur Internet
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» virus de navigateur internet
» Sondage : Quel navigateur internet utilisez-vous ?
» Onglet du navigateur, internet
» J'aimerais savoir comment changer le nom du forum qui apparait dans l'onglet du navigateur internet...
» navigateur internet

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: