[R] Redémarrage livebox

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
astaroth
Niveau 4
Niveau 4
Messages : 65
Enregistré le : dim. 28 oct. 2007 15:22
Status : Hors ligne

[R] Redémarrage livebox

#1

Message par astaroth »

Bonjour!

Voila je suis a la recherche d'un script pour redémarrer ma livebox 2 =)

Voila la marche a suivre est la suivante (sauf si vous me proposer mieux :D)
Ouvrir une page internet 192.168.1.1
Entrer le mot de passe de la livebox2 a son emplacement : admin
Aller a la page redémarrage de la livebox
Cliquer sur Relancer la connection puis fermer la page.

Voila si quelqu'un sait faire ça, ça serait sympa =)

Merci !
Modifié en dernier par astaroth le ven. 17 sept. 2010 18:12, modifié 1 fois.
Avatar du membre
Yogui
Niveau 9
Niveau 9
Messages : 689
Enregistré le : ven. 18 avr. 2008 17:29
Status : Hors ligne

Re: [..] Redémarrage livebox

#2

Message par Yogui »

Bonjour,

en passant par un telnet.


je n'ai pas autoit je regarderai ça ce soir

pour mémoire google m'a indiqué :

Code : Tout sélectionner

192.168.1.1

WAIT "login"
SEND "root\m"
WAIT "Password"
SEND "1234\m"
WAIT "[root @ home]$"
SEND "reboot"
WAIT "[root @ home]$"
SEND "exit"
WAIT "[root @ home]$"
astaroth
Niveau 4
Niveau 4
Messages : 65
Enregistré le : dim. 28 oct. 2007 15:22
Status : Hors ligne

Re: [..] Redémarrage livebox

#3

Message par astaroth »

Oui j’avais trouver ça sur google aussi, mais c'est apparemment pour les anciennes livebox. Je l'ai tester et il ne se passe rien.

Edit: Oh bah en fait je l'avait mal utilisé, ca fonctionne ^^'

Merci ! =)
Modifié en dernier par astaroth le ven. 17 sept. 2010 18:07, modifié 1 fois.
Avatar du membre
Yogui
Niveau 9
Niveau 9
Messages : 689
Enregistré le : ven. 18 avr. 2008 17:29
Status : Hors ligne

Re: [..] Redémarrage livebox

#4

Message par Yogui »

n'ayant pas de livebox je ne pourai pas tester :(

votre version de livebox est ?
astaroth
Niveau 4
Niveau 4
Messages : 65
Enregistré le : dim. 28 oct. 2007 15:22
Status : Hors ligne

Re: [..] Redémarrage livebox

#5

Message par astaroth »

Finalement ça marche, les forum que j’avais visité ne précisai pas qu'il fallait un autre fichier (TST10.exe), pour ça qu'il ne fonctionnait pas.. :roll:

Merci !
Avatar du membre
Yogui
Niveau 9
Niveau 9
Messages : 689
Enregistré le : ven. 18 avr. 2008 17:29
Status : Hors ligne

Re: [R] Redémarrage livebox

#6

Message par Yogui »

De rien :mrgreen: je n'ai rien fais
Dagobert
Niveau 1
Niveau 1
Messages : 2
Enregistré le : mer. 04 févr. 2009 22:33
Status : Hors ligne

Re: [R] Redémarrage livebox

#7

Message par Dagobert »

Bonjour.

Un vieux sujet de 2010, arf, tant pis.

J'ai "fait" un p'tit script VBS (sans aucune connaissance du VBS) afin de relancer la connexion, et donc changer d'IP.
Je me suis basé sur cette page, en adaptant afin d'obtenir la reconnexion de la LiveBox 2.
Ca me sert aussi quand je joue à CS

Nom du fichier : LiveBox2_reconnexion.vbs

Code : Tout sélectionner

set nav = CreateObject("InternetExplorer.Application")
nav.Visible = false
nav.navigate "192.168.1.1"
Do While not nav.ReadyState = 4
Loop
nav.document.All.tags("input").Item("authpasswd").Value = "admin_MDP"
nav.document.formu.submit


WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
nav.document.getElementById("rubric2").Click


WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
nav.document.getElementById("link3").Click


WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
nav.document.getElementById("rowbutt3").Click
 
les tempos, WScript.Sleep(1000) risque de poser problème si la LiveBox2 mais trop de temps à répondre, une autre idée ?
Plait-il ?
Avatar du membre
Yarillo
Niveau 5
Niveau 5
Messages : 109
Enregistré le : mer. 11 mai 2011 22:22
Status : Hors ligne

Re: [R] Redémarrage livebox

#8

Message par Yarillo »

Hmm... Ca peut être considéré comme un script malveillant ça non ?
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [R] Redémarrage livebox

#9

Message par mikell »

Dans le temps j'avais fait ça mais pas sûr que ça marche encore

Code : Tout sélectionner

#include <IE.au3>

Global $Old_IP, $New_IP
Global $strURL = "http://automation.whatismyip.com/n09230945.asp"

_Old_IP()
MsgBox(64, "Ancienne IP", " " & $Old_IP & "     ",5)

$oIE = _IECreateEmbedded ( )
GUICreate("", 100, 100, 1, 1)
GUICtrlCreateObj($oIE, 4, 4, 90, 90)
GUISetState(@SW_HIDE) 

_IENavigate ($oIE, "http://192.168.1.1/hnm/standard/rs/html/savereboot.html")
Sleep(500)
;_IEAction ($oIE, "focus")
$identif = _IEFormGetObjByName ($oIE, "mainform")
$login = _IEFormElementGetObjByName ($identif , "frm_username")
$mdp = _IEFormElementGetObjByName ($identif , "frm_password")
$username = "admin"
$password = "admin"
_IEFormElementSetValue ($login, $username)
_IEFormElementSetValue ($mdp, $password)
_IEImgClick ($oIE, "not available", "alt")
Sleep(500)
_IENavigate ($oIE, "javascript&#058;reboot();")
$oIE = 0
GUIDelete()
Sleep(100000)

While 1
Sleep(330)
$png = Ping("www.google.fr")
    If $png > 0 Then 
        _New_IP()
        MsgBox(64, "Nouvelle IP", " " & $New_IP & "     ",5)
        ExitLoop
    EndIf
Wend
Exit

;==============================================
Func _New_IP()
Local $oHTTP
$New_IP = "0.0.0.0"
$oHTTP = ObjCreate("Microsoft.XMLHTTP")
$oHTTP.Open("GET",$strURL,0)
$oHTTP.Send()
If $oHTTP.Status = 200 Then $New_IP = $oHTTP.Responsetext 
$oHTTP = 0
EndFunc

Func _Old_IP()
Local $oHTTP
$Old_IP = "0.0.0.0"
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET",$strURL)
$oHTTP.Send()
If $oHTTP.Status = 200 Then $Old_IP = $oHTTP.Responsetext 
$oHTTP = 0
EndFunc
 
Edit: remplacer "javascript&#058;reboot();" par "javascript:reboot();"
(bug forum)
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Répondre