je viens de faire évoluer mon petit logiciel qui affiche les infos "cachées" des livebox 3 et 4 d'Orange.
http://liveboxinfo.tk/
Dans les version 1.x j'étais en full Autoit, maintenant afin d'améliorer l'aspect visuel je suis passé en html5/css3 avec Bootstrap/jquery pour l'interface, et autoit pour la programmation. je me suis inspiré de ce script pour déterminer qu'on a appuyé sur un bouton de l'interface web (changement de couleur du bouton = on a appuyé dessus).
J'ai posté mon appli sur le forum orange : http://www.forum-orange.com/viewtopic.p ... 29#p763429
mais visiblement cela ne marche pas pour tout le monde...et je ne comprends pas de quoi cela vient. Chez moi sur 2 PC, avec windows 10 ca marche très bien...On me dit "lorqsue je clique il ne se passe rien". Normalement, une mauvaise IP, un mauvais mot de passe, etc...génère un message d'erreur. Et là ce n'est pas le cas...donc j'imagine que le problème vient de la détection du clic sur le bouton ?
En fait il y a 2 paramètres, la couleur du bouton, et sa position dans l'interface. mais logiquement les 2 doivent être identiques pour tout le monde...
Le code source .au3 de mon programme est fourni avec l'executable : http://liveboxinfo.tk/download/LiveboxInfov2.0.0.zip
Si quelqu'un avec une livebox 3 ou 4 pouvait me faire un retour ?
C'est a partir de ligne 51 que le test du clic sur le bouton commence :
Code : Tout sélectionner
;Test des couleurs dans la GUI
$bouton1 = PixelGetColor(40, 290)
if $bouton1 = 13948116 then ; 13948116 = code couleur RGB décimal du bouton lorsqu'on clique dessus.
;MsgBox(0,"Bouton","Bouton1 pressé")
$bouton1 = 0
; Lecture du formulaire
Local $oForm = _IEFormGetObjByName($oIE, "loginForm")
Local $oIp = _IEFormElementGetObjByName($oForm, "ip")
Local $oPassword = _IEFormElementGetObjByName($oForm, "password")
$LIVEBOX = _IEFormElementGetValue($oIp)
$USER = "admin"
$PASSWORD = _IEFormElementGetValue($oPassword)
auth_livebox()
if ($connexion="OK") then
load_data()
; insertion des données dans les onglets
$sHTML = _IEDocReadHTML($oIE) ;Lecture
$sHTML = StringReplace($sHTML,'DeviceInfotxt',$List4)
$sHTML = StringReplace($sHTML,'Mibstxt',$List2)
$sHTML = StringReplace($sHTML,'DSLstatstxt',$List1)
$sHTML = StringReplace($sHTML,'WANstatustxt',$List3)
$sHTML = StringReplace($sHTML,'Wifitxt',$List5)
$sHTML = StringReplace($sHTML,'Servicestxt',$List6)
$sHTML = StringReplace($sHTML,'Voiptxt',$List7)
_IEDocWriteHTML($oIE,$sHTML) ; Ecriture
$connexion=""
endif
EndIf