Bonjour à tous,
Je viens de découvrir Autoit. Un logiciel assez simple d’accès pour un non développeur qui permet d’automatiser des tâches.
Je me suis donc lancé à faire un 'tit script style “gestionnaire de téléchargement linux” dont le contenu est fournit en spoiler
Pour ceux qui voudront tester il est prévu pour ie8 dans son mode de recherche de mot à l’intérieur des pages (la version 7 j’ai pas pu tester)
et il faut avoir wget.exe dans son system32
[spoiler]
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
$bloop = 1
While $bloop = 1
$logiciel = InputBox("Téléchargement clubic", "Tapez le nom du logiciel à télécharger")
If @error = 1 Then
$bloop = 0
Exit
ElseIf $logiciel = "" then
MsgBox(0, "Téléchargement Clubic", "Le nom du logiciel ne peut être vide")
ElseIf @error = 0 Then
$bloop = 0
AutoItSetOption("WinTitleMatchMode", 2)
Run("c:\Program Files\Internet Explorer\IEXPLORE.EXE google.fr")
WinWait("Internet Explorer", "Terminé", 15)
Send("clubic telecharger "& $logiciel)
send("{TAB 2}{ENTER}")
WinActivate("Internet Explorer")
WinWaitActive("Internet Explorer", "Terminé", 15)
send("^f")
WinWait("", "Rechercher :")
send("Taille")
If WinExists("", "Aucun résultat trouvé ou attente de la demande dépassée") then
BlockInput(0)
Send("{ESC}{ESC}")
MsgBox(0,"Telechargement Clubic",& $logiciel " non trouvé")
WinClose("Internet Explorer")
Exit
EndIf
WinWaitActive("Internet Explorer")
send("{ESC}{TAB}{ENTER}")
WinWaitActive("Internet Explorer", "Terminé", 15)
send("^f")
WinWait("", "Rechercher :")
send("Lancer")
If WinExists("", "Aucun résultat trouvé ou attente de la demande dépassée") then
BlockInput(0)
Send("{ESC}{ESC}")
MsgBox(0,"Telechargement Clubic",& $logiciel " non trouvé")
WinClose("Internet Explorer")
Exit
EndIf
WinWaitActive("Internet Explorer")
send("{ESC}{APPSKEY}a")
WinWait("null","",1)
send("a")
WinWait("null","",1)
$url = StringRegExpReplace(""& ClipGet(), ".*@", "")
WinClose("Internet Explorer")
send("#r")
WinWaitActive("Exécuter")
send("wget "& $url)
send("{ENTER}")
EndIf
WEnd
[/spoiler]
cependant ce script a un fonctionnement pour le moins aléatoire. Il fonctionne bien la plupart des fois et d’autres il “bug”
Par exemple des fois il va mal restituer l’url de download sur clubic et du coup wget à la fin du script n’arrive pas à télécharger le programme
ou alors il va parfois lancer les recherches de mots clés avant le temps prévu
Je n’y connais rien en progra et je ne sais pas si c’est lié à des défauts inhérents à autoit ou bien si c’est mon code qui est mal fichu, mal optimisé ou je ne sais quoi. Donc si l’un de vous veut voir ça à l’occasion et m’indiquer les défauts de mon code
PS: Pour lancer le script il faut au préalable installer autoit sur son PC. Je ne fournit pas l’exécutable de mon script pour éviter les suspicions
Merci d’avance
Edité le 22/06/2009 à 20:40