[EX] Logiciel pour lancer des recherche sous IE

[wingedangel]

Voila un petit logiciel que j'ai fiat plus pour m'entrainer qu'autre chose.
Il y a plusieur façon d'avoir se résultat mais j'ai choisis cette méthode qui n'est peu etre pas la plus simple mais ça marche.

Pour fonctionner il faut :
- Que IE soit rangé dan "C:\Program Files\Internet Explorer\iexplore.exe"
- être en mode 1280 par 800

Voila le script :

Code : Tout sélectionner

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

 AutoIt Version: 3.2.12.1
 Author:        Winged Angel

 Script Function:
    Template AutoIt script.

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

; Script Start - Add your code below here

$recherche = inputbox("Recherche", "Que voulez vous chercher ? (Ne pas remplir pour une connection direct à un site)")
$navigateur = inputbox("Recherche", "sur quel moteur de recherche ? http://www.google.fr, http://www.free.fr ou http://www.msn.fr sans majuscule (Ou nom du site que vous voulez ouvrir)") 
If $recherche = $recherche Then
if $navigateur = ($navigateur) then
msgbox( 1, "Information","Vôtre ordinateur doit être en 1280 par 800")
msgbox( 1, "Information","Veillez à se que Internet explorer soit ranger dans : c:\program files\Internet Explorer\iexplore.exe et qu'il se lance en pleine ecran !")
RunWait("c:\program files\Internet Explorer\iexplore.exe")
winwaitactive("","Contrôle de recherche")
sleep( 1500)
mousemove(200,36,2)
mouseclick("left")
sleep(1500)
send($navigateur)
send("{enter}")
if $navigateur = ("www.google.fr") then
winwaitactive("Google - Windows Internet Explorer","www.google.fr")
sleep( 1500)
mousemove(701, 303,2)
mouseclick("left")
sleep( 1500)
send($recherche)
send("{enter}")
EndIf
if $navigateur = ("www.free.fr") Then
sleep( 1500)
mousemove(180,250,2)
mouseclick("left")
winwaitactive("Portail Free - Windows Internet Explorer","www.free.fr")
mousemove(450, 172,2)
mouseclick("left")
sleep( 1500)
send($recherche)
send("{enter}")
Endif
if $navigateur = ("www.msn.fr") Then
sleep( 1500)
mousemove(290,260)
winwaitactive("MSN : Hotmail, Messenger, Actualité, Sport et Vidéo - Windows Internet Explorer", "http://fr.msn.com/")
sleep( 1500)
mousemove(460,185)
mouseclick("left")
sleep( 1500)
send($recherche)
send("{enter}")
endif
endif
endif

Merci de me dire se que vous en pensez.

[jbnh]

l'idée est bonne a la base, mais les mousemove et les mouseclick dépendent de la résolution de l'écran. Je te conseille donc d'utiliser l'udf ie.au3 qui te permettra d'utiliser internet explorer sans aucune manipulation liée a la souris ou autres.

Je rappelle aussi qu'une barre de recherche a été faite ici: http://www.autoitscript.fr/forum/viewto ... f=6&t=1314