Bonjour,
Mon programme affiche une page web qui contient des liens qui s'ouvre dans de nouveaux onglets ou fenetres, et du coup ca lance Internet Explorer.
Comment récupéré dans une variable l'url de la fenêtre qui tente de s'ouvrir et l'empêcher de s'ouvrir ?
Merci
[..] IE.au3 Comment détecter l'ouverture d'un onglet/fenêtre
Aide et conseils concernant AutoIt et ses outils.
Règles du forum
- Merci de consulter la section "Règles du forum" et plus particulièrement "Règles et Mentions Légales du site autoitscript.fr" avant d'écrire un message.
- yagonfstm91
- Niveau 4
- Messages : 66
- Enregistré le : dim. 07 août 2011 14:26
- Status : Hors ligne
- yagonfstm91
- Niveau 4
- Messages : 66
- Enregistré le : dim. 07 août 2011 14:26
- Status : Hors ligne
Re: [..] IE.au3 Comment détecter l'ouverture d'un onglet/fen
Message par yagonfstm91 »
Personne n'a une petite idée ?
Voici mon code si sa peut vous aider :
Voici mon code si sa peut vous aider :
► Afficher le texte
Code : Tout sélectionner
#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")
$ver = "beta 1" ;version
$cacher = "0" ;variable si fenetre cacher ou non
;~ 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
$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)
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", "BACK pour précedent, F2 pour cacher, 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 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
Mon site web : http://YagoServer.net/
Retourner vers « Aide Générale »
Aller à
- Général
- ↳ Règles du Forum
- ↳ Les Nouvelles d'AutoIt
- ↳ Mises à Jour AutoIt V3
- ↳ Mises à Jour Scite4AutoIt
- ↳ Mises à Jour Koda Form Designer
- ↳ Liens Divers
- ↳ Outils Divers
- ↳ Annonces et Nouveautés
- ↳ Anniversaires, fêtes & Co
- Autoit v3
- ↳ Aide Générale
- ↳ Interface Graphique Utilisateur (GUI)
- ↳ Exemples de Scripts
- ↳ Fonctions et UDF
- Documentations
- ↳ Traduction des Documentations
- ↳ Tutoriels
- ↳ Traduction des éléments du dossier /txtlibfunctions/