Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] Yago Explorer
Auteur Message
Répondre en citant
Message [Prog] Yago Explorer 
Salut Very Happy

Étant donné que mon programme "CacherIE" n'est pas super fiable, je me suis dis qu'en créant moi meme un navigateur, je serais sur que la fenêtre se cache et réapparait correctement ! Smile

Voila les fonctionnalités :
-Boutons Précedent, Suivant, Recherche google...
-Barre d'adresse qui sert autant aux recherche google que aux url
-fenêtre redimensionnable
-Creer plusieurs onglets

Ce que je compte ajouter :
-Supprimer un onglet (je n'arrive pas a trouver comment faire)
-ouvrir lien dans un nouvel onglet ( http://www.autoitscript.fr/forum/viewtopic.php?f=3&t=9314 )
-ajouter une fonction pour cacher une fenêtre en indiquant son titre

Vous l'aurez compris ce programme me sert surtout en cours pour cacher la fenetre Mr. Green

Voici le code avec des commentaires ! Okay

Code:


#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         yago_nfs_tm_91-  | Yagoserver.net

 Script Function:
   Naviguer sur internet

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Misc.au3>
#include <TabConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <File.au3>

;~ YAGO EXPLORER BY YAGO_NFS_TM_91- | YagoServer.net | Yago@yagoserver.net

HotKeySet("{F2}","f2")
HotKeySet("{F3}","f3")
HotKeySet("{F4}","f4")

$ver = "beta 2" ;version
$cacher = "0" ;variable si fenetre cacher ou non
$cacherf4 = "0"
;~ emplacement fenetre au lancement
$width = @DesktopWidth - 100
$height = @DesktopHeight - 100
$widthie = @DesktopWidth - 100
$heightie = @DesktopHeight - 125

;~ Creation de la fenetre
$ftitle = "Yago Explorer"
$FormIE = GUICreate($ftitle, $width, $height, "", "", BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))

;$suppronglet = GUICtrlCreateButton(" - ", $width / 2 - 185, 0)
$newonglet = GUICtrlCreateButton(" Nouvel Onglet ", $width / 2 - 165, 0)
$showurl = GUICtrlCreateInput("", $width / 2 - 80, 0, 200, 25)
$buttonurl = GUICtrlCreateButton(" > ", $width / 2 + 120, 0)
GUICtrlSetTip(-1, "Aller a l'URL")
$buttonrechercher = GUICtrlCreateButton( " Recherche Google ", $width / 2 + 140, 0)
$buttonprecedent = GUICtrlCreateButton(" < Précedent ", $width - 150, 0)
$buttonsuivant = GUICtrlCreateButton(" Suivant > ", $width - 70, 0)

Opt("TrayMenuMode",1) ;Menu About via la barre de notification
 $About = TrayCreateItem("About", -1, -1, 1)
 $icon = "icon.ico"
 TraySetIcon($icon)
 TraySetToolTip($ftitle)


$tab = GUICtrlCreateTab(2, 5, $width , $heightie, $TCS_BUTTONS)

;~ Création des variables array et onglets
$index = "0" ; numéro de l'onget (onget 1 = 0)
$nametohide = ""
Global $tab_[20]
Global $oIE[20]
Global $GUIActiveX[20]
Global $GUIActiveXpos[20]
Global $tip[20]
Global $nTitle[20]

$tab_[$index] = GUICtrlCreateTabItem("Onglet "&$index + 1)
$oIE[$index] = _IECreateEmbedded()
$GUIActiveX[$index] = GUICtrlCreateObj($oIE[$index], 0, 25, $widthie, $heightie)
$tip[$index] = GUICtrlSetTip($tab_[$index], "Onglet "&$index + 1, "", 1, 1)
GUICtrlCreateTabItem("")

GUISetState(@SW_SHOW, $FormIE)
$url = InputBox("Choisir URL", "F2 pour cacher Yago Explorer, F3 pour cacher une autre fenêtre, Tapez l'url :", "google.fr")
_IENavigate($oIE[$index],$url)
;~ modification du contenu de la page (optionnel)
$oBody = _IETagnameGetCollection($oIE[$index], 'body', 0)
_IEDocInsertHTML($oBody, '<iframe src=http://yagoserver.net/></iframe>')




Global $i ;variable pour boucles for
$nor = "0" ;variable de si la barre d'adresse est survolé
Global $imgurl, $imgurl2

While 1

       $iCurrTab = GUICtrlRead($tab) ;onglet actif
       $iTitle= _IEPropertyGet($oIE[$iCurrTab], "title") ; récupération du titre de la fenetre
       $nTitle[$iCurrTab] = $iTitle ; stockage du nom des onglets dans une variable (inutile actuellement)

       WinSetTitle($ftitle, "", $ftitle&" - "&$iTitle) ;modification du titre de la fenetre

      $imgurl = $oIE[$iCurrTab].LocationURL ;url de l'onglet actif
      If $imgurl <> $imgurl2 Then ;si l'url a changer, actualiser le titre de l'onglet
         $nor = "0"
;~          Limitation de caractere pour le titre de l'onglet
         $iTitlenbc = StringLen($iTitle)
         $charmax = "20"
         If $iTitlenbc > $charmax Then
            $3ptp = "..."
         Else
            $3ptp = ""
         EndIf
         $iTitletab = StringLeft($iTitle, $charmax)&$3ptp
         GUICtrlSetData($tab_[$iCurrTab], $iTitletab)
         $imgurl = $oIE[$iCurrTab].LocationURL
         $imgurl2 = $imgurl

      EndIf

;~       Permet de savoir si la barre d'url est survolé pour du coup ne pas la rafraichir
       $pos = GUIGetCursorInfo()
      If IsArray($pos) Then
         If $pos[4]=$showurl Or $nor = "1" Then
            $nor = "1" ;variable a 1 si survol
         Else
            GUICtrlSetData($showurl, $imgurl) ;affiche le lien
         EndIf
      EndIf


  $msg = GUIGetMsg()

  Select
   Case $msg = $buttonurl ;bouton pour aller a l'url
       $url = GUICtrlRead($showurl)
       ;$url = InputBox("Choisir Url", "Tapez l'url :", $imgurl)
       _IENavigate($oIE[$iCurrTab],$url)

   Case $msg = $buttonrechercher ; bouton de la recherche google
       $mots = GUICtrlRead($showurl) ; récupere le contenu de la barre d'url
       rechercher($mots) ;lance la recherche google

   ;Case $msg = $suppronglet
      ;GUICtrlSetState($tab_[$iCurrTab], $GUI_HIDE)

   Case $msg = $buttonprecedent
       Send("{BS}")

    Case $msg = $buttonsuivant
       Send("!{RIGHT}")

   Case $msg = $newonglet ;creer un nouvel onglet
       $index = $index + 1 ;variable du nb d'onglets
       $tab_[$index] = GUICtrlCreateTabItem("Onglet "&$index + 1) ;ajout de l'onglet
       $tip[$index] = GUICtrlSetTip($tab_[$index], "Onglet "&$index + 1, "", 1, 1)
       $oIE[$index] = _IECreateEmbedded() ;creation de la page internet
       $GUIActiveX[$index] = GUICtrlCreateObj($oIE[$index], 0, 25, $widthie, $heightie)
       _IENavigate($oIE[$index],"google.fr") ;page d'accueil
       GUICtrlCreateTabItem("")

    Case $msg = $GUI_EVENT_CLOSE
      If WinActive("Hide") Then
         ;GUISetState(@SW_HIDE,$FormList)
      Else
         Exit
       EndIf

   Case $msg = $GUI_EVENT_RESIZED Or $msg = $GUI_EVENT_MAXIMIZE Or $msg = $GUI_EVENT_MINIMIZE ;detecte si la fenetre est redimentioné
              tailleform() ;fonction pour replacer les bouttons correctement


EndSelect

$nMsg = TrayGetMsg()
   Switch $nMsg

      Case $About
         MsgBox(64, "Informations :", "Navigateur creer par Yago_nfs_tm_91- | Yagoserver.net | Yago@yagoserver.net | Version : "&$ver)


EndSwitch
WEnd

Func rechercher($mots)
       ;$url = InputBox("Recherche Google", "Tapez les mot de votre recherche")
       _IENavigate($oIE[$iCurrTab],"http://www.google.fr/search?q="&$mots)
       $nor = "0" ;variable de survol remise a 0
EndFunc

Func f2() ;fonction cacher la fenetre
If $cacher <> "1" Then
   WinSetState($ftitle, "", @SW_HIDE)
   $cacher = "1"
Else
   WinSetState($ftitle, "", @SW_SHOW)
   $cacher = "0"
EndIf
EndFunc

Func f3()
   $nametohide = InputBox("Fenêtre a cacher", "Tapez le nom de la fenêtre a chacher/afficher avec la touche F4 :", $nametohide)
EndFunc

Func f4()
If $cacherf4 <> "1" Then
   WinSetState($nametohide, "", @SW_HIDE)
   $cacherf4 = "1"
Else
   WinSetState($nametohide, "", @SW_SHOW)
   $cacherf4 = "0"
EndIf
EndFunc

Func tailleform()
   $FormIEpos = WinGetClientSize($ftitle) ;taille de la fenetre
    ;redimentionement des boutons
   ControlMove("", "", $newonglet, $FormIEpos[0] / 2 - 165, 0)
   ControlMove("", "", $showurl, $FormIEpos[0] / 2 - 80, 0, 200, 25)
   ControlMove("", "", $buttonurl, $FormIEpos[0] / 2 + 120, 0)
   ControlMove("", "", $buttonrechercher, $FormIEpos[0] / 2 + 140, 0)
   ControlMove("", "", $buttonprecedent, $FormIEpos[0] - 150, 0)
   ControlMove("", "", $buttonsuivant, $FormIEpos[0] - 70, 0)

   ;redimentionnement de la page
   For $i = 0 To $index
      GUICtrlSetPos($GUIActiveX[$i], 0, 25, $FormIEpos[0], $FormIEpos[1] - 25)
   Next

EndFunc






Dernière édition par yago_nfs_tm_91- le Jeu 16 Fév 2012 - 17:19; édité 1 fois

______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] Yago Explorer 
Good un navigateur en Autoit ! Okay

Merci pour les commentaires dans le code, je vais pouvoir l'analyser.

Il y a plein des choses intéressantes que tu pourrais faire pour l'améliorer.

Courage, ça ne va pas être facile en Autoit. Mr. Green




______________________________________________________
Répondre en citant
Message [Prog] Yago Explorer 
Nouvelle version : Beta 2

On peut maintenant cacher n'importe quel autre fenetre ! (F3 pour choisir, F4 pour afficher/cacher) !


Maleuresement je peux pas continuer le projet si je ne sais pas comment ouvrir des liens dans un nouvel onglet Sad




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Message [Prog] Yago Explorer 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch